fix warnings
This commit is contained in:
@@ -728,7 +728,7 @@ sub verifyhttp {
|
|||||||
sub verifyftp {
|
sub verifyftp {
|
||||||
my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
|
my ($proto, $ipvnum, $idnum, $ip, $port) = @_;
|
||||||
my $server = servername_id($proto, $ipvnum, $idnum);
|
my $server = servername_id($proto, $ipvnum, $idnum);
|
||||||
my $pid;
|
my $pid = 0;
|
||||||
my $time=time();
|
my $time=time();
|
||||||
my $extra="";
|
my $extra="";
|
||||||
if($proto eq "ftps") {
|
if($proto eq "ftps") {
|
||||||
@@ -755,7 +755,7 @@ sub verifyftp {
|
|||||||
last;
|
last;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if($pid <= 0 && $data[0]) {
|
if($pid <= 0 && @data && $data[0]) {
|
||||||
# this is not a known server
|
# this is not a known server
|
||||||
logmsg "RUN: Unknown server on our ". uc($proto) ." port: $port\n";
|
logmsg "RUN: Unknown server on our ". uc($proto) ." port: $port\n";
|
||||||
return 0;
|
return 0;
|
||||||
|
|||||||
Reference in New Issue
Block a user