1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * Phong Vo <kpv@research.att.com> *
20da2e3ebdSchin * *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin
24da2e3ebdSchin /*
25da2e3ebdSchin * check if package+tool is ok to run
26da2e3ebdSchin * a no-op here except for PARANOID packages
27da2e3ebdSchin * this allows PARANOID_COMPANY to post PARANOID binaries to the www
28da2e3ebdSchin *
29da2e3ebdSchin * warn that the user should pay up if
30da2e3ebdSchin *
31da2e3ebdSchin * (1) the tool matches PARANOID
32da2e3ebdSchin * (2) $_ is more than 90 days old
33da2e3ebdSchin * (3) running on an PARANOID_PAY machine
34da2e3ebdSchin * (4) (1)-(3) have not been defeated
35da2e3ebdSchin *
36da2e3ebdSchin * hows that
37da2e3ebdSchin */
38da2e3ebdSchin
39da2e3ebdSchin #define PARANOID_TOOLS PARANOID
40da2e3ebdSchin #define PARANOID_COMPANY "Lucent Technologies"
41da2e3ebdSchin #define PARANOID_MAIL "stc@lucent.com"
42da2e3ebdSchin #define PARANOID_PAY "135.*&!(135.104.*)"
43da2e3ebdSchin #define PARANOID_FREE "(192|224).*"
44da2e3ebdSchin
45da2e3ebdSchin #include <ast.h>
46da2e3ebdSchin #include <ls.h>
47da2e3ebdSchin #include <error.h>
48da2e3ebdSchin #include <times.h>
49da2e3ebdSchin #include <ctype.h>
50da2e3ebdSchin
51da2e3ebdSchin int
pathcheck(const char * package,const char * tool,Pathcheck_t * pc)52da2e3ebdSchin pathcheck(const char* package, const char* tool, Pathcheck_t* pc)
53da2e3ebdSchin {
54da2e3ebdSchin #ifdef PARANOID
55da2e3ebdSchin register char* s;
56da2e3ebdSchin struct stat st;
57da2e3ebdSchin
58da2e3ebdSchin if (strmatch(tool, PARANOID) && environ && (s = *environ) && *s++ == '_' && *s++ == '=' && !stat(s, &st))
59da2e3ebdSchin {
60da2e3ebdSchin unsigned long n;
61da2e3ebdSchin unsigned long o;
62da2e3ebdSchin Sfio_t* sp;
63da2e3ebdSchin
64da2e3ebdSchin n = time(NiL);
65da2e3ebdSchin o = st.st_ctime;
66da2e3ebdSchin if (n > o && (n - o) > (unsigned long)(60 * 60 * 24 * 90) && (sp = sfopen(NiL, "/etc/hosts", "r")))
67da2e3ebdSchin {
68da2e3ebdSchin /*
69da2e3ebdSchin * this part is infallible
70da2e3ebdSchin */
71da2e3ebdSchin
72da2e3ebdSchin n = 0;
73da2e3ebdSchin o = 0;
74da2e3ebdSchin while (n++ < 64 && (s = sfgetr(sp, '\n', 0)))
75da2e3ebdSchin if (strmatch(s, PARANOID_PAY))
76da2e3ebdSchin {
77da2e3ebdSchin error(1, "licensed for external use -- %s employees should contact %s for the internal license", PARANOID_COMPANY, PARANOID_MAIL);
78da2e3ebdSchin break;
79da2e3ebdSchin }
80da2e3ebdSchin else if (*s != '#' && !isspace(*s) && !strneq(s, "127.", 4) && !strmatch(s, PARANOID_FREE) && o++ > 4)
81da2e3ebdSchin break;
82da2e3ebdSchin sfclose(sp);
83da2e3ebdSchin }
84da2e3ebdSchin }
85da2e3ebdSchin #else
86da2e3ebdSchin NoP(tool);
87da2e3ebdSchin #endif
88da2e3ebdSchin NoP(package);
89da2e3ebdSchin if (pc) memzero(pc, sizeof(*pc));
90da2e3ebdSchin return(0);
91da2e3ebdSchin }
92