14424f7058
level stuff. The FTP server communicates with sockfilt using perl's open2(). This enables easier IPv6 support and hopefully FTP-SSL support in the future. Added four test cases for FTP-ipv6.
18 lines
414 B
Raku
18 lines
414 B
Raku
# make sure no leftovers are still running
|
|
sub ftpkillslaves {
|
|
for $ext (("", "ipv6")) {
|
|
for $id (("", "2")) {
|
|
for $base (('filt', 'data')) {
|
|
my $f = ".sock$base$id$ext.pid";
|
|
my $pid = checkserver($f);
|
|
if($pid > 0) {
|
|
kill (9, $pid); # die!
|
|
}
|
|
unlink($f);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|