function http_test_existance($url,$timeout = 10) {
	$timeout = (int)round($timeout/2+0.00000000001);
	$return = array();

	### 1 ###
	$inf = parse_url($url);

	if (!isset($inf['scheme']) or $inf['scheme'] !== 'http') return array('status' => -1);
	if (!isset($inf['host'])) return array('status' => -2);
	$host = $inf['host'];

	if (!isset($inf['path'])) return array('status' => -3);
	$path = $inf['path'];
	if (isset($inf['query'])) $path .= '?'.$inf['query'];

	if (isset($inf['port'])) $port = $inf['port'];
	else $port = 80;

	### 2 ###
	$pointer = fsockopen($host, $port, $errno, $errstr, $timeout);
	if (!$pointer) return array('status' => -4, 'errstr' => $errstr, 'errno' => $errno);
	socket_set_timeout($pointer, $timeout);

	### 3 ###
	$head = 'HEAD '.$path.' HTTP/1.1'."\r\n".'Host: '.$host."\r\n";

	if (isset($inf['user']))
	$head .= 'Authorization: Basic '.
	base64_encode($inf['user'].':'.(isset($inf['pass']) ? $inf['pass'] : ''))."\r\n";
	if (func_num_args() > 2) {
		for ($i = 2; $i < func_num_args(); $i++) {
			$arg = func_get_arg($i);
			if (
			strpos($arg, ':') !== false and
			strpos($arg, "\r") === false and
			strpos($arg, "\n") === false
			) {
				$head .= $arg."\r\n";
			}
		}
	}
	else $head .= 'User-Agent: '.projectname.' ('.domain.')'."\r\n";

	$head .= 'Connection: close'."\r\n"."\r\n";

	### 4 ###
	fputs($pointer, $head);

	$response = '';

	$status = socket_get_status($pointer);
	while (!$status['timed_out'] && !$status['eof']) {
		$response .= fgets($pointer);
		$status = socket_get_status($pointer);
	}
	fclose($pointer);
	if ($status['timed_out']) {
		return array('status' => -5, '_request' => $head);
	}

	### 5 ###
	$res = str_replace("\r\n", "\n", $response);
	$res = str_replace("\r", "\n", $res);
	$res = str_replace("\t", ' ', $res);

	$ares = explode("\n", $res);
	$first_line = explode(' ', array_shift($ares), 3);

	$return['status'] = trim($first_line[1]);
	$return['reason'] = trim($first_line[2]);

	foreach ($ares as $line) {
		$temp = explode(':', $line, 2);
		if (isset($temp[0]) and isset($temp[1])) {
			$return[strtolower(trim($temp[0]))] = trim($temp[1]);
		}
	}
	$return['_response'] = $response;
	$return['_request'] = $head;

	return $return;
}