basic signal handler for sigint and sigkill

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index a3837f9341eff1b0952453fc575675a9161f7464..6c8969745ea0d366632ce0441a36328a8bab632e 100644 (file)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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 {