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);
kill (9, $pid); # die!
}
unlink($f);
#######################################################################
# Stop all running test servers
sub stopservers {
- print "Shutting down test suite servers:\n" if ($verbose);
for(keys %run) {
- printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_}) if($verbose);
+ printf ("* kill pid for %-5s => %-5d\n", $_, $run{$_});
stopserver($run{$_}); # the pid file is in the hash table
}
ftpkillslaves();