moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

output the protocol data to stderr when verbose is on

Browse Source
This commit is contained in:
Daniel Stenberg 2001-03-12 12:44:44 +00:00
parent 639a7982ba
commit c576e114b9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/httpserver.pl
View File

@ -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);
}