csu3_am335x/EVSE/GPL/php-8.1.12/ext/soap/tests/bug73037.phpt

--TEST--
Bug #73037 SoapServer reports Bad Request when gzipped, var 0
--EXTENSIONS--
soap
zlib
--SKIPIF--
<?php
    if (!file_exists(__DIR__ . "/../../../sapi/cli/tests/php_cli_server.inc")) {
        echo "skip sapi/cli/tests/php_cli_server.inc required but not found";
    }
?>
--FILE--
<?php

include __DIR__ . "/../../../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";
        }
}

?>
--CLEAN--
<?php
unlink(__DIR__ . 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