revert that, we already had a function named like that!
This commit is contained in:
@@ -617,7 +617,7 @@ sub verifyhttp {
|
|||||||
# server runs fine but we cannot talk to it ("Failed to connect to ::1: Can't
|
# server runs fine but we cannot talk to it ("Failed to connect to ::1: Can't
|
||||||
# assign requested address" #
|
# assign requested address" #
|
||||||
|
|
||||||
sub verifyserver {
|
sub verifyftp {
|
||||||
my ($proto, $ip, $port) = @_;
|
my ($proto, $ip, $port) = @_;
|
||||||
my $pid;
|
my $pid;
|
||||||
my $time=time();
|
my $time=time();
|
||||||
@@ -625,7 +625,7 @@ sub verifyserver {
|
|||||||
if($proto eq "ftps") {
|
if($proto eq "ftps") {
|
||||||
$extra = "--insecure --ftp-ssl-control ";
|
$extra = "--insecure --ftp-ssl-control ";
|
||||||
}
|
}
|
||||||
my $cmd="$VCURL --max-time $server_response_maxtime --silent --verbose --globoff $extra\"$proto://$ip:$port/verifiedserver\" 2>$LOGDIR/verifyserver";
|
my $cmd="$VCURL --max-time $server_response_maxtime --silent --verbose --globoff $extra\"$proto://$ip:$port/verifiedserver\" 2>$LOGDIR/verifyftp";
|
||||||
# check if this is our server running on this port:
|
# check if this is our server running on this port:
|
||||||
my @data=runclientoutput($cmd);
|
my @data=runclientoutput($cmd);
|
||||||
logmsg "RUN: $cmd\n" if($verbose);
|
logmsg "RUN: $cmd\n" if($verbose);
|
||||||
@@ -750,12 +750,12 @@ sub verifysocks {
|
|||||||
|
|
||||||
my %protofunc = ('http' => \&verifyhttp,
|
my %protofunc = ('http' => \&verifyhttp,
|
||||||
'https' => \&verifyhttp,
|
'https' => \&verifyhttp,
|
||||||
'ftp' => \&verifyserver,
|
'ftp' => \&verifyftp,
|
||||||
'pop3' => \&verifyserver,
|
'pop3' => \&verifyftp,
|
||||||
'imap' => \&verifyserver,
|
'imap' => \&verifyftp,
|
||||||
'smtp' => \&verifyserver,
|
'smtp' => \&verifyftp,
|
||||||
'ftps' => \&verifyserver,
|
'ftps' => \&verifyftp,
|
||||||
'tftp' => \&verifyserver,
|
'tftp' => \&verifyftp,
|
||||||
'ssh' => \&verifyssh,
|
'ssh' => \&verifyssh,
|
||||||
'socks' => \&verifysocks);
|
'socks' => \&verifysocks);
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user