From 1cc8af277989d01a9538cbbb75b3ddf6f9855aee Mon Sep 17 00:00:00 2001 From: Daniel Stenberg Date: Mon, 13 Nov 2000 11:45:41 +0000 Subject: if the server is already running when the script is started, it now verifies that it actually is our test server that runs --- tests/httpserver.pl | 50 +++++++++++++++++++++++++++++--------------------- 1 file changed, 29 insertions(+), 21 deletions(-) (limited to 'tests/httpserver.pl') diff --git a/tests/httpserver.pl b/tests/httpserver.pl index 86ca02fa6..3d6938513 100755 --- a/tests/httpserver.pl +++ b/tests/httpserver.pl @@ -80,31 +80,39 @@ for ( $waitedpid = 0; } } - # - # we always start the path with a number, this is the - # test number that this server will use to know what - # contents to pass back to the client - # - if($path =~ /.*\/(\d*)/) { - $testnum=$1; - } - else { - print STDERR "UKNOWN TEST CASE\n"; + if($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"; exit; } - open(INPUT, ">log/server.input"); - for(@headers) { - print INPUT $_; - } - close(INPUT); + else { - # send a reply to the client - open(DATA, ") { - print $_; + # + # we always start the path with a number, this is the + # test number that this server will use to know what + # contents to pass back to the client + # + if($path =~ /.*\/(\d*)/) { + $testnum=$1; + } + else { + print STDERR "UKNOWN TEST CASE\n"; + exit; + } + open(INPUT, ">log/server.input"); + for(@headers) { + print INPUT $_; + } + close(INPUT); + + # send a reply to the client + open(DATA, ") { + print $_; + } + close(DATA); } - close(DATA); - # print "Hello there, $name, it's now ", scalar localtime, "\r\n"; }; } -- cgit v1.2.3