2007-06-05 Sancho Lerena <slerena@gmail.com>

* pandora_network.pm: Small bug that causes some hosts to do not reply
        at ICMP request with a small payload (1 byte). Now uses by default
        32 bytes per reply. Also modified icmp_data for latency checks because
        was not using global timeout and has the same problems with small
        payloads.



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@487 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f
This commit is contained in:
slerena 2007-06-05 18:37:13 +00:00
parent 9442a8818a
commit f016097c8c
2 changed files with 5 additions and 3 deletions

View File

@ -2,7 +2,9 @@
* pandora_network.pm: Small bug that causes some hosts to do not reply
at ICMP request with a small payload (1 byte). Now uses by default
32 bytes per reply.
32 bytes per reply. Also modified icmp_data for latency checks because
was not using global timeout and has the same problems with small
payloads.
2007-06-04 Raúl Mateos <rmateos@netscape.net>

View File

@ -333,7 +333,7 @@ sub pandora_ping_icmp {
if (!defined($dest)) {
return 0;
}
// Some hosts don't accept ICMP with too small payload. Use 32Bytes
# Some hosts don't accept ICMP with too small payload. Use 32Bytes
$p = Net::Ping->new("icmp",$l_timeout,32);
$result = $p->ping($dest);
@ -536,7 +536,7 @@ sub exec_network_module {
} elsif ($id_tipo_modulo == 7){ # ICMP (data for latency in ms)
# This module only could be executed if executed as root
if ($> == 0){
my $nm = Net::Ping->new("icmp");
my $nm = Net::Ping->new("icmp", $pa_config->{'networktimeout'}, 32);
my $icmp_return;
my $icmp_reply;
my $icmp_ip;