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

fixes

Browse source
This commit is contained in:
Daniel Stenberg 2001-05-28 21:49:45 +00:00
parent adf00f5b2e
commit 7bb7550e23
3 changed files with 55 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tests/httpserver.pl
View file

@ -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) {