Loading tests/ftpserver.pl +8 −6 Original line number Diff line number Diff line Loading @@ -122,16 +122,16 @@ do { sub catch_zap { my $signame = shift; print STDERR "ftpserver.pl received SIG$signame, exiting\n"; ftpkillslaves(1); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); } die "Somebody sent me a SIG$signame"; exit; } $SIG{INT} = \&catch_zap; $SIG{KILL} = \&catch_zap; $SIG{TERM} = \&catch_zap; my $sfpid; Loading @@ -153,6 +153,7 @@ sub sysread_or_die { logmsg "Error: ftp$ftpdnum$ext sysread error: $!\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -166,6 +167,7 @@ sub sysread_or_die { logmsg "Error: ftp$ftpdnum$ext read zero\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -191,6 +193,7 @@ sub startsf { logmsg "Failed sockfilt command: $cmd\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -199,9 +202,6 @@ sub startsf { } } # remove the file here so that if startsf() fails, it is very noticeable unlink($pidfile); startsf(); logmsg sprintf("FTP server listens on port IPv%d/$port\n", $ipv6?6:4); Loading Loading @@ -939,6 +939,8 @@ while(1) { print SFWRITE "QUIT\n"; waitpid $sfpid, 0; unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading Loading
tests/ftpserver.pl +8 −6 Original line number Diff line number Diff line Loading @@ -122,16 +122,16 @@ do { sub catch_zap { my $signame = shift; print STDERR "ftpserver.pl received SIG$signame, exiting\n"; ftpkillslaves(1); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); } die "Somebody sent me a SIG$signame"; exit; } $SIG{INT} = \&catch_zap; $SIG{KILL} = \&catch_zap; $SIG{TERM} = \&catch_zap; my $sfpid; Loading @@ -153,6 +153,7 @@ sub sysread_or_die { logmsg "Error: ftp$ftpdnum$ext sysread error: $!\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -166,6 +167,7 @@ sub sysread_or_die { logmsg "Error: ftp$ftpdnum$ext read zero\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -191,6 +193,7 @@ sub startsf { logmsg "Failed sockfilt command: $cmd\n"; kill(9, $sfpid); waitpid($sfpid, 0); unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading @@ -199,9 +202,6 @@ sub startsf { } } # remove the file here so that if startsf() fails, it is very noticeable unlink($pidfile); startsf(); logmsg sprintf("FTP server listens on port IPv%d/$port\n", $ipv6?6:4); Loading Loading @@ -939,6 +939,8 @@ while(1) { print SFWRITE "QUIT\n"; waitpid $sfpid, 0; unlink($pidfile); if($serverlogslocked) { $serverlogslocked = 0; clear_advisor_read_lock($SERVERLOGS_LOCK); Loading