2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00

Initial version

This commit is contained in:
Nathan Rutman 2007-03-07 20:19:58 +01:00 committed by Steve Schnepp
parent beef8c8e15
commit 6e2925190b

67
plugins/other/raid Executable file
View File

@ -0,0 +1,67 @@
#!/usr/bin/perl -w
#
# (c) 2007 Nathan Rutman nathan@clusterfs.com
#
# Plugin to monitor RAID status
#
# Results are % of healthy drives in a raid device
#
#
#%# family=contrib
#%# capabilities=autoconf
if ($ARGV[0] and $ARGV[0] eq "autoconf")
{
if (-r "/proc/mdstat" and `grep md /proc/mdstat`)
{
print "yes\n";
exit 0;
}
else
{
print "no RAID devices\n";
exit 1;
}
}
if ( $ARGV[0] and $ARGV[0] eq "config" )
{
print "graph_title RAID status\n";
print "graph_category disk\n";
print "graph_info This graph monitors RAID disk health. Values are percentage of healthy drives in each raid group. Degraded devices are marked Critical.\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel % healthy\n";
print "graph_scale no\n";
}
{
local( $/, *MDSTAT ) ;
open (MDSTAT, "/proc/mdstat") or exit 1;
#open (MDSTAT, "/etc/munin/plugins/sample.failed") or exit 1;
my $text = <MDSTAT>;
close MDSTAT;
while ($text =~ /(md\d)\s+:\s+active\s+(\w+)\s+(.*)\n.*\[(\d+)\/(\d+)]\s+\[(\w+)]/ )
{
my($dev,$type,$members,$nmem,$nact,$status) = ($1,$2,$3,$4,$5,$6);
#print "item: $dev $type ($members) status=$status \n";
if ( $ARGV[0] and $ARGV[0] eq "config" )
{
print "$dev.label $dev\n";
print "$dev.info $type $members\n";
# 100: means less than 100
print "$dev.critical 100:\n";
}
else
{
my $pct = 100 * $nact / $nmem;
print "$dev.value $pct\n";
}
$text = $';
}
}
exit 0;
# vim:syntax=perl