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