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

kill slave processes when they fail

Browse Source
This commit is contained in:
Daniel Stenberg
2005-04-28 07:36:55 +00:00
parent 51b17b299c
commit 8cf1786296
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/ftpserver.pl
View File

@@ -111,6 +111,8 @@ sub startsf {
my $pong = <SFREAD>; my $pong = <SFREAD>;
if($pong !~ /^PONG/) { if($pong !~ /^PONG/) {
logmsg "Failed sockfilt command: $cmd\n";
kill(9, $sfpid);
die "Failed to start sockfilt!"; die "Failed to start sockfilt!";
} }
open(STDIN, "<&SFREAD") || die "can't dup client to stdin"; open(STDIN, "<&SFREAD") || die "can't dup client to stdin";
@@ -526,8 +528,9 @@ sub PASV_command {
my $pong = <DREAD>; my $pong = <DREAD>;
if($pong !~ /^PONG/) { if($pong !~ /^PONG/) {
kill(9, $slavepid);
sendcontrol "500 no free ports!\r\n"; sendcontrol "500 no free ports!\r\n";
logmsg "couldn't find free port\n"; logmsg "failed to run sockfilt for data connection\n";
return 0; return 0;
} }
@@ -647,7 +650,8 @@ sub PORT_command {
my $pong = <DREAD>; my $pong = <DREAD>;
if($pong !~ /^PONG/) { if($pong !~ /^PONG/) {
logmsg "sockfilt failed!\n"; logmsg "Failed sockfilt for data connection\n";
kill(9, $slavepid);
} }
logmsg "====> Client DATA connect to port $port\n"; logmsg "====> Client DATA connect to port $port\n";