basic signal handler for sigint and sigkill

This commit is contained in:
Daniel Stenberg 2005-04-28 21:06:17 +00:00
parent 967ec296c0
commit 85f9e6c4b9

View File

@ -99,6 +99,15 @@ do {
}
} while(shift @ARGV);
sub catch_zap {
my $signame = shift;
print STDERR "ftpserver.pl received SIG$signame, exiting\n";
ftpkillslaves(1);
die "Somebody sent me a SIG$signame";
}
$SIG{INT} = \&catch_zap;
$SIG{KILL} = \&catch_zap;
my $sfpid;
sub startsf {