File check_mpt.patched of Package nagios-plugins-lsi

#! /usr/bin/perl 
# $Id: check_mpt.pl,v 0.1 2006/05/16 15:17:49 Exp $

# check_mpt.pl Copyright (C) 2006 Claudio Messineo <claudio@zero.it>
#
#
#
# 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 (or with Nagios);  if not, write to the
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA

use strict;
use English;
use Getopt::Long;
use vars qw($PROGNAME);
use lib "/usr/lib/nagios/plugins" ;
use utils qw (%ERRORS &print_revision &support);

sub print_help ();
sub print_usage ();

my ($opt_h, $opt_V, $opt_c);
my ($result, $message, $mpt_path, $num_raid, $enabled );

$PROGNAME="check_mpt";
$mpt_path="/usr/sbin/mpt-status";
$num_raid=2;
$enabled=1;

Getopt::Long::Configure('bundling');
GetOptions(
	"V"	=> \$opt_V, "version"		=> \$opt_V,
	"h"	=> \$opt_h, "help"		=> \$opt_h,
	"c=n"	=> \$opt_c, "num_raid=n"	=> \$opt_c
	);

if ($opt_V) {
	print_revision($PROGNAME, '$Id: check_mpt.pl,v 0.1 2006/05/16 15:17:49 Exp $');
	exit $ERRORS{'OK'};
}

if ($opt_h) {
	print_help();
	exit $ERRORS{'OK'};
}

sub print_usage () {
	print "Usage:\n";
	print "  $PROGNAME <-c numraid>\n";
	print "  $PROGNAME [-h | --help]\n";
	print "  $PROGNAME [-V | --version]\n";
}

sub print_help () {
	print_revision($PROGNAME, '$Id: check_mpt.pl,v 0.1 2006/05/16 15:17:49 Exp $');
	print "Copyright (c) 2006 Claudio Messineo claudio\@__no__spam__zero.it (s/__no__spam__//)\n\n";
	print_usage();
	print "\n";
	support();
}

if($opt_c =~ /^([0-9]+)$/){
    $num_raid = $1;
}

if ( ! open( MPT_STAT, " $mpt_path | " ) ) {
           print "ERROR: could not open $mpt_path  \n";
           exit $ERRORS{'UNKNOWN'};
           }
else {
        while (<MPT_STAT>) {
			if ( $_ =~ m/ENABLED/ ) {
				$enabled--;
			}
			if ( $_ =~ m/ONLINE/ ) {
				$num_raid--;
			}
                        next;
                }
	if (($num_raid==0) and ($enabled==0)) {
		print "Mpt-status OK\n";
		exit $ERRORS{'OK'};
	}
	else {
		print "Mpt-status Alert\n";
		exit $ERRORS{'WARNING'};
	}
}