if the server is already running when the script is started, it now verifies

that it actually is our test server that runs

1 files changed, 29 insertions, 21 deletions

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, "<data/reply$testnum.txt");
-        while(<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, "<data/reply$testnum.txt");
+            while(<DATA>) {
+                print $_;
+            }
+            close(DATA);
         }
-        close(DATA);
-
      #   print "Hello there, $name, it's now ", scalar localtime, "\r\n";
     };
 }