|
[-]
[+]
|
Added |
nagios-plugins-lsi.changes
|
|
|
|
[-]
[+]
|
Changed |
nagios-plugins-lsi.spec
^
|
|
|
|
[-]
[+]
|
Changed |
check_megaraid_sas
^
|
| @@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# check_megaraid_sas Nagios plugin
# Copyright (C) 2007 Jonathan Delgado, delgado@molbio.mgh.harvard.edu
@@ -25,41 +25,80 @@
#
# The paths for the Nagios plugins lib and MegaCli may need to me changed.
#
+# Code for correct RAID level reporting contributed by Frode Nordahl, 2009/01/12.
+# Some other code contributed by Morty Abzug, 2015-05-20
+#
# $Author: delgado $
-# $Revision: #3 $ $Date: 2007/06/07 $
+# $Revision: #12 $ $Date: 2010/10/18 $
use strict;
-use Getopt::Std;
-use lib "/usr/lib/nagios/plugins";
+use Getopt::Long;
+use lib qw(/usr/lib/nagios/plugins /usr/lib64/nagios/plugins); # possible pathes to your Nagios plugins and utils.pm
use utils qw(%ERRORS);
-our($opt_h, $opt_s);
-
-
-getopts('hs:');
-
-if ( $opt_h ) {
- print "usage w/o hotspare: $0\n";
- print " w/ hotspare: $0 -s <number of hotspares>\n";
- exit;
-}
-
-my $megacli = 'sudo /usr/sbin/MegaCli';
-
+my $megaclibin = '/usr/sbin/MegaCli'; # the full path to your MegaCli binary
+my $megacli = "$megaclibin"; # how we actually call MegaCli
+my $megapostopt = '-NoLog'; # additional options to call at the end of MegaCli arguments
my ($adapters);
my $hotspares = 0;
my $hotsparecount = 0;
my $pdbad = 0;
my $pdcount = 0;
-my $pderrors = 0;
+my $mediaerrors = 0;
+my $mediaallow = 0;
+my $consistency_check_is_ok = 0;
+my $missing_is_ok = 0;
+my $no_battery_is_ok = 0;
+my $prederrors = 0;
+my $predallow = 0;
+my $othererrors = 0;
+my $otherallow = 0;
my $result = '';
my $status = 'OK';
+my $sudo;
+my $checkbbu = 0;
+my $bbu_charge_no_warning = 0;
+my $check_cache;
+my $do_help;
+
+# handle options
+Getopt::Long::Configure("bundling");
+GetOptions(
+ "b|bbu_check" => \$checkbbu,
+ "B|bbu_charge_no_warning" => \$bbu_charge_no_warning,
+ "c|cache_check" => \$check_cache,
+ "h|help" => \$do_help,
+ "m|media_allow=i" => \$mediaallow,
+ "consistency_check_is_ok" => \$consistency_check_is_ok,
+ "missing_is_ok" => \$missing_is_ok,
+ "no_battery_is_ok" => \$no_battery_is_ok,
+ "o|other_allow=i" => \$otherallow,
+ "p|pred_allow=i" => \$predallow,
+ "s|hotspares=i" => \$hotspares,
+ "sudo" => \$sudo,
+ );
+
+if ( $do_help ) {
+ print "Usage: $0 [-s number] [-m number] [-o number]\n";
+ print " -b check Battery Back Up status\n";
+ print " -B battery back up charging state is not a warning\n";
+ print " -c check that current cache policy matches default policy\n";
+ print " -m is the number of media errors to ignore\n";
+ print " --consistency_check_is_ok consistency checks are OK\n";
+ print " --missing_is_ok test returns OK if MegaCli is not present\n";
+ print " --no_battery_is_ok lack of a battery is not a problem\n";
+ print " -p is the predictive error count to ignore\n";
+ print " -o is the number of other disk errors to ignore\n";
+ print " -s is how many hotspares are attached to the controller\n";
+ print " --sudo should sudo be enabled\n";
+ exit;
+}
sub max_state ($$) {
my ($current, $compare) = @_;
- if (($compare eq 'CRITICAL') || ($compare eq 'CRITICAL')) {
+ if (($compare eq 'CRITICAL') || ($current eq 'CRITICAL')) {
return 'CRITICAL';
} elsif ($compare eq 'OK') {
return $current;
@@ -72,14 +111,28 @@
}
}
+sub exitreport ($$) {
+ my ($status, $message) = @_;
+
+ print STDOUT "$status: $message\n";
+ exit $ERRORS{$status};
+}
+
-if ( $opt_s ) {
- $hotspares = $opt_s;
+# Some sanity checks that you actually have something where you think MegaCli is
+if (! -e $megaclibin) {
+ if ($missing_is_ok) {
+ exitreport($status, "$megaclibin is not present, missing_is_ok set")
+ } else {
+ exitreport('UNKNOWN',"error: $megaclibin does not exist");
+ }
}
+$megacli="sudo $megacli" if $sudo;
+
# Get the number of RAID controllers we have
-open (ADPCOUNT, "$megacli -adpCount |")
- || die "error: Could not execute MegaCli -adpCount";
+open (ADPCOUNT, "$megacli -adpCount $megapostopt |")
+ || exitreport('UNKNOWN',"error: Could not execute $megacli -adpCount $megapostopt");
while (<ADPCOUNT>) {
if ( m/Controller Count:\s*(\d+)/ ) {
@@ -89,14 +142,78 @@
}
close ADPCOUNT;
+exitreport('UNKNOWN',"error: unable to get controller count")
+ if !defined $adapters;
+
ADAPTER: for ( my $adp = 0; $adp < $adapters; $adp++ ) {
+ $result .= "$adp:";
+ # Get the Battery Back Up state for this adapter
+ my ($bbustate);
+ if ($checkbbu) {
+ open (BBUGETSTATUS, "$megacli -AdpBbuCmd -GetBbuStatus -a$adp $megapostopt |")
+ || exitreport('UNKNOWN', "error: Could not execute $megacli -AdpBbuCmd -GetBbuStatus -a$adp $megapostopt");
+
+ my ($bbucharging, $bbufullycharged, $bburelativecharge, $bbuexitcode);
+ my ($batterystate, $batteryreplacement, $issohgood);
+ while (<BBUGETSTATUS>) {
+ # Charging Status
+ if ( m/Charging Status\s*:\s*(\w+)/i ) {
+ $bbucharging = $1;
+ } elsif ( m/Battery State\s*:\s*(\w+.*)/i) { # sometimes contains a space
+ $batterystate = $1;
+ } elsif ( m/Fully Charged\s*:\s*(\w+)/i ) {
+ $bbufullycharged = $1;
+ } elsif ( m/Relative State of Charge\s*:\s*(\w+)/i ) {
+ $bburelativecharge = $1;
+ } elsif ( m/Exit Code\s*:\s*(\w+)/i ) {
+ $bbuexitcode = $1;
+ } elsif ( m/^\s*Battery Replacement required\s*:\s(\w+)\s*$/i) {
+ $batteryreplacement = $1;
+ } elsif ( m/^\s*isSOHGood\s*:\s*(\w+)\s*$/i) {
+ $issohgood = $1;
+ }
+ }
+ close BBUGETSTATUS;
+
+ # Determine the BBU state
+ if ( !defined $bbuexitcode || $bbuexitcode ne '0x00' ) {
+ if (!$no_battery_is_ok) {
+ $bbustate = 'NOT FOUND';
+ $status = max_state($status, 'CRITICAL');
+ } else {
+ $bbustate = 'not found which could be ok';
+ }
+ } elsif ( lc $batteryreplacement ne 'no' ) {
+ $bbustate = 'battery needs replacing';
+ $status = max_state($status, 'CRITICAL');
+ } elsif ( defined $issohgood && lc $issohgood ne 'yes' ) {
+ $bbustate = 'battery SOH is not good';
+ $status = max_state($status, 'CRITICAL');
+ } elsif ( $bbucharging ne 'None' && !$bbu_charge_no_warning) {
+ $bbustate = 'Charging (' . $bburelativecharge . '%)';
+ $status = max_state($status, 'WARNING');
+ } elsif ( defined $bbufullycharged && $bbufullycharged ne 'Yes' && !$bbu_charge_no_warning) {
+ # some adapters don't report on "Fully Charged", so
+ # it's OK if it's not defined.
+ $bbustate = 'Not Charging (' . $bburelativecharge . '%)';
+ $status = max_state($status, 'WARNING');
+ } elsif ( defined $batterystate && $batterystate ne 'Optimal' &&
+ $batterystate ne 'Operational') {
+ $bbustate = $batterystate;
|
|
[-]
[+]
|
Added |
check_megaraid_sas.old
^
|
| @@ -0,0 +1,191 @@
+#!/usr/bin/perl
+
+# check_megaraid_sas Nagios plugin
+# Copyright (C) 2007 Jonathan Delgado, delgado@molbio.mgh.harvard.edu
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+#
+#
+# Nagios plugin to monitor the status of volumes attached to a LSI Megaraid SAS
+# controller, such as the Dell PERC5/i and PERC5/e. If you have any hotspares
+# attached to the controller, you can specify the number you should expect to
+# find with the '-s' flag.
+#
+# The paths for the Nagios plugins lib and MegaCli may need to me changed.
+#
+# $Author: delgado $
+# $Revision: #3 $ $Date: 2007/06/07 $
+
+use strict;
+use Getopt::Std;
+use lib "/usr/lib/nagios/plugins";
+use utils qw(%ERRORS);
+
+our($opt_h, $opt_s);
+
+
+getopts('hs:');
+
+if ( $opt_h ) {
+ print "usage w/o hotspare: $0\n";
+ print " w/ hotspare: $0 -s <number of hotspares>\n";
+ exit;
+}
+
+my $megacli = 'sudo /usr/sbin/MegaCli';
+
+
+my ($adapters);
+my $hotspares = 0;
+my $hotsparecount = 0;
+my $pdbad = 0;
+my $pdcount = 0;
+my $pderrors = 0;
+my $result = '';
+my $status = 'OK';
+
+sub max_state ($$) {
+ my ($current, $compare) = @_;
+
+ if (($compare eq 'CRITICAL') || ($compare eq 'CRITICAL')) {
+ return 'CRITICAL';
+ } elsif ($compare eq 'OK') {
+ return $current;
+ } elsif ($compare eq 'WARNING') {
+ return 'WARNING';
+ } elsif (($compare eq 'UNKNOWN') && ($current eq 'OK')) {
+ return 'UNKNOWN';
+ } else {
+ return $current;
+ }
+}
+
+
+if ( $opt_s ) {
+ $hotspares = $opt_s;
+}
+
+# Get the number of RAID controllers we have
+open (ADPCOUNT, "$megacli -adpCount |")
+ || die "error: Could not execute MegaCli -adpCount";
+
+while (<ADPCOUNT>) {
+ if ( m/Controller Count:\s*(\d+)/ ) {
+ $adapters = $1;
+ last;
+ }
+}
+close ADPCOUNT;
+
+ADAPTER: for ( my $adp = 0; $adp < $adapters; $adp++ ) {
+ # Get the number of logical drives on this adapter
+ open (LDGETNUM, "$megacli -LdGetNum -a$adp |")
+ || die "error: Could not execute $megacli -LdGetNum -a$adp";
+
+ my ($ldnum);
+ while (<LDGETNUM>) {
+ if ( m/Number of Virtual drives configured on adapter \d:\s*(\d+)/ ) {
+ $ldnum = $1;
+ last;
+ }
+ }
+ close LDGETNUM;
+
+ LDISK: for ( my $ld = 0; $ld < $ldnum; $ld++ ) {
+ # Get info on this particular logical drive
+ open (LDINFO, "$megacli -LdInfo -L$ld -a$adp |")
+ || die "error: Could not execute $megacli -LdInfo -L$ld -a$adp";
+
+ my ($size, $unit, $raidlevel, $ldpdcount, $state);
+ while (<LDINFO>) {
+ if ( m/Size:\s*((\d+)(MB|GB|TB))/ ) {
+ $size = $2;
+ $unit = $3;
+ # Adjust MB to GB if that's what we got
+ if ( $unit eq 'MB' ) {
+ $size = sprintf( "%.0f", ($size / 1024) );
+ $unit= 'GB';
+ }
+ } elsif ( m/State:\s*(\w+)/ ) {
+ $state = $1;
+ if ( $state ne 'Optimal' ) {
+ $status = 'CRITICAL';
+ }
+ } elsif ( m/Number Of Drives:\s*(\d+)/ ) {
+ $ldpdcount = $1;
+ } elsif ( m/RAID Level: Primary-(\d)/ ) {
+ $raidlevel = $1;
+ }
+ }
+ close LDINFO;
+
+ $result .= "$adp:$ld:RAID-$raidlevel:$ldpdcount drives:$size$unit:$state ";
+
+ } #LDISK
+ close LDINFO;
+
+ # Get info on physical disks for this adapter
+ open (PDLIST, "$megacli -PdList -a$adp |")
+ || die "error: Could not execute $megacli -PdList -a$adp";
+
+ my ($slotnumber,$fwstate);
+ PDISKS: while (<PDLIST>) {
+ if ( m/Slot Number:\s*(\d+)/ ) {
+ $slotnumber = $1;
+ $pdcount++ unless ( $slotnumber == 255 );
+ } elsif ( m/Error Count:\s*(\d+)/ ) {
+ $pderrors += $1;
+ } elsif ( m/Predictive Failure Count:\s*(\d+)/ ) {
+ $pderrors += $1;
+ } elsif ( m/Firmware state:\s*(\w+)/ ) {
+ $fwstate = $1;
+ if ( $fwstate eq 'Hotspare' ) {
+ $hotsparecount++;
+ } elsif ( $fwstate eq 'Online' ) {
+ # Do nothing
+ } elsif ( $slotnumber != 255 ) {
+ $pdbad++;
+ $status = 'CRITICAL';
+ }
+ }
+ } #PDISKS
+ close PDLIST;
+}
+
+$result .= "Drives:$pdcount ";
+
+# Any bad disks?
+if ( $pdbad ) {
+ $result .= "$pdbad Bad Drives ";
+}
+
+# Were there any errors?
+if ( $pderrors ) {
+ $result .= "($pderrors Errors) ";
+ $status = max_state($status, 'WARNING');
+}
+
+# Do we have as many hotspares as expected (if any)
+if ( $hotspares ) {
+ if ( $hotsparecount < $hotspares ) {
+ $status = max_state($status, 'WARNING');
+ $result .= "Hotspare(s):$hotsparecount (of $hotspares)";
+ } else {
+ $result .= "Hotspare(s):$hotsparecount";
+ }
+}
+
+print STDOUT "$status: $result\n";
+exit $ERRORS{$status};
|
