From 82f5ffff8f183720aaee296b48cd67c4c003ece5 Mon Sep 17 00:00:00 2001 From: Yang Tse Date: Tue, 12 Jan 2010 14:01:44 +0000 Subject: [PATCH] Make sockfilter kill messages look alike server ones --- tests/ftp.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tests/ftp.pm b/tests/ftp.pm index 3bacb6f35..0f4976c7c 100644 --- a/tests/ftp.pm +++ b/tests/ftp.pm @@ -25,7 +25,7 @@ use strict; use warnings; use serverhelp qw( - servername_str + servername_id mainsockf_pidfilename datasockf_pidfilename ); @@ -178,19 +178,19 @@ sub killpid { # sub killsockfilters { my ($proto, $ipvnum, $idnum, $verbose) = @_; - my $srvrname; + my $server; my $pidfile; my $pid; return if($proto !~ /^(ftp|imap|pop3|smtp)$/); - $srvrname = servername_str($proto, $ipvnum, $idnum) if($verbose); + $server = servername_id($proto, $ipvnum, $idnum) if($verbose); - $pidfile = "./". mainsockf_pidfilename($proto, $ipvnum, $idnum); + $pidfile = mainsockf_pidfilename($proto, $ipvnum, $idnum); $pid = processexists($pidfile); if($pid > 0) { - printf("* kill pid for %s => %d\n", "${srvrname}-CTRL", $pid) - if($verbose); + printf("* kill pid for %s-%s => %d\n", $server, + ($proto eq 'ftp')?'ctrl':'filt', $pid) if($verbose); kill("KILL", $pid); waitpid($pid, 0); } @@ -198,11 +198,11 @@ sub killsockfilters { return if($proto ne 'ftp'); - $pidfile = "./". datasockf_pidfilename($proto, $ipvnum, $idnum); + $pidfile = datasockf_pidfilename($proto, $ipvnum, $idnum); $pid = processexists($pidfile); if($pid > 0) { - printf("* kill pid for %s => %d\n", "${srvrname}-DATA", $pid) - if($verbose); + printf("* kill pid for %s-data => %d\n", $server, + $pid) if($verbose); kill("KILL", $pid); waitpid($pid, 0); }