mirror of
https://github.com/curl/curl.git
synced 2024-11-21 01:16:58 +08:00
20 lines
526 B
Raku
20 lines
526 B
Raku
# make sure no leftovers are still running
|
|
sub ftpkillslaves {
|
|
my ($versbose) = @_;
|
|
for $ext (("", "ipv6")) {
|
|
for $id (("", "2")) {
|
|
for $base (('filt', 'data')) {
|
|
my $f = ".sock$base$id$ext.pid";
|
|
my $pid = checkserver($f);
|
|
if($pid > 0) {
|
|
printf ("* kill pid for %-5s => %-5d\n", "ftp-$base$id$ext", $pid) if($verbose);
|
|
kill (9, $pid); # die!
|
|
}
|
|
unlink($f);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|