<?

function logPinging( $s )
{
	
	$fp = fopen("logs/regnow_ping_".date('M')."_".date('Y').".log","a");
        fwrite($fp,$_SERVER['REMOTE_ADDR']." ".date("d.m H:i:s")." ".$s."\r\n");
        fclose($fp);
}

$ed = $_GET["ed"];
//$quantity = $_GET["quantity"];

if(!$ed)
{
	header("Location: /");
	exit();
}
else
{
  $linkid="";
  if(stripos($_SERVER["DO_BUY_PRO_URL"], "?")!==false)
    $linkid = "&";
  else
    $linkid = "?";

  if(isset($_GET["linkid"]))
      $linkid .= "linkid=".$_GET["linkid"];
  else if(isset($_GET["utm_source"]))
      $linkid .= "linkid=".$_GET["utm_source"];

	switch($ed)
	{
		case "2": //pro
			RedirectToURL( $_SERVER["DO_BUY_PRO_URL"].$linkid, $_SERVER["BUY_PRO_URL_BACKUP"] );
			break;
		case "3": //vid
			RedirectToURL( $_SERVER["DO_BUY_VID_URL"].$linkid, $_SERVER["BUY_VID_URL_BACKUP"] );
			break;
		case "4": //bnd
			RedirectToURL( $_SERVER["DO_BUY_BND_URL"].$linkid, $_SERVER["BUY_BND_URL_BACKUP"] );
			break;
		case "1": //pla
		default:
			RedirectToURL( $_SERVER["DO_BUY_PLA_URL"].$linkid, $_SERVER["BUY_PLA_URL_BACKUP"] );
			break;
	}
}
	



function RedirectToURL( $url, $backupURL )
{         
	//if(is_valid_url($url))
	//{
//		if(is_set($quantity) && $quantity>1);
//			$url .= "&quantity=".$quantity;
		header("Location: $url");
	//}
	//else
	//{
	//	logPinging("using backup url");
	//	header("Location: $backupURL");
	//}
	exit();
}


function is_valid_url( $url )
{
	$start = microtime();

	$url = @parse_url($url);

	if ( !$url)
		return false;

	$url = array_map('trim', $url);
	$url['port'] = (!isset($url['port'])) ? 80 : (int)$url['port'];
	$path = (isset($url['path'])) ? $url['path'] : '';

	if ($path == '')
		$path = '/';

	$path .= ( isset ( $url['query'] ) ) ? "?$url[query]" : '';

	if ( isset ( $url['host'] ) AND $url['host'] != gethostbyname ( $url['host'] ) )
	{
		if ( PHP_VERSION >= 5 )
		{
			$headers = get_headers("$url[scheme]://$url[host]:$url[port]$path");

		}
		else
		{
			$fp = fsockopen($url['host'], $url['port'], $errno, $errstr, 30);

			if ( ! $fp )
				return false;
			fputs($fp, "HEAD $path HTTP/1.1\r\nHost: $url[host]\r\n\r\n");
			$headers = fread ( $fp, 128 );
			fclose ( $fp );
		}

		$headers = ( is_array ( $headers ) ) ? implode ( "\n", $headers ) : $headers;
        	$end = microtime();
		$start = explode(" ",$start);
		$end = explode(" ",$end);
		$diff = ($end[0] + $end[1]) - ($start[0] + $start[1]);
		logPinging(" pinging took: ".$diff);
		return ( bool ) preg_match ( '#^HTTP/.*\s+[(200|301|302)]+\s#i', $headers );
	}
	
        $end = microtime();
	$start = explode(" ",$start);
	$end = explode(" ",$end);
	$diff = ($end[0] + $end[1]) - ($start[0] + $start[1]);

	logPinging(" (in return always false) pinging took: ".$diff);

	return false;
}

	

?>