Commit 28dd4e4f authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

made it respond as a http proxy on CONNECT

parent f92dc70b

tests/httpserver.pl

+13 −2
Original line number Diff line number Diff line
@@ -66,7 +66,6 @@ for ( $waitedpid = 0; 


        my @headers;



      stdin:

        while(<STDIN>) {

            if($_ =~ /([A-Z]*) (.*) HTTP\/1.(\d)/) {

                $request=$1;
@@ -96,6 +95,12 @@ for ( $waitedpid = 0; 
                if($request =~ /^(POST|PUT)$/) {

                    $left=$cl;

                }

                elsif($request =~ /^CONNECT$/) {

                    if($verbose) {

                        print STDERR "We're emulating a SSL proxy!\n";

                    }

                    $left = -1;

                }

                else {

                    $left = -1; # force abort

                }
@@ -105,7 +110,13 @@ for ( $waitedpid = 0; 
            }

        }



        if($path =~ /verifiedserver/) {

        if($request =~ /^CONNECT$/) {

            # ssl proxy mode

            print "HTTP/1.1 400 WE CANNOT ROOL NOW\r\n",

            "Server: bahoooba\r\n\r\n";

            exit;

        }

        elsif($path =~ /verifiedserver/) {

            # this is a hard-coded query-string for the test script

            # to verify that this is the server actually running!

            print "HTTP/1.1 999 WE ROOLZ\r\n";