File check_snmp_apc_pdu of Package nagios-plugins-snmp

#! /usr/bin/perl -w
#
# check_snmp_apc_pdu v1.0 plugin for nagios
#
# checks with SNMP the power status of APC PDUs
# be sure to have the required MIB (PowerNet-MIB) ready in the snmp mib path
# default path is /usr/share/snmp/mibs
#
# Copyright Notice: GPL
#
# History:
#
# v1.0 Rouven Homann - rouven.homann@cimt-ag.de
#       + Initial Release
#

#use strict;
use SNMP;
use Getopt::Std;
use FindBin;
use lib $FindBin::Bin;
use utils qw($TIMEOUT %ERRORS &print_revision &support);
use vars qw($PROGNAME);
use Getopt::Long;
use vars qw($opt_V $opt_h $opt_H $opt_C $verbose $opt_c $opt_w);

my $PROGNAME = "check_snmp_apc_pdu";
my $PROGVERSION = '1.0';

$ENV{'MIBS'}="ALL";						# PowerNet-MIB required

sub print_help ();
sub print_usage ();

Getopt::Long::Configure('bundling');
GetOptions ("V"   => \$opt_V, "version"    => \$opt_V,
        "h"   => \$opt_h, "help"       => \$opt_h,
        "v" => \$verbose, "verbose"  => \$verbose,
        "w=s" => \$opt_w, "warning=s"  => \$opt_w,
	"H=s" => \$opt_H, "host=s" => \$opt_H,
	"C=s" => \$opt_C, "community=s" => \$opt_C,
        "c=s" => \$opt_c, "critical=s" => \$opt_c);

if ($opt_V) {
    print_revision($PROGNAME,'$Revision: '.$PROGVERSION.'$');
    exit $ERRORS{'UNKNOWN'};
}

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

print_usage() unless ($opt_H && $opt_C);

my @APC_INFO = &snmpconnect();

### get default thresholds from snmp
if ($opt_c) {
    $critical = $1 if ($opt_c =~ /([0-9]+)/);
} else { 
    $critical = $APC_INFO[7];
}

if ($opt_w) {
    $warning = $1 if ($opt_w =~ /([0-9]+)/);
} else { 
    $warning = $APC_INFO[6];
}

if ($APC_INFO[2] == 1) { $APC_INFO[2]='Ok'; } elsif ($APC_INFO[2] == 0) { $APC_INFO[2]='Down'; } else { $APC_INFO[2]='Unknown'; };	# PDU's own Powerstatus
if ($APC_INFO[3] == 1) { $APC_INFO[3]='Ok'; } elsif ($APC_INFO[3] == 0) { $APC_INFO[3]='Down'; } else { $APC_INFO[3]='Unknown'; };	# PDU's own Powerstatus

## CRITICAL
if (($APC_INFO[5]>=$critical) || ($APC_INFO[2] eq 'Down') || ($APC_INFO[3] eq 'Down')) {
    if ($verbose) { 
	print "CRITICAL: Model: $APC_INFO[0], Serial: $APC_INFO[1], Power1: $APC_INFO[2], Power2: $APC_INFO[3], Ports: $APC_INFO[4], Load: $APC_INFO[5]A";	# Verbose Output
    } else { 
	if (($APC_INFO[2] eq 'Unknown') || ($APC_INFO[3] eq 'Unknown')) {
	    print "CRITICAL: Load Critical, $APC_INFO[5]A reached!";
	} else { 
	    print "CRITICAL: Load Critical, $APC_INFO[5]A reached!, Power1: $APC_INFO[2], Power2: $APC_INFO[3]";	# Small Output
	};
    };
    exit $ERRORS{'CRITICAL'};
} 
## WARNING
elsif (($APC_INFO[5] >= $warning) && ($APC_INFO[5] < $critical)) {
    if ($verbose) { 
	print "WARNING: Model: $APC_INFO[0], Serial: $APC_INFO[1], Power1: $APC_INFO[2], Power2: $APC_INFO[3], Ports: $APC_INFO[4], Load: $APC_INFO[5]A";	# Verbose Output

} else {
	if (($APC_INFO[2] eq 'Unknown') || ($APC_INFO[3] eq 'Unknown')) {
	    print "Warning Load Warning, $APC_INFO[5]A reached!";
	} else { 
	    print "WARNING: Load Warning, $APC_INFO[5]A reached!, Power1: $APC_INFO[2], Power2: $APC_INFO[3]";	# Small Output
	};
    };
    exit $ERRORS{'WARNING'};
} 
## OK
elsif (($APC_INFO[5] < $warning) && ($APC_INFO[2] eq 'Ok') && ($APC_INFO[3] eq 'Ok')) {
    if ($verbose) { 
	print "OK: Model: $APC_INFO[0], Serial: $APC_INFO[1], Power1: $APC_INFO[2], Power2: $APC_INFO[3], Ports: $APC_INFO[4], Load: $APC_INFO[5]A";	# Verbose Output
    } else { 
	if (($APC_INFO[2] eq 'Unknown') || ($APC_INFO[3] eq 'Unknown')) {
	    print "OK: Load $APC_INFO[5]A";
	} else { 
	print "OK: Load $APC_INFO[5]A, Power1: $APC_INFO[2], Power2: $APC_INFO[3]";	# Small Output
	};
    };
    exit $ERRORS{'OK'};
} 
## UNKNOWN
else {
    print "UNKNOWN: An error occured while running snmp command, check MIB and oids";
    exit $ERRORS{'UNKNOWN'};    
}

sub snmpconnect () {
    my $SESSION = new SNMP::Session (DestHost => $opt_H,
                            	    Community => $opt_C,
                            	    Version => 1);
				    
    # Populate a VarList with OID values.
    my $APC_VLIST =  new SNMP::VarList(['sPDUIdentModelNumber'],               	#0
	                            ['sPDUIdentSerialNumber'],                  #1
    	                            ['rPDUPowerSupply1Status'],             	#2
    		                    ['rPDUPowerSupply2Status'],             	#3
            		            ['rPDUOutletDevNumCntrlOutlets'],           #4
            	                    ['rPDULoadStatusPhaseLoad'],		#5
				    ['rPDULoadConfigNearOverloadThreshold'],	#6
				    ['rPDULoadConfigOverloadThreshold']);  	#7

# Pass the VarList to getnext building an array of the output
    &errorexit() unless my @APC_INFO = $SESSION->getnext($APC_VLIST);
     
    $APC_INFO[0] =~ s/\"//g;        				# Ditch the quotes.
    $APC_INFO[1] =~ s/\"//g;
    $APC_INFO[5] = $APC_INFO[5] / 10;
    return @APC_INFO;
}

sub errorexit () {
    print "UNKNOWN: An error occured while running snmp command, possible wrong pdu or mib not present!";
    exit $ERRORS{'UNKNOWN'};    
}

sub print_usage () {
    print "Usage: $PROGNAME -H <Hostname> -C <Community> [-w <warn>] [-c <crit>] [-v] [-h]\n";
    exit $ERRORS{'UNKNOWN'} unless ($opt_h);
}

sub print_help () {
    print_revision($PROGNAME,'$Revision: '.$PROGVERSION.' $');
    print "Copyright (c) 2005 Rouven Homann\n";
    print "\n";
    print_usage();
    print "\n";
    print "-H <Hostname> = Hostname or IP-Address.\n";
    print "-C <Community> = Community read password.\n";
    print "-v = Verbose Output.\n";
    print "-h = This screen.\n\n";
    support();
}