<?php
Error_Reporting(0);

$version='2.0';

$timeout=10;

$hardlinksfile='hardlinks.html';

function f_file_get_contents($url)
{
	global $timeout;
	if (ini_get('allow_url_fopen')){
		$old = ini_set('default_socket_timeout', $timeout);
		$data=@file_get_contents($url);
  		ini_set('default_socket_timeout', $old);
	} else {
	        $url=str_replace('&amp;','&',$url);
	        $ch=curl_init();
	        curl_setopt($ch, CURLOPT_URL, $url);
	        curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
		curl_setopt($ch, CURLOPT_TIMEOUT, $timeout);
	        $data = curl_exec ($ch);
	        curl_close ($ch);
	}
	return $data;
}

if (isset($_SERVER['QUERY_STRING']))
	{
	if ($_SERVER['QUERY_STRING']=='getversion')
	{
		echo $version;
	}
	if ($_SERVER['QUERY_STRING']=='filestatus')
	{
			if (file_exists($hardlinksfile))
		{
		echo "file_ok";
		}else
		{
		echo "file_error";
		}	
	}
	}
	if (isset($_GET['test_connect']))
	{
			if (!file_exists($hardlinksfile))
				{
				$w=fopen($hardlinksfile,'w+');
					
				$comments = '<!-- '. $_GET['test_connect'] .' -->';	
				fwrite($w,$comments);
				
				fclose($w);

				chmod($hardlinksfile, 0777);
				}

			if (file_exists($hardlinksfile))
				{
				echo "write_ok";
				}else
				{
				echo "write_error";
				}				
	}
	

	if (isset($_GET['action']) and isset($_GET['scode']) and isset($_GET['code'])){
	
		if ($_GET['action']=='make' and !empty($_GET['scode'])){
		
			$lfrom=urlencode("http://".$_SERVER['SERVER_NAME']);

			if (!isset($_SERVER['HTTP_REFERER']))$_SERVER['HTTP_REFERER']='';

			$url='http://hardlinkexchange.net/hardlinks.php?code='. $_GET['code'] .'&lfrom='.$lfrom.'&scode='.$_GET['scode'];
			$body = f_file_get_contents($url);

			if (!empty($body)){
	                  if ($body!='decline'){

						if (!file_exists($hardlinksfile)){
						
							$w=fopen($hardlinksfile,'w+');
							
							fclose($w);
						
							chmod($hardlinksfile, 0777);
						}

						if (file_exists($hardlinksfile)){
						
						if (is_writable($hardlinksfile)){

	                            $w=fopen($hardlinksfile,'w');

								flock($w,2);

								fwrite($w,$body);

								flock($w,3);

								fclose($w);

								echo "ok";

							} else {

								echo "1";

							}

						} else {  //  file does not exist

							echo "2";  

						}


                          } else {

				echo "3";

			  }

			}

		}

	} 
	

?>