<?
// syntax: outp.php3?u=url_send_to&p=percent&l=linkname

// default probability to send hits to real content
$default_percent = 70;
// default url to send hits when all site was vizited
$default_url = "http://www.zpornstars.com/int/traff_in.php?PA=350692";
// path to cj
$cjpath = "/home/.sites/106/site3/web/cgi-bin/ucj";


/////////////////////////////////////////////////////
// init already visited urls
$urll = $HTTP_COOKIE_VARS["urls"];

/////////////////////////////////////////////////////
// init http variables
$ip = $REMOTE_ADDR;
$proxy = $HTTP_X_FORWARDED_FOR; if (!$proxy) $proxy = "none";
$referer = strtolower($HTTP_REFERER); if (!$referer) $referer = "noref"; 
$content = $HTTP_GET_VARS["u"];
$p = $HTTP_GET_VARS["p"];
$link = $HTTP_GET_VARS["l"];
$ref = $HTTP_COOKIE_VARS["ref"];

//////////////////////////////////////////////
// init $cookie with cookie referer host
if (isset($ref))  {
		$ref_ar = parse_url($ref);
		$refe = $ref_ar["host"];
		$rest = substr($refe, 0 ,4);
		if ($rest == "www.")  $cookie = substr($refe, 4); 
	        else $cookie=$refe;
		if (!$cookie)  $cookie="nocookie";
		}
		else
		{ 
		$referer=ereg_replace("site=","from=",$referer);
		if (strpos($referer,'from=')) 
			{
			$domain=substr($referer,strpos($referer,'from=')+5);
			$fd=fopen("$cjpath/data/names",'r');
			$str=fgets($fd,4096);
			fclose($fd);
			if (strpos($str,$domain))
				{
				$cookie=chop(substr($str,strpos($str,$domain),strlen($domain)+4));
				}
				else $cookie = "nocookie";
			}
			else $cookie = "nocookie";
		}

/////////////////////////////////////////////////////
// real content check
srand((double)microtime()*1000000);
if ($content) {
	if (!$p) $p=$default_percent;
	if (rand(1,100) <= $p) { 
		if (!$link) $link="divert";
		$fp = fopen("$cjpath/logfiles/ucjout", "a");
		flock($fp,2);
		$record = "real|divert|$cookie|$ip|$proxy|$referer\n";
		fputs($fp, $record);
		fclose($fp);
		header("location: $u\n"); 
		die("");
	}
	if (!$link) $link="nodivert";
} 
if (!$link) $link="nolink";

/////////////////////////////////////////////////////
// choose url from outgoing list
// srand ((double) microtime() * 1000000);
$rnd = (rand(0, 10000)) / 100;
$fp = fopen("$cjpath/data/ucjc", "r");
while (!feof($fp)) {
    $str = fgets($fp, 4096);
    $str = chop($str);
    $part = split("\|", $str);
    if (!$part[0]) { $def=1; break; }     // all vizited
    $used = strpos($urll, $part[0]);
    if ((!$used) && ($cookie!=$part[0]) && ($rnd < $part[2])) {
	   $url = $part[1]; break;
    }
}
$fs = fclose($fp);
if ($def) { $part[0]="default"; }
else { $urll .= "!".$part[0]; setcookie ("urls", $urll,time()+86400, "/", $my_domain, 0); }
$fp = fopen("$cjpath/logfiles/ucjout", "a");
flock($fp,2);
$record = "$part[0]|$link|$cookie|$ip|$proxy|$referer\n";
fputs($fp, $record);
fclose($fp);
if (!$def) { header("location: $url\n"); }
else { header("location: $default_url\n"); }
?>