97 lines
1.8 KiB
Plaintext
97 lines
1.8 KiB
Plaintext
|
#!/usr/bin/perl
|
||
|
|
# -*- perl -*-
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
dar_uptime - Munin plugin to monitor darwin system uptime.
|
||
|
|
|
||
|
|
=head1 APPLICABLE SYSTEMS
|
||
|
|
|
||
|
|
Should work on any darwin (Mac OS X) system with the 'uptime' command.
|
||
|
|
|
||
|
|
=head1 CONFIGURATION
|
||
|
|
|
||
|
|
None needed
|
||
|
|
|
||
|
|
=head1 INTERPRETATION
|
||
|
|
|
||
|
|
The plugin runs the uptime command, and parses the value into days.
|
||
|
|
|
||
|
|
=head1 BUGS
|
||
|
|
|
||
|
|
Limited test data set, probably fails some of the time - very likely
|
||
|
|
on systems with a very low uptime.
|
||
|
|
|
||
|
|
=head1 MAGIC MARKERS
|
||
|
|
|
||
|
|
#%# family=auto
|
||
|
|
#%# capabilities=autoconf
|
||
|
|
|
||
|
|
=head1 VERSION
|
||
|
|
|
||
|
|
v.0.0.1
|
||
|
|
|
||
|
|
=head1 AUTHOR
|
||
|
|
|
||
|
|
Copyright (C) 2010.
|
||
|
|
|
||
|
|
Original version by J.T.Sage (at) gmail (dot) com.
|
||
|
|
|
||
|
|
=head1 LICENSE
|
||
|
|
|
||
|
|
GPLv2
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
use Munin::Plugin;
|
||
|
|
|
||
|
|
if ( defined($ARGV[0])) {
|
||
|
|
if ($ARGV[0] eq 'autoconf') {
|
||
|
|
$uname = `uname`;
|
||
|
|
if ( not ( $uname =~ /Darwin/ ) ) { print "no (not a Darwin System)\n"; }
|
||
|
|
else {
|
||
|
|
if ( not -x "/usr/bin/uptime" ) { print "no (uptime not found)\n"; }
|
||
|
|
else {
|
||
|
|
print "yes\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
exit 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $ARGV[0] eq "config" ) {
|
||
|
|
print "graph_title Uptime\n";
|
||
|
|
print "graph_args --base 1000 -l 0 \n";
|
||
|
|
print "graph_vlabel uptime in days\n";
|
||
|
|
print "graph_category system\n";
|
||
|
|
print "uptime.label uptime\n";
|
||
|
|
print "uptime.draw AREA\n";
|
||
|
|
exit 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
@uptime = `/usr/bin/uptime`;
|
||
|
|
foreach(@uptime) {
|
||
|
|
$_ =~ m/^.+up (.+?), \d+ us.+$/;
|
||
|
|
$timestr = $1;
|
||
|
|
if ( $timestr =~ m/^(\d+) day.+?$/ ) {
|
||
|
|
$days = $1;
|
||
|
|
} else { $days = 0; }
|
||
|
|
if ( $timestr =~ m/(\d+) h/ ) {
|
||
|
|
$hrs = $1;
|
||
|
|
} else { $hrs = 0; }
|
||
|
|
if ( $timestr =~ m/(\d+)\:(\d+)/ ) {
|
||
|
|
$hours = $1; $min = $2;
|
||
|
|
} else { $hours = 0; $min = 0; }
|
||
|
|
if ( $timestr =~ m/(\d+) m/ ) {
|
||
|
|
$mint = $1;
|
||
|
|
} else {
|
||
|
|
$mint = 0;
|
||
|
|
}
|
||
|
|
$total = ( $days * 24 * 60 * 60 ) + ( ( $hrs + $hours ) * 60 * 60 ) + ( ( $min + $mint ) * 60 );
|
||
|
|
$daysf = $total / ( 24 * 60 * 60 );
|
||
|
|
$daysi = ( int( $daysf * 1000 ) / 1000 );
|
||
|
|
print "uptime.value " . $daysi . "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# vim:syntax=perl
|