File check_ipmi.pl of Package nagios-plugins-ipmi

#!/usr/bin/perl

# Nagios plugin for IPMI sensors status checking.
# Especially useful on Dell Poweredge servers, and others that
# implement the Intelligent Platform Management Interface (IPMI)
# interface.

# Tested against the 1850, 1950, 2850, 2950, SC1420, PE830 BMCs

#
# (C) Chris Wilson <check_ipmi@qwirx.com>, 2005-06-04
# Released under the GNU General Public License (GPL)

# Re-written by Bill Moran <wmoran@collaborativefusion.com>
# and Brian Seklecki <bseklecki@collaborativefusion.com>
# 06/20/06
# $Id: check_ipmi.pl 192 2007-04-11 19:51:33Z seklecki $

#/*
# * Copyright (c) 2006-2007 Collaborative Fusion, Inc.  All rights reserved.
# * 
# * Developed by: Collaborative Fusion, Inc.
# *                                          http://www.collaborativefusion.com
# * 
# * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
# * COLLABORATIVE FUSION, INC. BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
# * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
# * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
# * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 
# * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# */
#
#/*
# * This code was written under funding by Collaborative Fusion, Inc..
# */

# Strategy:
# Take a hostname (or IP) on the command line argv[1]
# e.g. check_ipmi.pl 10.1.1.1
# Look for a file in directory that matches the name
# i.e. ipmi_credentials_${1/hostname}
#
# Format of said file would be the username/password to use (syntax as passed
# on the command line of ipmitool(1) ) : $  "-U username -P password"
# NOTE: If not found, look for a generic "ipmi_credientials" file before failing

#use warnings;
#use strict;

# Watch your permissions here (because you know IPMI uses high encryption)
my $pwfile_prefix = '/usr/local/etc/check_ipmi/passwd.';
my $ipmitool = '/usr/local/bin/ipmitool';
my $command;
%NAGIOS_API_ECODES = ( 'OK' => 0, 'WARNING' => 1, 'CRITICAL' => 2, 'UNKNOWN' => 3 );
# default

my $USAGE="Usage Syntax: $0 [remoteHost]";

# define globally 
#$nagios_ecode=$NAGIOS_API_ECODES{UNKNOWN};
$nagios_ecode=-1;
$nagios_prefdata="|";

sub nagios_diode ($ $)  {

(my $new_ecode, my $prefdata) = @_;

# This fucntion is a one-way transition for the return code
	# it allow the global error code to increment upward only
	# it also concatenates the performance data

# The tricky part is that we want to default to sane "3" uknown
	# but instead we'll have to default to -1 (out of bounds, coach)

#print "DEBUG: new error code: " . $new_ecode . "\n";
	#print "DEBUG: new error code #: " . $NAGIOS_API_ECODES{$new_ecode} . "\n";
	#print "DEBUG: previous error code: " . $nagios_ecode . "\n";
	#print "DEBUG: previous error code #: " . $NAGIOS_API_ECODES{$nagios_ecode} . "\n";

if ( $NAGIOS_API_ECODES{$new_ecode} gt $NAGIOS_API_ECODES{$nagios_ecode} ) {
		#print "DEBUG: transitioning from: " . $nagios_ecode . " -> " . $new_ecode . "\n";
		$nagios_ecode = $new_ecode;
	}
	
	#print "DEBUG: Appending pref data: " . $prefdata . "\n";
	$nagios_prefdata = $nagios_prefdata . "|" . $prefdata;

}

sub cane_one() {
	print $nagios_prefdata;
	exit $NAGIOS_API_ECODES{$nagios_ecode};
}

if ( scalar(@ARGV) < 1 || scalar(@ARGV) > 2 || $ARGV[0] !~ m/^[a-z0-9\.\-]+$/ ) {
	nagios_diode(UNKNOWN, $USAGE);
	cane_one;
} else {
	my $passwdfile;
	my $username="netadmin";

$passwdfile = "${pwfile_prefix}$ARGV[0]";

if (! -r $passwdfile) {
		$passwdfile = "${pwfile_prefix}default";
		# set code to warning because using default passwd file
		nagios_diode(WARNING, "WARNING: No credentials found for $ARGV[0] - trying to use default!");
	}
	$command = "$ipmitool -H $ARGV[0] -U $username -f $passwdfile sdr 2>&1 ";
}

if (! open(IPMI, "$command |") ) {
	 nagios_diode(UNKNOWN, "Unable to exec ipmitool(8)");
	 cane_one;
}

my %found;
my %bad;

sub trim ($) {
	my ($v) = @_;
	$v =~ s/^ +//;
	$v =~ s/ +$//;
	return $v;
}

while (my $line = <IPMI>)
{
	chomp $line;
	unless ($line =~ m'^(.*) \| (.*) \| (\w+)$')
	{
		nagios_diode(CRITICAL, "Unrecognized response from ipmitool: $line");
		cane_one;
	}

my $name  = trim $1;
	my $value = trim $2;
	my $state = trim $3;
	$name =~ tr| |_|;

my $counter = 1;
	my $uname = "$name";
	while ($found{$uname}) {
		$uname = $name . $counter++;
	}

next if $state eq "ns";

if ($state ne "ok") {
		$bad{$uname} = $state;
	}

$found{$uname} = $value;
}

if (keys %bad) {

my @bad;
	foreach my $name (sort keys %bad) {
		push @bad, "$name is $bad{$name}";
	}
	nagios_diode(CRITICAL, "IPMI Critical Value: ");

} else {
	nagios_diode(OK, "IPMI OK: ");
}

my @out;

# Directly toch pref_data - assume that iit is safe to

foreach my $name (sort keys %found) {
	next unless $name =~ m|Fan| or $name =~ m|Temp|;
	#print "DEBUG: $name = $found{$name}\n";
	#$nagios_prefdata = $nagios_prefdata. "$name = $found{$name},";
        push @out, "$name = $found{$name}";
}

$nagios_prefdata = $nagios_prefdata . "(" . join(", ", @out) . ") ";

cane_one;