Munin Ping Plugin - Changed to show one ping per graph

I started with the very nice ping script from the consttype blog, but I didn't like that the graph was so hard to read with multiple ping hosts that had similar latencies, and it would time out with more than three IP addresses, and that it took the best ping rather than the average.   So I have changed it to use a faster ping, report a ping of 1000 when it fails to connect (so you get a spike rather than a gap) and be linkable with ping_ipaddress format.

So for example you can put the contents of this plugin in a file in /usr/local/libexec/munin/ping_

Then link to it from munin

cd /etc/munin/plugins
ln -s /usr/local/libexec/munin/ping_ ping_127.0.0.1
/etc/init.d/munin-node restart

This is released under the GPL, same as Munin.  Enjoy.

#!/usr/bin/perl -w
# usage: Link this script as ping_[ipaddr]

use strict;

my $host = $0;
$host =~ s/.*ping_([\d\.]{8,15})$/$1/;

if (@ARGV && $ARGV[0] eq 'config') {
    print </dev/null);
	my $times = $ping[-1];
	my $val = '';
	# second term is avg
	if ($times =~ m{^rtt min/avg/max/mdev = [\d\.]+\/([\d\.]+)}) {
	    $val = $1;
	}else{
	    $val = 1000;
	}
	print "$name.value $val\n";

}