/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1985-2011 AT&T Intellectual Property *
* and is licensed under the *
* Eclipse Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.eclipse.org/org/documents/epl-v10.html *
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* David Korn <dgk@research.att.com> *
* Phong Vo <kpv@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* check if package+tool is ok to run
* a no-op here except for PARANOID packages
* this allows PARANOID_COMPANY to post PARANOID binaries to the www
*
* warn that the user should pay up if
*
* (1) the tool matches PARANOID
* (2) $_ is more than 90 days old
* (3) running on an PARANOID_PAY machine
* (4) (1)-(3) have not been defeated
*
* hows that
*/
#define PARANOID_TOOLS PARANOID
#define PARANOID_COMPANY "Lucent Technologies"
#define PARANOID_MAIL "stc@lucent.com"
#define PARANOID_PAY "135.*&!(135.104.*)"
#define PARANOID_FREE "(192|224).*"
#include <ast.h>
#include <ls.h>
#include <error.h>
#include <times.h>
#include <ctype.h>
int
pathcheck(const char* package, const char* tool, Pathcheck_t* pc)
{
#ifdef PARANOID
register char* s;
struct stat st;
if (strmatch(tool, PARANOID) && environ && (s = *environ) && *s++ == '_' && *s++ == '=' && !stat(s, &st))
{
unsigned long n;
unsigned long o;
Sfio_t* sp;
n = time(NiL);
o = st.st_ctime;
if (n > o && (n - o) > (unsigned long)(60 * 60 * 24 * 90) && (sp = sfopen(NiL, "/etc/hosts", "r")))
{
/*
* this part is infallible
*/
n = 0;
o = 0;
while (n++ < 64 && (s = sfgetr(sp, '\n', 0)))
if (strmatch(s, PARANOID_PAY))
{
error(1, "licensed for external use -- %s employees should contact %s for the internal license", PARANOID_COMPANY, PARANOID_MAIL);
break;
}
else if (*s != '#' && !isspace(*s) && !strneq(s, "127.", 4) && !strmatch(s, PARANOID_FREE) && o++ > 4)
break;
sfclose(sp);
}
}
#else
NoP(tool);
#endif
NoP(package);
if (pc) memzero(pc, sizeof(*pc));
return(0);
}