1/***********************************************************************
2*                                                                      *
3*               This software is part of the ast package               *
4*          Copyright (c) 1985-2010 AT&T Intellectual Property          *
5*                      and is licensed under the                       *
6*                  Common Public License, Version 1.0                  *
7*                    by AT&T Intellectual Property                     *
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
51int
52pathcheck(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