mirror of
https://github.com/Cacti/cacti.git
synced 2026-11-09 14:02:54 +09:00
Matthew Horan
eea6ab5c08
The ping script does not currently work with a hostname prefix of `udp:`, `udp6:`, or `tcp6:`.
47 lines
1.3 KiB
Prolog
47 lines
1.3 KiB
Prolog
#!/usr/bin/env perl
|
|
|
|
delete @ENV{qw(PATH)};
|
|
$ENV{PATH} = "/usr/bin:/bin:/sbin";
|
|
$path = $ENV{'PATH'};
|
|
|
|
# take care for tcp:hostname or TCP:ip@
|
|
$host = $ARGV[0];
|
|
$host =~ s/(?:tcp|udp)6?:/$1/gis;
|
|
|
|
# leave IPv6 in tact
|
|
if (($host =~ tr/:://) == 0) {
|
|
$host =~ s/:[0-9]{1,5}/$1/gis;
|
|
}
|
|
|
|
# Addition2
|
|
($host) = $host =~ /^([\w.:-]+)$/;
|
|
|
|
# always have the language in english
|
|
$ENV{LANG}='en_US.UTF-8';
|
|
|
|
# old linux version use 'icmp_seq'
|
|
# newer use 'icmp_req' instead
|
|
open(PROCESS, "ping -c 1 $host 2>&1 | grep -E '(icmp_[s|r]eq.*time|unknown host|Unknown host|not supported|Name or service not known|No address associated with name)' 2>/dev/null |");
|
|
$ping = <PROCESS>;
|
|
close(PROCESS);
|
|
chomp($ping);
|
|
|
|
if (($ping =~ 'unknown host') || ($ping =~ 'Unknown host') || ($ping =~ 'not supported') || ($ping =~ 'Name or service not known') || ($ping =~ 'No address associated with name')) {
|
|
if ((-f '/bin/ping6') || (-f '/sbin/ping6')) {
|
|
open(PROCESS, "ping6 -c 1 $host 2>&1 | grep 'icmp_[s|r]eq.*time' 2>/dev/null |");
|
|
$ping = <PROCESS>;
|
|
close(PROCESS);
|
|
chomp($ping);
|
|
}
|
|
}
|
|
|
|
$ping =~ m/(.*time=)(.*) (ms|usec)/;
|
|
|
|
if ($2 == '') {
|
|
print 'U'; # avoid cacti errors, but do not fake rrdtool stats
|
|
}elsif ($3 eq 'usec') {
|
|
print $2/1000; # re-calculate in units of 'ms'
|
|
}else{
|
|
print $2;
|
|
}
|