<?
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"];
if(!$ed)
{
	header("Location: /");
	exit();
}
else
{
	switch($ed)
	{
		case "2": //pro
			RedirectToURL( $_SERVER["DO_BUY_PRO_URL"], $_SERVER["BUY_PRO_URL_BACKUP"] );
			break;
	
		case "4": //bnd
			RedirectToURL( $_SERVER["DO_BUY_BND_URL"], $_SERVER["BUY_BND_URL_BACKUP"] );
			break;
		case "3": //videorip
			RedirectToURL( $_SERVER["DO_BUY_VID_URL"], $_SERVER["BUY_VID_URL_BACKUP"] );
			break;			
		case "6": //videoripsubsc
			RedirectToURL( $_SERVER["DO_BUY_VID_S_URL"], $_SERVER["BUY_VID_S_URL_BACKUP"] );
			break;
			case "5": //prosubsc
			RedirectToURL( $_SERVER["DO_BUY_PRO_S_URL"], $_SERVER["BUY_PRO_S_URL_BACKUP"] );
			break;
		case "1": //pla
		default:
			RedirectToURL( $_SERVER["DO_BUY_PLA_URL"], $_SERVER["BUY_PLA_URL_BACKUP"] );
			break;
	}
}
	



function RedirectToURL( $url, $backupURL )
{
	//if(is_valid_url($url))
	//{
		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'] ) )
	{
/* for some reason get_headers() returns nothing on this server
		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;
}

	

?>