generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix the server for the slow response case

Browse Source
This commit is contained in:
Daniel Stenberg
2005-05-02 10:03:12 +00:00
parent b0f856213d
commit 9a3e0e52cb
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/ftpserver.pl
View File

@@ -585,17 +585,23 @@ sub PASV_command {
eval { eval {
local $SIG{ALRM} = sub { die "alarm\n" }; local $SIG{ALRM} = sub { die "alarm\n" };
alarm 5; # assume swift operations # assume swift operations unless explicitly slow
alarm ($controldelay?20:5);
# Wait for 'CNCT' # Wait for 'CNCT'
my $input = <DREAD>; my $input;
my $size;
while(sysread(DREAD, $input, $size)) {
if($input !~ /^CNCT/) { if($input !~ /^CNCT/) {
# we wait for a connected client # we wait for a connected client
logmsg "Odd, we got $input from client\n";
next; next;
} }
logmsg "====> Client DATA connect\n"; logmsg "====> Client DATA connect\n";
last;
}
alarm 0; alarm 0;
}; };
if ($@) { if ($@) {