Moved itools to live branch

1 files changed, 142 insertions, 0 deletions

diff --git a/license/license.class b/license/license.class
new file mode 100644
index 0000000..83a71a5
--- /dev/null
+++ b/license/license.class
@@ -0,0 +1,142 @@
+<?php
+/*
+**	$Id$
+**
+**	Relog Internet Tools 3 Library ("ITOOLS3")
+**
+**	it_license.class - Handle software licensing
+**
+**	$Log$
+**	Revision 1.2  2000/07/13 19:16:29  daenzer
+**	cosmetic changes
+**
+**	Revision 1.1  2000/07/13 19:10:19  weber
+**	Added licensing suite
+**	
+*/
+
+/**
+ * itools (TM) license class
+ */
+class it_license
+{
+	/* private */
+	var	$host;		/* Host requesting license */
+	var	$product;	/* Product that we are requesting license for */
+
+	var	$license;	/* Entire encoded license string */
+	var	$licenseurl;	/* External URL of license */
+	var	$licensefile;	/* Local file name of cached license */
+	var	$internal;	/* 1 if data source is internal cache */
+	var	$exp;		/* Expiration date */
+
+/**
+ * Create an it_license object for a product installation
+ * @param $product Name of the licensed product / project
+ */
+function it_license($product)
+{
+	$this->host = strtolower(gethostbyaddr(getenv('HTTP_HOST')));
+	$this->product = $product;
+	$this->licensefile = '/tmp/'.$this->product.'-'.$this->host.'.license';
+	$this->licenseurl = 'http://license.relog.ch/license.php?host='.$this->host.'&product='.$this->product;
+
+	if ($this->get_license(1))	/* Cached license file exists */
+	{
+		$age = time() - filemtime($this->licensefile);
+
+		if ($age > 86400)	/* Cached file is expired */
+		{
+			if (!$this->get_license())	/* Try to get a new license from server */
+			{
+				if ($age > 604800)	/* Couldn't get a new license for a week */
+				{
+					unlink($this->licensefile);	/* License finally expired */
+					unset($this->license);
+				}
+			}
+		}
+	}
+	else $this->get_license();
+
+	$this->check();
+
+	if (!$this->internal)
+	{
+		if ($fh = fopen($this->licensefile, "w"))
+		{
+			fwrite($fh, $this->license);
+			fclose($fh);
+		}
+	}
+}
+
+
+function get_license($internal=0)
+{
+	$url = $internal ? $this->licensefile : $this->licenseurl;
+
+	/* echo "Getting license \"$url\"<br>\n"; */
+
+	if ($file = @file($url))
+	{
+		$this->license = $file[0];
+		$this->internal = $internal;
+		return $url;
+	}
+	return 0;
+}
+
+
+function check()
+{
+	$secret="Jm+sd3O5NfvBudDhaf/N24-%C";
+
+	list($header, $formatversion, $comment, $code, $md5, $end) = explode('|', $this->license);
+	if ($header == 'RELOG/ULTRALICENSE3000')
+	{
+		if ($formatversion == 1)
+		{
+			if (md5($secret.$code.$secret) == base64_decode($md5))
+			{
+				list($formatversion, $host, $product, $this->exp) = explode('|', base64_decode($code));
+				if ($formatversion == 1)
+				{
+					if ($host == $this->host)
+					{
+						if ($product == $this->product)
+						{
+							list($year, $month, $day) = explode('-', $this->exp);
+							$exp = mktime(0, 0, 0, $month, $day, $year);
+							$now = time();
+
+							if ($exp > $now)	/* Valid license */
+								return;
+	
+							$error = 'license expired on '.$this->exp;
+						}
+						else $error = 'wrong product';
+					}
+					else $error = 'wrong host';
+				}
+				else $error = 'format2';
+			}
+			else $error = 'license not authentic';
+		}
+		else $error = 'format';
+	}
+	else $error = 'no license';
+	echo $this->host.": invalid license for product <i>$product</i>, reason: <b>$error</b><br>\n";
+	exit;
+}
+
+
+function valid_until()
+{
+	return $this->exp;
+}
+
+
+
+} /* End class it_license */
+?>