Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-22 22:25:23 +00:00
Code Issues Releases Wiki Activity

- Fixed key that was based on $index and no unique name (when you changed a url, old stats were kept)

Browse source 
- Indentation changed to soft tabs
This commit is contained in:
Thomas VIAL 2013-08-20 10:33:34 +02:00
parent 9ec552e04e
commit 1dddd2fbc4
1 changed files with 40 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

18
plugins/network/multiping
View file

@ -82,21 +82,25 @@ if ((exists $ARGV[0]) && ($ARGV[0] eq "config")) {
print "graph_category network\n"; print "graph_category network\n";
print "graph_info This graph shows ping RTT statistics.\n"; print "graph_info This graph shows ping RTT statistics.\n";
for (my $site=1; $site<=$#hosts+1; $site++) { for (my $site=1; $site<=$#hosts+1; $site++) {
print "site$site.label $names[$site-1]\n"; my $item = lc($hosts[$site-1]);
print "site$site.info Ping RTT statistics for $hosts[$site-1].\n"; $item =~ s/\.//g;
print "site$site.draw LINE2\n"; print "$item.label $names[$site-1]\n";
print "site${site}_packetloss.label $names[$site-1] packet loss\n"; print "$item.info Ping RTT statistics for $hosts[$site-1].\n";
print "site${site}_packetloss.graph no\n"; print "$item.draw LINE2\n";
print "${item}_packetloss.label $names[$site-1] packet loss\n";
print "${item}_packetloss.graph no\n";
} }
exit 0; exit 0;
} }
for (my $site=1; $site<=$#hosts+1; $site++) { for (my $site=1; $site<=$#hosts+1; $site++) {
my $item = lc($hosts[$site-1]);
$item =~ s/\.//g;
my $host = $hosts[$site-1]; my $host = $hosts[$site-1];
my @ping = `$ping_cmd $ping_args $host $ping_args2`; my @ping = `$ping_cmd $ping_args $host $ping_args2`;
chomp @ping; chomp @ping;
my $ping = join(" ", @ping); my $ping = join(" ", @ping);
print "site".$site.".value ".($1 / 1000)."\n" if ($ping =~ m@min/avg/max.*\s\d+(?:\.\d+)?/(\d+(?:\.\d+)?)/\d+(?:\.\d+)?@); print $item.".value ".($1 / 1000)."\n" if ($ping =~ m@min/avg/max.*\s\d+(?:\.\d+)?/(\d+(?:\.\d+)?)/\d+(?:\.\d+)?@);
print "site".$site."_packetloss.value $1\n" if ($ping =~ /(\d+)% packet loss/); print $item."_packetloss.value $1\n" if ($ping =~ /(\d+)% packet loss/);
} }