romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-04-16 22:21:41 +03:00
Code Issues Projects Releases Packages Wiki Activity

uses stricter output

Browse source
This commit is contained in:
Daniel Stenberg 2000-11-17 15:15:48 +00:00
parent 85705e105c
commit 7c6414ebbd
2 changed files with 45 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

29
tests/httpserver.pl
View file

@ -29,7 +29,9 @@ setsockopt(Server, SOL_SOCKET, SO_REUSEADDR,
bind(Server, sockaddr_in($port, INADDR_ANY))|| die "bind: $!";
listen(Server,SOMAXCONN) || die "listen: $!";
print "HTTP server started on port $port\n";
if($verbose) {
print "HTTP server started on port $port\n";
}
open(PID, ">.server.pid");
print PID $$;
@ -115,10 +117,13 @@ for ( $waitedpid = 0;
my $testnum;
if($path =~ /.*\/(\d*)/) {
$testnum=$1;
if($verbose) {
print STDERR "sending reply $testnum\n";
}
}
else {
print STDERR "UKNOWN TEST CASE\n";
exit;
$testnum=0;
}
open(INPUT, ">log/server.input");
for(@headers) {
@ -126,12 +131,20 @@ for ( $waitedpid = 0;
}
close(INPUT);
# send a reply to the client
open(DATA, "<data/reply$testnum.txt");
while(<DATA>) {
print $_;
if(0 == $testnum ) {
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";
}
else {
# send a custom 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";
};