summaryrefslogtreecommitdiff
path: root/tests/httpserver.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2001-03-12 12:44:44 +0000
committerDaniel Stenberg <daniel@haxx.se>2001-03-12 12:44:44 +0000
commitc576e114b93fc669e2a386bcc0ea5870c7f03b39 (patch)
tree9d4c0b155cbf2acdf23bd5b237334a79ff6e1fed /tests/httpserver.pl
parent639a7982ba66d39c76529b22ae50b409d0f83b44 (diff)
downloadcurl-c576e114b93fc669e2a386bcc0ea5870c7f03b39.tar.gz
output the protocol data to stderr when verbose is on
Diffstat (limited to 'tests/httpserver.pl')
-rwxr-xr-xtests/httpserver.pl7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index b1d661925..1769ac856 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -63,6 +63,8 @@ for ( $waitedpid = 0;
my ($request, $path, $ver, $left, $cl);
my @headers;
+
+ stdin:
while(<STDIN>) {
if($_ =~ /([A-Z]*) (.*) HTTP\/1.(\d)/) {
$request=$1;
@@ -135,13 +137,16 @@ for ( $waitedpid = 0;
print "HTTP/1.1 200 OK\r\n",
"header: yes\r\n",
"\r\n",
- "You must select a test number to get good data back\r\n";
+ "You must enter a test number to get good data back\r\n";
}
else {
# send a custom reply to the client
open(DATA, "<data/reply$testnum.txt");
while(<DATA>) {
print $_;
+ if($verbose) {
+ print STDERR "OUT: $_";
+ }
}
close(DATA);
}