Initial revision

diff --git a/check_sas2ircu b/check_sas2ircu
new file mode 100755 (executable)
index 0000000..92d3a17
--- /dev/null
+++ b/check_sas2ircu
@@ -0,0 +1,192 @@
+#!/usr/bin/perl -w
+# Nagios plugin that checks LSI SAS2 controllers RAID status via sas2ircu
+# program
+
+# Copyright (C) 2011 Emmanuel Lacour <elacour@home-dn.net>
+#
+# This file 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, or (at your option) any
+# later version.
+#
+# This file 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 file; see the file COPYING.  If not, write to the Free
+# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+# 02110-1301, USA.
+
+
+
+use strict;
+use lib qw(/usr/local/lib/nagios/plugins /usr/lib/nagios/plugins);
+use utils qw(%ERRORS);
+
+my $sas2ircu = '/usr/sbin/sas2ircu';
+my $status = $ERRORS{'OK'};
+my %controllers;
+my $errors_message;
+
+unless ( -x $sas2ircu ) {
+    print "$sas2ircu not found or not executable\n";
+    exit ($ERRORS{'UNKNOWN'});
+}
+
+unless ( $> == 0 ) {
+    print "This program must be run as root. You may use wrappers like sudo to do this.\n";
+    exit ($ERRORS{'UNKNOWN'});
+}
+
+foreach my $line (split /\n/, `$sas2ircu LIST`) {
+    if ( $line =~ /^\s+(\d+)\s+(.+)\s+(.+)\s+(.+)\s+(.+)\s+(.+)\s+(.+)\s*$/ ) {
+        my $ctrl_id = $1;
+        my $ctrl_type = $2;
+        $controllers{$ctrl_id}{type} = $ctrl_type;
+    }
+}
+
+unless ( scalar keys %controllers ) {
+    print "No controller found\n";
+    exit ($ERRORS{'UNKNOWN'});
+}
+
+foreach my $ctrl_id (keys %controllers) {
+    my $infos = `$sas2ircu $ctrl_id DISPLAY`;
+
+    my %ctrl_infos;
+    my $ctrl_start;
+    foreach my $line (split /\n/, $infos) {
+       chomp($line);
+        if ( $line =~ /^Controller information/ ) {
+            $ctrl_start = 1;
+            next;
+        }
+       next unless ( $ctrl_start );
+        if ( $line =~ /^-/ && $ctrl_start == 1 ) {
+            $ctrl_start = 2;
+            next;
+        }
+        if ( $line =~ /^-/ && $ctrl_start == 2 ) {
+            $ctrl_start = 0;
+            next;
+        }
+        next unless ( $ctrl_start == 2 );
+        if ( $line =~ /^\s*(.*)\s+:\s+(.*)$/ ) {
+            my $key = $1;
+            my $value = $2;
+            $key =~ s/\s+$//;
+            $key =~ s/^\s+//;
+            $value =~ s/\s+$//;
+            $value =~ s/^\s+//;
+            $ctrl_infos{$key} = $value;
+        }
+    }
+
+    # Volumes
+    my %volumes_infos;
+    my $volume_id = undef;
+    foreach my $line (split /\n/, $infos) {
+       chomp($line);
+        if ( $line =~ /^IR volume (\d+)\s*$/ ) {
+            $volume_id = $1;
+            next;
+        }
+        if ( defined($volume_id) && $line =~ /^\s*$/ ) {
+            $volume_id = undef;
+            next;
+        }
+        next unless ( defined($volume_id) );
+        if ( $line =~ /^\s*(.*)\s+:\s+(.*)\s*$/ ) {
+            my $key = $1;
+            my $value = $2;
+            $key =~ s/\s+$//;
+            $key =~ s/^\s+//;
+            $value =~ s/\s+$//;
+            $value =~ s/^\s+//;
+            if ( $key =~ /^PHY/ ) {
+                push @{$volumes_infos{$volume_id}{'disks'}}, $value;
+            } else {
+                $volumes_infos{$volume_id}{$key} = $value;
+            }
+        }
+    }
+
+    unless ( scalar keys %volumes_infos ) {
+        print "\tNo volume found\n";
+        next;
+    }
+
+    # Disks
+    my %disks_infos;
+    my $disk_start = 0;
+    my $disk_encl = undef;
+    my $disk_slot = undef;
+    foreach my $line (split /\n/, $infos) {
+       chomp($line);
+        if ( $line =~ /^Device is a Hard disk/ ) {
+            $disk_start = 1;
+            next;
+        }
+        if ( $disk_start && $line =~ /^\s*$/ ) {
+            $disk_start = 0;
+            $disk_encl = undef;
+            $disk_slot = undef;
+            next;
+        }
+        next unless ( $disk_start );
+        if ( $line =~ /^\s*(.*)\s+:\s+(.*)\s*$/ ) {
+            my $key = $1;
+            my $value = $2;
+            $key =~ s/\s+$//;
+            $key =~ s/^\s+//;
+            $value =~ s/\s+$//;
+            $value =~ s/^\s+//;
+            if ( $key eq 'Enclosure #' ) {
+                $disk_encl = $value;
+                next;
+            }
+            if ( $key eq 'Slot #' ) {
+                $disk_slot = $value;
+                next;
+            }
+            if ( defined($disk_encl) && defined($disk_slot) ) {
+                $disks_infos{$disk_encl.':'.$disk_slot}{$key} = $value;
+            }
+        }
+    }
+
+    foreach my $volume_id (keys %volumes_infos) {
+        unless ( $volumes_infos{$volume_id}{'Status of volume'} eq 'Okay (OKY)' ) {
+            $errors_message .= "Ctrl $ctrl_id: vol $volume_id ".$volumes_infos{$volume_id}{'Status of volume'};
+            $status = $ERRORS{'CRITICAL'} unless ( $volumes_infos{$volume_id}{'Status of volume'} eq 'Okay (OKY)' );
+        }
+
+        unless ( scalar @{$volumes_infos{$volume_id}{disks}} ) {
+            # FIXME is this critical, can this happens ?
+            next;
+        }
+
+        foreach my $disk (@{$volumes_infos{$volume_id}{disks}}) {
+            unless ( $disks_infos{$disk} ) {
+                $errors_message .= ", disk $disk not found!";
+                $status = $ERRORS{'CRITICAL'};
+                next;
+            }
+            unless ( $disks_infos{$disk}{'State'} eq 'Optimal (OPT)' ) {
+                $errors_message .= ", disk: ".$disk." : ".$disks_infos{$disk}{'State'};
+                $status = $ERRORS{'CRITICAL'} unless ( $disks_infos{$disk}{'State'} eq 'Optimal (OPT)' );
+            }
+        }
+    }
+}
+
+if ( $status == $ERRORS{'OK'} ) {
+    print "All arrays OK\n";
+} elsif ( $errors_message ) {
+    print "$errors_message\n";
+}
+
+exit ($status);