// -----------------------------------------------------------
// Функция отправляет сформированный запрос указанному хосту
// В config['request_headers'] заносятся разобранные заголовки
// В $host принимается собственно хост и порт при желании
// -----------------------------------------------------------
function request($host, $request)
	{
		global $config;

		$url_parts = parse_url($host);
		if (!isset($url_parts['host']))
			{
				$url_parts['host'] = $url_parts['path'];
				unset($url_parts['path']);
			}
		if (!isset($url_parts['port']))
			$url_parts['port'] = 80;

		if (($socket = fsockopen($url_parts['host'], $url_parts['port'], $errNumber, $errString, (isset($config['request_timeout'])?$config['request_timeout']:30))) == false)
			return str2www('ОШИБКА: Не могу достучаться к '.$url_parts['host'].', ошибка: '.$errNumber.' ('.$errString.')'); // !!! Заменить на $message
		fwrite($socket, $request);
//		$response=''; while (!feof($socket)) $response .= fgets($socket);
//		$response=''; while (!feof($socket)) $response .= fread($socket, 8192);
		$response = stream_get_contents($socket);
		fclose($socket);

		// Проверяем, если у нас HTTP-передача Transfer-Encoding: chunked, то вырезаем длины фрагментов из полученного потока
		$head_text= substr($response,0,strpos($response,"\r\n\r\n")+2); // Копируем только строчки заголовков с финальными окончаниями строк
		$head_arr = parse_headers_area($head_text);
		$config['request_headers'] = $head_arr; // Вдруг когда ещё понадобится?
		if (isset($head_arr['transfer-encoding']) && (strtolower($head_arr['transfer-encoding'])=='chunked'))
			{ // Имеем цепочную передачу. Убираем куски \r\nXXX\r\n
				$buffer='';
				$pos=strlen($head_text);
				while (($size = hexdec(substr($response,$pos+2,($pnext=strpos($response, "\r\n", $pos+2)+2)-$pos-4))) != 0)
					{
						$buffer.=substr($response, $pnext, $size);
						$pos = $pnext+$size;
					}
				$response = $head_text."\r\n".$buffer;
			}
		// Тут пока непонятно, при цепочной передаче данных gzip-ом упаковываются отдельные цепочки, или цепочка может быть только одна?
		if (isset($head_arr['content-encoding']) && (strtolower($head_arr['content-encoding'])=='gzip'))
			{
				$buffer = substr($response, strlen($head_text)+2);
//				$response = $head_text."\r\n".gzdecode($buffer);
				$response = $head_text."\r\n".gzinflate(substr($buffer,10)); 
			}
		return $response;
	} // request()

// -----------------------------------------------------------------------------
// Функция преобразует переданную строку заголовков в ассоциативный массив
// Первый элемент всегда 0 и равен или методу запроса, или коду возврата
// При $uc==true ключи массива преобразуются в верхний регистр, иначе - в нижний
// -----------------------------------------------------------------------------
function parse_headers_area($http, $uc=false)
	{
		global $config;

		if (($pos = strpos($http, "\r\n\r\n")) != 0)
			$http = substr($http, 0, $pos+2);

		$head_rows = explode("\r\n", $http); // Разрезали на строчки
		$row = 0;
		$headers = array();
		foreach ($head_rows as $head)
			{
				if ($row++ == 0)
					$headers[0] = $head; // Первый параметр - статус. 200 OK, 304 Moved Permanently, ну и так далее
				else
					{
						if (strlen($head) > 0)
							{
								$key = trim(substr($head, 0, strpos($head, ':')));
								$val = trim(substr($head, strpos($head, ':')+1));
								$key = ($uc?strtoupper($key):strtolower($key));
								if (isset($headers[$key])) // Один заголовок с таким же именем уже был. Возможно, это ещё одни Cookies
									{
										echo2log('Повторное вхождение заголовка "'.$head.'". Предыдущее значение="'.$headers[$key].'"', LOG_MSG_INFO); // !!! Заменить на $message[]
										$headers[$key] .= '; '.$val; // Добавляем новое значение к предыдущему (обычно cookie, которые разделяются запятыми)
									}
								else
									{
										if (isset($config['known_headers']))
											{
												if (!in_array(strtolower($key), $config['known_headers']))
													echo2log('Непривычный заголовок: '.$head, LOG_MSG_INFO);
												else if (isset($config['known_header_values'][strtolower($key)]) && !in_array(strtolower($val), $config['known_header_values'][strtolower($key)]))
													echo2log('В заголовке "'.$key.'" встретилась неизвестная опция "'.$val.'"', LOG_MSG_INFO);
											}
										$headers[$key] = $val;
									}
							} // if (strlen($head) > 0)
					} // Вторая и последующие строки заголовков
			} // foreach ($head_row)
		return $headers;
	} // parse_headers_area()

$url = 'http://tune.yandex.ru/region/?retpath='.urlencode('http://market.yandex.ru/');
$url_parts = parse_url($url);
$request =
"GET ".$url_parts['path']." HTTP/1.1\r\n".
"Host: ".$url_parts['host']."\r\n".
"User-Agent: ".$user_agent."\r\n".
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n".
"Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3\r\n".
"Accept-Encoding: gzip, deflate\r\n".
"Connection: Close\r\n".
"Referer: http://market.yandex.ru/\r\n".
"\r\n";
$page = request($url_parts['host'], $request);