rename the verifyftp function to verifyserver since it is used to verify
a wide variety of protocol servers
This commit is contained in:
Родитель
6add5baa3a
Коммит
4adf7d62d4
|
@ -617,7 +617,7 @@ sub verifyhttp {
|
|||
# server runs fine but we cannot talk to it ("Failed to connect to ::1: Can't
|
||||
# assign requested address" #
|
||||
|
||||
sub verifyftp {
|
||||
sub verifyserver {
|
||||
my ($proto, $ip, $port) = @_;
|
||||
my $pid;
|
||||
my $time=time();
|
||||
|
@ -625,7 +625,7 @@ sub verifyftp {
|
|||
if($proto eq "ftps") {
|
||||
$extra = "--insecure --ftp-ssl-control ";
|
||||
}
|
||||
my $cmd="$VCURL --max-time $server_response_maxtime --silent --verbose --globoff $extra\"$proto://$ip:$port/verifiedserver\" 2>$LOGDIR/verifyftp";
|
||||
my $cmd="$VCURL --max-time $server_response_maxtime --silent --verbose --globoff $extra\"$proto://$ip:$port/verifiedserver\" 2>$LOGDIR/verifyserver";
|
||||
# check if this is our server running on this port:
|
||||
my @data=runclientoutput($cmd);
|
||||
logmsg "RUN: $cmd\n" if($verbose);
|
||||
|
@ -750,12 +750,12 @@ sub verifysocks {
|
|||
|
||||
my %protofunc = ('http' => \&verifyhttp,
|
||||
'https' => \&verifyhttp,
|
||||
'ftp' => \&verifyftp,
|
||||
'pop3' => \&verifyftp,
|
||||
'imap' => \&verifyftp,
|
||||
'smtp' => \&verifyftp,
|
||||
'ftps' => \&verifyftp,
|
||||
'tftp' => \&verifyftp,
|
||||
'ftp' => \&verifyserver,
|
||||
'pop3' => \&verifyserver,
|
||||
'imap' => \&verifyserver,
|
||||
'smtp' => \&verifyserver,
|
||||
'ftps' => \&verifyserver,
|
||||
'tftp' => \&verifyserver,
|
||||
'ssh' => \&verifyssh,
|
||||
'socks' => \&verifysocks);
|
||||
|
||||
|
|
Загрузка…
Ссылка в новой задаче