tests/ftp.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

# 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;