Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-08-02 14:18:21 +00: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
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 host - Whitespace-seperated list of hosts to ping
times - How many times to ping the hosts, 3 by default 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 title - The graph_title to use for the munin RRD graph
category - What category the graph should be in, network by default 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. run as root.
This plugin requires the L<MooseX::POE> and L<POE::Quickie> modules 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 =head1 AUTHOR
@ -138,22 +139,39 @@ sub START {
return; return;
} }
for ($self->hosts) { for my $host ($self->hosts) {
POE::Quickie->new->run( POE::Quickie->new->run(
Program => [ 'ping', '-c', $self->times, '-W', $self->timeout, => $_ ], Program => [ $self->ping_arguments($host) ],
StdoutEvent => 'stdout', StdoutEvent => 'stdout',
ExitEvent => 'exit', 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 { event stdout => sub {
my ($self, $output, undef, $context) = @_; my ($self, $output, undef, $context) = @_;
given ($output) { given ($output) {
my $noslash = qr{[^/]+}; 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}; $self->response->{ $context } = $+{avg};
} }
} }