Imported Upstream version 93u+upstream

1 files changed, 91 insertions, 0 deletions

diff --git a/src/lib/libast/path/pathcheck.c b/src/lib/libast/path/pathcheck.c
new file mode 100644
index 0000000..4ff79f6
--- /dev/null
+++ b/src/lib/libast/path/pathcheck.c
@@ -0,0 +1,91 @@
+/***********************************************************************
+*                                                                      *
+*               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);
+}