moparisthebest
/
curl
mirror of https://github.com/moparisthebest/curl
1
0
Fork 0
Code Issues Releases Wiki Activity

fix the server for the slow response case

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/ftpserver.pl
View File

@ -585,17 +585,23 @@ sub PASV_command {
eval {
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'
my $input = <DREAD>;
my $input;
my $size;
if($input !~ /^CNCT/) {
# we wait for a connected client
next;
}
logmsg "====> Client DATA connect\n";
while(sysread(DREAD, $input, $size)) {
if($input !~ /^CNCT/) {
# we wait for a connected client
logmsg "Odd, we got $input from client\n";
next;
}
logmsg "====> Client DATA connect\n";
last;
}
alarm 0;
};
if ($@) {