Improvement

I changed a code for receiving more information:
Current out: “Ctrl 1: Volume 0 State: degraded, enabled, resync in progress”
New version out: “Ctrl 1: Vol 0 (0:4), IM, 285558 MB, degraded, enabled, resync in progress; Ctrl 1: Vol 1 (0:0), IM, 953674 MB, optimal, enabled”

?hanged code of a plug-in:
# Nagios plugin that checks LSI controllers RAID status via lsiutil program
# lsiutil may be found at ftp://ftp.lsil.com/HostAdapterDrivers/linux/lsiutil/

# Copyright (C) 2011 Emmanuel Lacour
#
# 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 $lsiutil = ‘/usr/sbin/lsiutil’;
my $status = $ERRORS{‘OK’};
my $output;
my @controllers;

my $vol_id;
my $vol_bus;
my $vol_target;
my $vol_type;
my $vol_state;
my $vol_size;
my @words;

unless ( -x $lsiutil ) {
print “$lsiutil not found or not executablen”;
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’});
}

$output = `$lsiutil -p 0 -a 0`;
for (split /^/, $output) {
if ( m|^s*(d+)..*/proc/mpt/ioc| ) {
push @controllers, $1;
}
}

unless ( scalar @controllers ) {
print “No controller foundn”;
exit ($ERRORS{‘UNKNOWN’});
}

foreach my $controller ( @controllers ) {
my @vol_stats;
$output = `$lsiutil -p $controller -a 21,1,0,0,0`;

for (split “nn”, $output) {
if (index($_, ‘Volume ‘) == 0) {

# print “———————–“.”n”;
# print $_.”n”;
# print “———————–“.”n”;

my @lines = split /n/, $_;
foreach my $line (@lines) {
if (index($line, ‘Volume ‘) == 0) {
@words = split ” “, $line;
$vol_id = $words[1];
$vol_bus = $words[4];
$vol_target = (split “,”, $words[6])[0];
$vol_type = $words[8];
} else {
@words = split ” “, $line;
if ($words[0] eq “Volume”) {
if ($words[1] eq “State:”) {
$vol_state = (split “: “, $line)[1];
}
if ($words[1] eq “Size”) {
$vol_size = (split ” “, $line)[2].” “.(split ” “, $line)[3];
$vol_size = (split “,”, $vol_size)[0];
}
}
}

}
if (@vol_stats > 0) {
print “; “;
}
print “Ctrl $controller: “;
print “Vol “.$vol_id.” (“.$vol_bus.”:”.$vol_target.”), “.$vol_type.”, “.$vol_size.”, “.$vol_state;
push @vol_stats, $vol_state;

}
}

# 0 – OK
# 1 – Warning
# 2 – CRITICAL
my $tmp_stat = 0;
foreach $vol_state (@vol_stats) {
if ((index($vol_state, ‘degraded’) != -1) and ($tmp_stat