1 #!/usr/bin/perl -w
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
25 use strict;
26 use lib "/usr/local/nagios/libexec";
27 use utils qw(%ERRORS);
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 }
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 }
45 my $nextdev;
46 if(defined $ARGV[0]) { $nextdev = shift; }
47 else { $nextdev = "md[0-9]+"; }
49 my $code = "UNKNOWN";
50 my $msg = "";
51 my %status;
52 my %recovery;
53 my %finish;
54 my %active;
55 my %devices;
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 $device=undef;
68 } elsif (/^\s*$/) {
69 $device=undef;
70 }
71 } elsif (/^($nextdev)\s*:/) {
72 $device=$1;
73 $devices{$device}=$device;
74 if (/\sactive/) {
75 $status{$device} = ''; # Shall be filled later if available
76 $active{$device} = 1;
77 }
78 }
79 }
80 $nextdev = shift;
81 }
83 foreach my $k (sort keys %devices){
84 if (!exists($status{$k})) {
85 $msg .= sprintf " %s inactive with no status information.",
86 $devices{$k};
87 $code = max_state($code, "CRITICAL");
88 } elsif ($status{$k} =~ /_/) {
89 if (defined $recovery{$k}) {
90 $msg .= sprintf " %s status=%s, recovery=%s, finish=%s.",
91 $devices{$k}, $status{$k}, $recovery{$k}, $finish{$k};
92 $code = max_state($code, "WARNING");
93 } else {
94 $msg .= sprintf " %s status=%s.", $devices{$k}, $status{$k};
95 $code = max_state($code, "CRITICAL");
96 }
97 } elsif ($status{$k} =~ /U+/) {
98 $msg .= sprintf " %s status=%s.", $devices{$k}, $status{$k};
99 $code = max_state($code, "OK");
100 } else {
101 if ($active{$k}) {
102 $msg .= sprintf " %s active with no status information.",
103 $devices{$k};
104 $code = max_state($code, "OK");
105 } else {
106 # This should't run anymore, but is left as a catch-all
107 $msg .= sprintf " %s does not exist.\n", $devices{$k};
108 $code = max_state($code, "CRITICAL");
109 }
110 }
111 }
113 print $code, $msg, "\n";
114 exit ($ERRORS{$code});