contrib/check_linux_raid.pl

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (c) 2002 ISOMEDIA, Inc.
   4 # originally written by Steve Milton
   5 # later updates by sean finney <seanius@seanius.net>
   6 #
   7 # This program is free software; you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 2 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # This program is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with this program; if not, write to the Free Software
  19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20 #
  21 # Usage:   check_raid [raid-name]
  22 # Example: check_raid md0
  23 #         WARNING md0 status=[UUU_U], recovery=46.4%, finish=123.0min
  24
  25 use strict;
  26 use lib "/usr/local/nagios/libexec";
  27 use utils qw(%ERRORS);
  28
  29 # die with an error if we're not on Linux
  30 if ($^O ne 'linux') {
  31     print "This plugin only applicable on Linux.\n";
  32     exit $ERRORS{'UNKNOWN'};
  33 }
  34
  35 sub max_state($$){
  36         my ($a, $b) = @_;
  37         if ($a eq "CRITICAL" || $b eq "CRITICAL") { return "CRITICAL"; }
  38         elsif ($a eq "WARNING" || $b eq "WARNING") { return "WARNING"; }
  39         elsif ($a eq "OK" || $b eq "OK") { return "OK"; }
  40         elsif ($a eq "UNKNOWN" || $b eq "UNKNOWN") { return "UNKNOWN"; }
  41         elsif ($a eq "DEPENDENT" || $b eq "DEPENDENT") { return "DEPENDENT"; }
  42         return "UNKNOWN";
  43 }
  44
  45 my $nextdev;
  46 if(defined $ARGV[0]) { $nextdev = shift; }
  47 else { $nextdev = "md[0-9]"; }
  48
  49 my $code = "UNKNOWN";
  50 my $msg = "";
  51 my %status;
  52 my %recovery;
  53 my %finish;
  54 my %active;
  55 my %devices;
  56
  57 while(defined $nextdev){
  58         open (MDSTAT, "< /proc/mdstat") or die "Failed to open /proc/mdstat";
  59         my $device = undef;
  60         while(<MDSTAT>) {
  61                 if (defined $device) {
  62                         if (/(\[[_U]+\])/) {
  63                                 $status{$device} = $1;
  64                         } elsif (/recovery = (.*?)\s/) {
  65                                 $recovery{$device} = $1;
  66                                 ($finish{$device}) = /finish=(.*?min)/;
  67                         } elsif (/^\s*$/) {
  68                                 $device=undef;
  69                         }
  70                 } elsif (/^($nextdev)\s*:/) {
  71                         $device=$1;
  72                         $devices{$device}=$device;
  73                         if (/active/) {
  74                                 $active{$device} = 1;
  75                         }
  76                 }
  77         }
  78         $nextdev = shift;
  79 }
  80
  81 foreach my $k (sort keys %devices){
  82         if ($status{$k} =~ /_/) {
  83                 if (defined $recovery{$k}) {
  84                         $msg .= sprintf " %s status=%s, recovery=%s, finish=%s.",
  85                                 $devices{$k}, $status{$k}, $recovery{$k}, $finish{$k};
  86                         $code = max_state($code, "WARNING");
  87                 } else {
  88                         $msg .= sprintf " %s status=%s.", $devices{$k}, $status{$k};
  89                         $code = max_state($code, "CRITICAL");
  90                 }
  91         } elsif ($status{$k} =~ /U+/) {
  92                 $msg .= sprintf " %s status=%s.", $devices{$k}, $status{$k};
  93                 $code = max_state($code, "OK");
  94         } else {
  95                 if ($active{$k}) {
  96                         $msg .= sprintf " %s active with no status information.\n",
  97                                 $devices{$k};
  98                         $code = max_state($code, "OK");
  99                 } else {
 100                         $msg .= sprintf " %s does not exist.\n", $devices{$k};
 101                         $code = max_state($code, "CRITICAL");
 102                 }
 103         }
 104 }
 105
 106 print $code, $msg, "\n";
 107 exit ($ERRORS{$code});
 108