This is done to back out changes done in revisions 1.77 and 1.75
sub catch_zap {
my $signame = shift;
print STDERR "ftpserver.pl received SIG$signame, exiting\n";
- ftpkillslave($ftpdnum, $ext, 1);
+ ftpkillslaves(1);
die "Somebody sent me a SIG$signame";
}
$SIG{INT} = \&catch_zap;
my $pasvport;
my $pidf=".sockdata$ftpdnum$ext.pid";
- my $prev = checkalivepidfile($pidf);
+ my $prev = checkserver($pidf);
if($prev > 0) {
print "kill existing server: $prev\n" if($verbose);
kill(9, $prev);