1
0
mirror of https://github.com/opinkerfi/nagios-plugins.git synced 2024-11-23 19:03:46 +01:00
nagios-plugins/check_msa_hardware-pl/check_msa_hardware
2014-01-30 15:33:30 +00:00

298 lines
9.8 KiB
Perl
Executable File

#! /usr/bin/perl -w
###################################################################
# 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.
#
# For information : david.barbion@adeoservices.com
####################################################################
#
# Script init
#
use strict;
use Switch ;
use List::Util qw[min max];
use Net::SNMP qw(:snmp);
use FindBin;
use Data::Dumper;
use lib "$FindBin::Bin";
use lib "/usr/lib/nagios/plugins";
use lib "/tmp" ;
use utils qw($TIMEOUT %ERRORS &print_revision &support);
use vars qw($PROGNAME);
use Getopt::Long;
use vars qw($opt_h $opt_V $opt_H $opt_C $opt_v $opt_o $opt_c $opt_w $opt_t $opt_p $opt_k $opt_u $opt_l);
$PROGNAME = $0;
sub print_help ();
sub print_usage ();
Getopt::Long::Configure('bundling');
GetOptions
("h" => \$opt_h, "help" => \$opt_h,
"u=s" => \$opt_u, "username=s" => \$opt_u,
"p=s" => \$opt_p, "password=s" => \$opt_p,
"k=s" => \$opt_k, "key=s" => \$opt_k,
"V" => \$opt_V, "version" => \$opt_V,
"l" => \$opt_l, "longoutput" => \$opt_l,
"v=s" => \$opt_v, "snmp=s" => \$opt_v,
"C=s" => \$opt_C, "community=s" => \$opt_C,
"w=s" => \$opt_w, "warning=s" => \$opt_w,
"c=s" => \$opt_c, "critical=s" => \$opt_c,
"H=s" => \$opt_H, "hostname=s" => \$opt_H);
if ($opt_V) {
print_revision($PROGNAME,'$Revision: 1.0');
exit $ERRORS{'OK'};
}
if ($opt_h) {
print_help();
exit $ERRORS{'OK'};
}
$opt_H = shift unless ($opt_H);
(print_usage() && exit $ERRORS{'OK'}) unless ($opt_H);
my $snmp = "1";
if ($opt_v && $opt_v =~ /^[0-9]$/) {
$snmp = $opt_v;
}
if ($snmp eq "3") {
if (!$opt_u) {
print "Option -u (--username) is required for snmpV3\n";
exit $ERRORS{'OK'};
}
if (!$opt_p && !$opt_k) {
print "Option -k (--key) or -p (--password) is required for snmpV3\n";
exit $ERRORS{'OK'};
}elsif ($opt_p && $opt_k) {
print "Only option -k (--key) or -p (--password) is needed for snmpV3\n";
exit $ERRORS{'OK'};
}
}
($opt_C) || ($opt_C = shift) || ($opt_C = "public");
my $DS_type = "GAUGE";
($opt_t) || ($opt_t = shift) || ($opt_t = "GAUGE");
$DS_type = $1 if ($opt_t =~ /(GAUGE)/ || $opt_t =~ /(COUNTER)/);
my $name = $0;
$name =~ s/\.pl.*//g;
my $day = 0;
#=== create a SNMP session ====
my ($session, $error);
if ($snmp eq "1" || $snmp eq "2") {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -community => $opt_C, -version => $snmp);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
}elsif ($opt_k) {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -version => $snmp, -username => $opt_u, -authkey => $opt_k);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
}elsif ($opt_p) {
($session, $error) = Net::SNMP->session(-hostname => $opt_H, -version => $snmp, -username => $opt_u, -authpassword => $opt_p);
if (!defined($session)) {
print("UNKNOWN: SNMP Session : $error\n");
exit $ERRORS{'UNKNOWN'};
}
}
# Here we go !
my $result ;
my $label ;
my $oid ;
my $unit = "";
my $return_result ;
my $return_code = 0 ;
my $output ;
my $total_connection = 0;
# parse sysDescr
my $sysdescr = $session->get_request(-varbindlist => [".1.3.6.1.2.1.1.1.0"]) ;
my $outlabel = $sysdescr->{".1.3.6.1.2.1.1.1.0"}.": " ;
my $longoutput = '';
my $perfdata = '';
# define some useful arrays
my %msa_sensors_oids = (
".1.3.6.1.3.94.1.8.1.1" => "Sensor unitid",
".1.3.6.1.3.94.1.8.1.2" => "Sensor index",
".1.3.6.1.3.94.1.8.1.3" => "Sensor name",
".1.3.6.1.3.94.1.8.1.4" => "Sensor status",
".1.3.6.1.3.94.1.8.1.5" => "Sensor info",
".1.3.6.1.3.94.1.8.1.6" => "Sensor message",
".1.3.6.1.3.94.1.8.1.7" => "Sensor type",
".1.3.6.1.3.94.1.8.1.8" => "Sensor characteristic"
) ;
my %sensor_data_table = ("SENSOR_UNITID" => ".1.3.6.1.3.94.1.8.1.1",
"SENSOR_INDEX" => ".1.3.6.1.3.94.1.8.1.2",
"SENSOR_NAME" => ".1.3.6.1.3.94.1.8.1.3",
"SENSOR_STATUS" => ".1.3.6.1.3.94.1.8.1.4",
"SENSOR_INFO" => ".1.3.6.1.3.94.1.8.1.5",
"SENSOR_MESSAGE" => ".1.3.6.1.3.94.1.8.1.6",
"SENSOR_TYPE" => ".1.3.6.1.3.94.1.8.1.7",
"SENSOR_CHARACTERISTIC" => ".1.3.6.1.3.94.1.8.1.8",) ;
# all sensors types
my @msa_sensors_type = ("undefined",
"unknown",
"other",
"battery",
"fan",
"power-supply",
"transmitter",
"enclosure",
"board",
"receiver") ;
# all sensors status
my @msa_sensors_status = ("undefined",
"unknown",
"other",
"ok",
"warning",
"failed") ;
# all sensors characteristics
my @msa_sensors_characteristic = ("undefined",
"unknown",
"other",
"temperature",
"pressure",
"emf",
"currentValue",
"airflow",
"frequency",
"power",
"door"
) ;
# get the sensor table
$result = $session->get_table(".1.3.6.1.3.94.1.8") ;
my %msa_sensors_values = %{$result} ;
my $sensor_id ;
my $key ;
my $value ;
my @msa_sensors ;
my $sensor ;
# create the sensor data table
foreach (keys %msa_sensors_values) {
$value = $key = $sensor_id = $_ ;
$sensor_id =~ s/.*\.([0-9]+)$/$1/;
$key =~ s/(\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*).*/$1/ ;
$msa_sensors[$sensor_id]{$key} = $msa_sensors_values{$value};
}
# parse the table to get the worse status and append it to the output string.
my $worse_status = 0;
foreach $sensor (@msa_sensors) {
if (defined($sensor)) {
my %sensor_data = %{$sensor} ;
chomp($sensor_data{".1.3.6.1.3.94.1.8.1.6"});
$worse_status = max($worse_status, $sensor_data{$sensor_data_table{"SENSOR_STATUS"}}) ;
#print Dumper(\%sensor_data);
#Voltage (Controller Module B): 0.00V
if ($sensor_data{".1.3.6.1.3.94.1.8.1.6"} =~ /Temperature.*:\s+(-*\d+)C/) {
my $temperature = $1;
if ($temperature > 0) {
$longoutput .= "\n" . $sensor_data{".1.3.6.1.3.94.1.8.1.6"};
my $pd = $sensor_data{".1.3.6.1.3.94.1.8.1.6"};
$pd =~ s/\:.*$//g;
$pd =~ s/[\(\),]//g;
$pd =~ s/ /_/g;
$perfdata .= "\"$pd\"=$temperature" . "C ";
} else {
}
} elsif ($sensor_data{".1.3.6.1.3.94.1.8.1.6"} =~ /Voltage.*:\s+(\d+\.\d+)V/) {
my $voltage = $1;
if ($1 > 0) {
$longoutput .= "\n" . $sensor_data{".1.3.6.1.3.94.1.8.1.6"};
my $pd = $sensor_data{".1.3.6.1.3.94.1.8.1.6"};
$pd =~ s/\:.*$//g;
$pd =~ s/[\(\),]//g;
$pd =~ s/ /_/g;
$perfdata .= "\"$pd\"=$voltage" . "V ";
} else {
}
} elsif ($sensor_data{".1.3.6.1.3.94.1.8.1.6"} =~ /Capacitor Charge.*: 0%/) {
} else {
$longoutput .= "\n" . $sensor_data{".1.3.6.1.3.94.1.8.1.6"};
}
#$longoutput .= $sensor_data{".1.3.6.1.3.94.1.8.1.6"} . "\n";
#print Dumper(\%sensor_data);
# a problem is found
if ($sensor_data{$sensor_data_table{"SENSOR_STATUS"}} > 3) {
$outlabel.=$sensor_data{$sensor_data_table{"SENSOR_MESSAGE"}} ;
$outlabel.=" [".$msa_sensors_type[$sensor_data{$sensor_data_table{"SENSOR_TYPE"}}]."]. " ;
}
}
}
# get the return_code
switch ($worse_status) {
case 0 { $return_code = -1 ;}
case 1 { $return_code = -1 ;}
case 2 { $return_code = -1 ;}
case 3 { $return_code = 0 ;}
case 4 { $return_code = 1 ;}
case 5 { $return_code = 2 ;}
else { $return_code = -1 }
}
################################################################################
switch ($return_code) {
case 0 { $outlabel.="OK"; }
case 1 { $outlabel.="WARNING"; }
case 2 { $outlabel.="CRITICAL"; }
else { $outlabel.="UNKOWN"; }
}
print $outlabel ;
print "$longoutput" if ($opt_l);
print " | $perfdata \n";
exit($return_code) ;
sub print_usage () {
print "Usage:";
print "$PROGNAME\n";
print " -H (--hostname) Hostname to query - (required)\n";
print " -C (--community) SNMP read community (defaults to public,\n";
print " used with SNMP v1 and v2c\n";
print " -v (--snmp_version) 1 for SNMP v1 (default)\n";
print " 2 for SNMP v2c\n";
print " -k (--key) snmp V3 key\n";
print " -p (--password) snmp V3 password\n";
print " -u (--username) snmp v3 username \n";
print " -V (--version) Plugin version\n";
print " -h (--help) usage help\n";
}
sub print_help () {
print "##############################################\n";
print "# ADEO Services #\n";
print "##############################################\n";
print_usage();
print "\n";
}