From 7bb7550e23e70528f8c138d7e65275ac970a0351 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 28 May 2001 21:49:45 +0000
Subject: fixes

---
 tests/httpserver.pl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'tests/httpserver.pl')

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 59a52fd18..64d9d2100 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -121,10 +121,6 @@ for ( $waitedpid = 0;
             my $testnum;
             if($path =~ /.*\/(\d*)/) {
                 $testnum=$1;
-
-                if($verbose) {
-                    print STDERR "OUT: sending reply $testnum\n";
-                }
             }
             else {
                 $testnum=0;
@@ -142,9 +138,18 @@ for ( $waitedpid = 0;
                 "You must enter a test number to get good data back\r\n";
             }
             else {
+                my $part="";
+                if($testnum > 10000) {
+                    $part = $testnum % 10000;
+                    $testnum = sprintf("%d", $testnum/10000);
+                }
+                if($verbose) {
+                    print STDERR "OUT: sending reply $testnum (part $part)\n";
+                }
+
                 loadtest("data/test$testnum");
                 # send a custom reply to the client
-                my @data = getpart("reply", "data");
+                my @data = getpart("reply", "data$part");
                 for(@data) {
                     print $_;
                     if($verbose) {
-- 
cgit v1.2.3