tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pandora_server/ChangeLog
View File

@ -2,7 +2,9 @@
* pandora_network.pm: Small bug that causes some hosts to do not reply * 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 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> 2007-06-04 Raúl Mateos <rmateos@netscape.net>

4
pandora_server/bin/pandora_network.pl
View File

@ -333,7 +333,7 @@ sub pandora_ping_icmp {
if (!defined($dest)) { if (!defined($dest)) {
return 0; 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); $p = Net::Ping->new("icmp",$l_timeout,32);
$result = $p->ping($dest); $result = $p->ping($dest);
@ -536,7 +536,7 @@ sub exec_network_module {
} elsif ($id_tipo_modulo == 7){ # ICMP (data for latency in ms) } elsif ($id_tipo_modulo == 7){ # ICMP (data for latency in ms)
# This module only could be executed if executed as root # This module only could be executed if executed as root
if ($> == 0){ if ($> == 0){
my $nm = Net::Ping->new("icmp"); my $nm = Net::Ping->new("icmp", $pa_config->{'networktimeout'}, 32);
my $icmp_return; my $icmp_return;
my $icmp_reply; my $icmp_reply;
my $icmp_ip; my $icmp_ip;