2005-04-18 02:57:44 -04:00
|
|
|
# make sure no leftovers are still running
|
|
|
|
sub ftpkillslaves {
|
2005-04-28 10:25:48 -04:00
|
|
|
my ($versbose) = @_;
|
2005-04-18 02:57:44 -04:00
|
|
|
for $ext (("", "ipv6")) {
|
|
|
|
for $id (("", "2")) {
|
|
|
|
for $base (('filt', 'data')) {
|
|
|
|
my $f = ".sock$base$id$ext.pid";
|
|
|
|
my $pid = checkserver($f);
|
|
|
|
if($pid > 0) {
|
2005-04-28 10:25:48 -04:00
|
|
|
printf ("* kill pid for %-5s => %-5d\n", "ftp-$base$id$ext", $pid) if($verbose);
|
2005-04-18 02:57:44 -04:00
|
|
|
kill (9, $pid); # die!
|
|
|
|
}
|
|
|
|
unlink($f);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|