Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Now works with the BSD and Solaris ping

Browse Source
This commit is contained in:
var Arnfjr Bjarmason 2010-07-18 12:49:33 +02:00 committed by Steve Schnepp
parent ec5b5bd42d
commit b9dfa6b0a4
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
plugins/other/multipng_async
View File

@ -22,7 +22,7 @@ The following environment variables are used:
host - Whitespace-seperated list of hosts to ping
times - How many times to ping the hosts, 3 by default
timeout - The ping timeout (ping -W), 1 by default
timeout - The ping timeout (ping -W), 1 by default (ignored on Solaris)
title - The graph_title to use for the munin RRD graph
category - What category the graph should be in, network by default
@ -51,7 +51,8 @@ away from it due to having odd timing issues with it, and it had to
run as root.
This plugin requires the L<MooseX::POE> and L<POE::Quickie> modules
from CPAN.
from CPAN. It has been tested with the Linux, FreeBSD and Solaris
L<ping(1)> implementations.
=head1 AUTHOR
@ -138,22 +139,39 @@ sub START {
return;
}
for ($self->hosts) {
for my $host ($self->hosts) {
POE::Quickie->new->run(
Program => [ 'ping', '-c', $self->times, '-W', $self->timeout, => $_ ],
Program => [ $self->ping_arguments($host) ],
StdoutEvent => 'stdout',
ExitEvent => 'exit',
Context => $_,
Context => $host,
);
}
}
sub ping_arguments {
my ($self, $host) = @_;
given ($^O) {
when ('solaris') {
return ('ping', '-s', $host, '64', $self->times);
}
default {
# Linux and FreeBSD
return ('ping', '-c', $self->times, '-W', $self->timeout, => $host);
}
}
}
event stdout => sub {
my ($self, $output, undef, $context) = @_;
given ($output) {
my $noslash = qr{[^/]+};
when (m[^rtt min/avg/max/mdev = (?<min>$noslash)/(?<avg>$noslash)/(?<max>$noslash)/]) {
# Linux output: rtt min/avg/max/mdev = 7.218/7.255/7.293/0.030 ms
# BSD output : round-trip min/avg/max/stddev = 34.935/35.665/36.684/0.743 ms
# Solaris : round-trip (ms) min/avg/max/stddev = 5.82/5.95/6.01/0.11
when (m[= (?<min>$noslash)/(?<avg>$noslash)/(?<max>$noslash)/]) {
$self->response->{ $context } = $+{avg};
}
}