common/path/pathcheck.c

	pathcheck.c revision da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968
/***********************************************************************
*                                                                      *
*               This software is part of the ast package               *
*           Copyright (c) 1985-2007 AT&T Knowledge Ventures            *
*                      and is licensed under the                       *
*                  Common Public License, Version 1.0                  *
*                      by AT&T Knowledge Ventures                      *
*                                                                      *
*                A copy of the License is available at                 *
*            http://www.opensource.org/licenses/cpl1.0.txt             *
*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
*                                                                      *
*              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);
}