--TEST--
Bug #73037 SoapServer reports Bad Request when gzipped, var 0
--SKIPIF--
<?php 
	require_once('skipif.inc');
	if (!extension_loaded("zlib")) {
		echo "skip zlib is required for this test";
	}

	if (!file_exists(dirname(__FILE__) . "/../../../sapi/cli/tests/php_cli_server.inc")) {
		echo "skip sapi/cli/tests/php_cli_server.inc required but not found";
	}
?>
--FILE--
<?php

include dirname(__FILE__) . "/../../../sapi/cli/tests/php_cli_server.inc";

function get_data($max)
{
	$piece = "<CD>
		<TITLE>Empire Burlesque</TITLE>
		<ARTIST>Bob Dylan</ARTIST>
		<COUNTRY>USA</COUNTRY>
		<COMPANY>Columbia</COMPANY>
		<PRICE>10.90</PRICE>
		<YEAR>1985</YEAR>
	</CD>";

	$begin = '<?xml version="1.0" encoding="UTF-8"?><soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soapenv:Body><CATALOG>';
	$end = '</CATALOG></soapenv:Body></soapenv:Envelope>';

	$min = strlen($begin) + strlen($piece) + strlen($end);
	$max = $max < $min ? $min : $max;

	$data = $begin;
	$data .= $piece;
	while (strlen($data) + strlen($end) < $max) {
		/* Randomize a bit, taking gzip in account. */
		$tmp = str_replace(
			array(
				"Empire Burlesque",
				"Bob Dylan",
			),
			array(
				md5(uniqid()),
				sha1(uniqid()),
			),
			$piece
		);

		if (strlen($begin) + strlen($tmp) + strlen($end) > $max) {
			break;
		}

		$data .= $tmp;
	}
	$data .= $end;

	return $data;
}

$router = "bug73037_server.php";
$args = substr(PHP_OS, 0, 3) == 'WIN' ? "-d extension_dir=" . ini_get("extension_dir") . " -d extension=php_soap.dll" : "";
$code = <<<'PHP'
$s = new SoapServer(NULL, array('uri' => 'http://here'));
$s->setObject(new stdclass());
$s->handle();
PHP;

php_cli_server_start($code, $router, $args);

foreach (array(1024-1, 1024*8-3, 1024*9+1, 1024*16-1, 1024*32-5, 1024*64+3, 1024*128-7) as $k => $i) {
	echo "Iteration $k\n\n";

	/* with and without compression */
	foreach (array(false, true) as $b) {
		$data = get_data($i);
		if ($b) {
			$data = gzencode($data);
		}
		$len = strlen($data);

		//echo "len=$len\n";

		$hdrs = <<<HDRS
POST /bug73037_server.php HTTP/1.1
Content-Type: application/soap+xml; charset=UTF-8
Accept: application/soap+xml, application/dime, multipart/related, text/*
SOAPAction: "urn:adressen#adressen#SetAda"
Expect: 100-continue
Content-Length: ${len}
HDRS;
		if ($b) {
			$hdrs .="\nContent-Encoding: gzip";		
		}
		//echo "Headers sent:\n$hdrs\n\n";
		$fp = fsockopen(PHP_CLI_SERVER_HOSTNAME, PHP_CLI_SERVER_PORT, $errno, $errstr, 5);
		if (!$fp) {
		  die("connect failed");
		}

		if(fwrite($fp, "$hdrs\n\n$data")) {
			$out = "";
			while (!feof($fp)) {
				$out .= fread($fp, 1024);
			}

			$pos = strpos($out, "<env:Text>");
			if (false === $pos) {
				echo $out;
				goto cleanup;
			}
			$pos0 = $pos + strlen("<env:Text>");
			$pos = strpos($out, "</env:Text>");
			if (false === $pos) {
				echo $out;
				goto cleanup;
			}
			$len = $pos - $pos0;
			echo substr($out, $pos0, $len);
		}

cleanup:
		fclose($fp);

		echo "\n\n";
		}
}

?>
==DONE==
--CLEAN--
<?php
unlink(dirname(__FILE__) . DIRECTORY_SEPARATOR . "bug73037_server.php");
?>
--EXPECT--
Iteration 0

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 1

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 2

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 3

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 4

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 5

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

Iteration 6

Function 'CATALOG' doesn't exist

Function 'CATALOG' doesn't exist

==DONE==