102 lines
1.9 KiB
Perl
Executable File
102 lines
1.9 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
# -*- perl -*-
|
|
|
|
=head1 NAME
|
|
|
|
dar_cpuusage - Munin plugin to monitor darwin cpu usage.
|
|
|
|
=head1 APPLICABLE SYSTEMS
|
|
|
|
Should work on any darwin (Mac OS X) system with the 'top' command.
|
|
|
|
=head1 CONFIGURATION
|
|
|
|
None needed
|
|
|
|
=head1 INTERPRETATION
|
|
|
|
The plugin runs the top command and shows the CPU usage for the machine.
|
|
|
|
=head1 BUGS
|
|
|
|
The stats are a snapshot at the time of the command - a 5 minute average would
|
|
be better.
|
|
|
|
=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/top" ) { print "no (top not found)\n"; }
|
|
else {
|
|
print "yes\n";
|
|
}
|
|
}
|
|
exit 0;
|
|
}
|
|
|
|
if ( $ARGV[0] eq "config" ) {
|
|
print "graph_title CPU usage\n";
|
|
print "graph_args --base 1000 -r --lower-limit 0 --upper-limit 100\n";
|
|
print "graph_vlabel %\n";
|
|
print "graph_scale no\n";
|
|
print "graph_category system\n";
|
|
print "sys.label system\n";
|
|
print "sys.type GAUGE\n";
|
|
print "sys.min 0\nsys.draw AREA\n";
|
|
print "user.label user\n";
|
|
print "user.type GAUGE\n";
|
|
print "user.min 0\nuser.draw STACK\n";
|
|
print "idle.label idle\n";
|
|
print "idle.type GAUGE\n";
|
|
print "idle.min 0\nidle.draw STACK\n";
|
|
exit 0;
|
|
}
|
|
}
|
|
|
|
@top = `top -l1 -n0 -u`;
|
|
$quit = 0;
|
|
for ( $i = 1; ($i < $#top and $quit == 0); $i++ ) {
|
|
if ( $top[$i] =~ /^CPU/ ) {
|
|
$usr = $sys = $idl = $top[$i];
|
|
$usr =~ s/^.+?: (\d+\.\d+)\% user.+$/$1/;
|
|
chomp($usr);
|
|
$sys =~ s/^.+?, (\d+\.\d+)\% sys.+$/$1/;
|
|
chomp($sys);
|
|
$idl =~ s/^.+?, (\d+\.\d+)\% idle.+$/$1/;
|
|
chomp($idl);
|
|
print "sys.value " . $sys . "\n";
|
|
print "user.value " . $usr . "\n";
|
|
print "idle.value " . $idl . "\n";
|
|
$quit = 1;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
# vim:syntax=perl
|