<?
/************************************************
* HTTPTracker.inc
* Commit referrer info to a cookie to be written
* to the dB when a referral to a sale is made.
* neal.cabage@enlogica.com 11/2004
************************************************/

$cookieName		  = "HttpTrack";
$cookieDelimiter1 = "^^";
$cookieDelimiter2 = "@@";
$cookieDuration	  = time() + (60 * 60 * 24 * 30 * 3);  //3 months
$timeStamp 		  = date("YmdHis");

//Set cookie if one does not exist
if (!isset($_COOKIE["HttpTrack"])) {
		
	$HTTPReferrer 	  = getenv('HTTP_REFERER');
	$URISplit1 		  = split("\?",$HTTPReferrer);
 	$url			  = "";
	$domain			  = "";
	$qString		  = "";
	$qArray			  = "";
	$query 			  = "";
	$ad 			  = "";

	//Parse 1: Parse Domain 
	if (isset($URISplit1[0])){		
		$URISplit2 	  = split("/",$URISplit1[0]);
		$url 		  = $URISplit1[0];
		if (count($URISplit2)>2)
			$domain = $URISplit2[2];
	}
		
	//Parse 2: Parse QueryString
	if (isset($URISplit1[1])){		
		$qString 	  = $URISplit1[1];
		$qArray 	  = split("&",$qString);		
		foreach ($qArray as $item){
			$keyPair = split("=",$item);
			if ($keyPair[0]=="query" || $keyPair[0]=="q" || $keyPair[0]=="p") $query = urldecode($keyPair[1]);
			if ($keyPair[0]=="ad") $ad = $keyPair[1];
		}
	}

	
	//Compile Cookie String
	$cookieVal 				= "referrer" . $cookieDelimiter1 . substr($url,0,255) 	. $cookieDelimiter2;
	$cookieVal = $cookieVal . "domain" 	 . $cookieDelimiter1 . substr($domain,0,64) . $cookieDelimiter2;
	$cookieVal = $cookieVal . "query" 	 . $cookieDelimiter1 . substr($query,0,64) 	. $cookieDelimiter2;
	$cookieVal = $cookieVal . "fvisit" 	 . $cookieDelimiter1 . $timeStamp 			. $cookieDelimiter2;
	$cookieVal = $cookieVal . "ad" 	 	 . $cookieDelimiter1 . substr($ad,0,8);

	//Set cookie
	setCookie($cookieName, $cookieVal, $cookieDuration,"/");
}

?>