Monitoring
/
nagios-plugins
mirror of https://github.com/opinkerfi/nagios-plugins.git
1
0
Fork 0
Code Issues Releases Wiki Activity
nagios-plugins/check_snmp/trunk/check_snmp_env.pl

1037 lines
34 KiB
Perl
Raw Blame History

#!/usr/bin/perl -w
############################## check_snmp_env #################
# Version : 1.3
# Date : May 24 2007
# Author : Patrick Proy ( patrick at proy.org)
# Help : http://www.manubulon.com/nagios/
# Licence : GPL - http://www.fsf.org/licenses/gpl.txt
# Changelog :
# Contributors : Fredrik Vocks
#################################################################
#
# Help : ./check_snmp_env.pl -h
#
use strict;
use Net::SNMP;
use Getopt::Long;
# Nagios specific
use lib "/usr/local/nagios/libexec";
use utils qw(%ERRORS $TIMEOUT);
#my $TIMEOUT = 15;
#my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
my @Nagios_state = ("UNKNOWN","OK","WARNING","CRITICAL"); # Nagios states coding
# SNMP Datas
# CISCO-ENVMON-MIB
my $ciscoEnvMonMIB = "1.3.6.1.4.1.9.9.13"; # Cisco env base table
my %CiscoEnvMonState = (1,"normal",2,"warning",3,"critical",4,"shutdown",5,"notPresent",
6,"notFunctioning"); # Cisco states
my %CiscoEnvMonNagios = (1,1 ,2,2 ,3,3 ,4,3 ,5,0, 6,3); # Nagios states returned for CIsco states (coded see @Nagios_state).
my $ciscoVoltageTable = $ciscoEnvMonMIB.".1.2.1"; # Cisco voltage table
my $ciscoVoltageTableIndex = $ciscoVoltageTable.".1"; #Index table
my $ciscoVoltageTableDesc = $ciscoVoltageTable.".2"; #Description
my $ciscoVoltageTableValue = $ciscoVoltageTable.".3"; #Value
my $ciscoVoltageTableState = $ciscoVoltageTable.".7"; #Status
# CiscoEnvMonVoltageStatusEntry ::=
# 1 ciscoEnvMonVoltageStatusIndex Integer32 (0..2147483647),
# 2 ciscoEnvMonVoltageStatusDescr DisplayString,
# 3 ciscoEnvMonVoltageStatusValue CiscoSignedGauge,
# 4 ciscoEnvMonVoltageThresholdLow Integer32,
# 5 ciscoEnvMonVoltageThresholdHigh Integer32,
# 6 ciscoEnvMonVoltageLastShutdown Integer32,
# 7 ciscoEnvMonVoltageState CiscoEnvMonState
my $ciscoTempTable = $ciscoEnvMonMIB.".1.3.1"; # Cisco temprature table
my $ciscoTempTableIndex = $ciscoTempTable.".1"; #Index table
my $ciscoTempTableDesc = $ciscoTempTable.".2"; #Description
my $ciscoTempTableValue = $ciscoTempTable.".3"; #Value
my $ciscoTempTableState = $ciscoTempTable.".6"; #Status
# CiscoEnvMonTemperatureStatusEntry ::=
# ciscoEnvMonTemperatureStatusIndex Integer32 (0..2147483647),
# ciscoEnvMonTemperatureStatusDescr DisplayString,
# ciscoEnvMonTemperatureStatusValue Gauge32,
# ciscoEnvMonTemperatureThreshold Integer32,
# ciscoEnvMonTemperatureLastShutdown Integer32,
# ciscoEnvMonTemperatureState CiscoEnvMonState
my $ciscoFanTable = $ciscoEnvMonMIB.".1.4.1"; # Cisco fan table
my $ciscoFanTableIndex = $ciscoFanTable.".1"; #Index table
my $ciscoFanTableDesc = $ciscoFanTable.".2"; #Description
my $ciscoFanTableState = $ciscoFanTable.".3"; #Status
# CiscoEnvMonFanStatusEntry ::=
# ciscoEnvMonFanStatusIndex Integer32 (0..2147483647),
# ciscoEnvMonFanStatusDescr DisplayString,
# ciscoEnvMonFanState CiscoEnvMonState
my $ciscoPSTable = $ciscoEnvMonMIB.".1.5.1"; # Cisco power supply table
my $ciscoPSTableIndex = $ciscoPSTable.".1"; #Index table
my $ciscoPSTableDesc = $ciscoPSTable.".2"; #Description
my $ciscoPSTableState = $ciscoPSTable.".3"; #Status
# CiscoEnvMonSupplyStatusEntry ::=
# ciscoEnvMonSupplyStatusIndex Integer32 (0..2147483647),
# ciscoEnvMonSupplyStatusDescr DisplayString,
# ciscoEnvMonSupplyState CiscoEnvMonState,
# ciscoEnvMonSupplySource INTEGER
# Nokia env mib
my $nokia_temp_tbl= "1.3.6.1.4.1.94.1.21.1.1.5";
my $nokia_temp= "1.3.6.1.4.1.94.1.21.1.1.5.0";
my $nokia_fan_table= "1.3.6.1.4.1.94.1.21.1.2";
my $nokia_fan_status= "1.3.6.1.4.1.94.1.21.1.2.1.1.2";
my $nokia_ps_table= "1.3.6.1.4.1.94.1.21.1.3";
my $nokia_ps_temp= "1.3.6.1.4.1.94.1.21.1.3.1.1.2";
my $nokia_ps_status= "1.3.6.1.4.1.94.1.21.1.3.1.1.3";
# Bluecoat env mib
my @bc_SensorCode=("","ok","unknown","not-installed","voltage-low-warning","voltage-low-critical",
"no-power","voltage-high-warning","voltage-high-critical","voltage-high-severe",
"temperature-high-warning","temperature-high-critical","temperature-high-severe",
"fan-slow-warning","fan-slow-critical","fan-stopped"); # BC element status returned by MIB
my @bc_status_nagios=(3,0,3,3,1,2,2,1,2,2,1,2,2,1,2,2); # nagios status equivallent to BC status
my @bc_SensorStatus=("","ok","unavailable","nonoperational"); # ok(1),unavailable(2),nonoperational(3)
my @bc_mesure=("","","","Enum","volts","celsius","rpm");
my @bc_DiskStatus=("","present","initializing","inserted","offline","removed","not-present","empty","bad","unknown");
my @bc_dsk_status_nagios=(3,0,0,1,1,1,2,2,2,3);
my $bc_sensor_table = "1.3.6.1.4.1.3417.2.1.1.1.1.1"; # sensor table
my $bc_sensor_units = "1.3.6.1.4.1.3417.2.1.1.1.1.1.3"; # cf bc_mesure
my $bc_sensor_Scale = "1.3.6.1.4.1.3417.2.1.1.1.1.1.4"; # * 10^value
my $bc_sensor_Value = "1.3.6.1.4.1.3417.2.1.1.1.1.1.5"; # value
my $bc_sensor_Code = "1.3.6.1.4.1.3417.2.1.1.1.1.1.6"; # bc_SensorCode
my $bc_sensor_Status = "1.3.6.1.4.1.3417.2.1.1.1.1.1.7"; # bc_SensorStatus
my $bc_sensor_Name = "1.3.6.1.4.1.3417.2.1.1.1.1.1.9"; # name
my $bc_dsk_table = "1.3.6.1.4.1.3417.2.2.1.1.1.1"; #disk table
my $bc_dsk_status = "1.3.6.1.4.1.3417.2.2.1.1.1.1.3"; # cf bc_DiskStatus
my $bc_dsk_vendor = "1.3.6.1.4.1.3417.2.2.1.1.1.1.5"; # cf bc_DiskStatus
my $bc_dsk_serial = "1.3.6.1.4.1.3417.2.2.1.1.1.1.8"; # cf bc_DiskStatus
# Ironport env mib
my $iron_ps_table = "1.3.6.1.4.1.15497.1.1.1.8"; # ps table
my $iron_ps_status = "1.3.6.1.4.1.15497.1.1.1.8.1.2"; # ps status
#powerSupplyNotInstalled(1), powerSupplyHealthy(2), powerSupplyNoAC(3), powerSupplyFaulty(4)
my @iron_ps_status_name=("","powerSupplyNotInstalled","powerSupplyHealthy","powerSupplyNoAC","powerSupplyFaulty");
my @iron_ps_status_nagios=(3,3,0,2,2);
my $iron_ps_ha = "1.3.6.1.4.1.15497.1.1.1.8.1.3"; # ps redundancy status
#powerSupplyRedundancyOK(1), powerSupplyRedundancyLost(2)
my @iron_ps_ha_name=("","powerSupplyRedundancyOK","powerSupplyRedundancyLost");
my @iron_ps_ha_nagios=(3,0,1);
my $iron_ps_name = "1.3.6.1.4.1.15497.1.1.1.8.1.4"; # ps name
my $iron_tmp_table = "1.3.6.1.4.1.15497.1.1.1.9"; # temp table
my $iron_tmp_celcius = "1.3.6.1.4.1.15497.1.1.1.9.1.2"; # temp in celcius
my $iron_tmp_name = "1.3.6.1.4.1.15497.1.1.1.9.1.3"; # name
my $iron_fan_table = "1.3.6.1.4.1.15497.1.1.1.10"; # fan table
my $iron_fan_rpm = "1.3.6.1.4.1.15497.1.1.1.10.1.2"; # fan speed in RPM
my $iron_fan_name = "1.3.6.1.4.1.15497.1.1.1.10.1.3"; # fan name
# Foundry BigIron Router Switch (FOUNDRY-SN-AGENT-MIB)
my $foundry_temp = "1.3.6.1.4.1.1991.1.1.1.1.18.0"; # Chassis temperature in Deg C *2
my $foundry_temp_warn = "1.3.6.1.4.1.1991.1.1.1.1.19.0"; # Chassis warn temperature in Deg C *2
my $foundry_temp_crit = "1.3.6.1.4.1.1991.1.1.1.1.20.0"; # Chassis warn temperature in Deg C *2
my $foundry_ps_table = "1.3.6.1.4.1.1991.1.1.1.2.1"; # PS table
my $foundry_ps_desc = "1.3.6.1.4.1.1991.1.1.1.2.1.1.2"; # PS desc
my $foundry_ps_status = "1.3.6.1.4.1.1991.1.1.1.2.1.1.3"; # PS status
my $foundry_fan_table = "1.3.6.1.4.1.1991.1.1.1.3.1"; # FAN table
my $foundry_fan_desc = "1.3.6.1.4.1.1991.1.1.1.3.1.1.2"; # FAN desc
my $foundry_fan_status = "1.3.6.1.4.1.1991.1.1.1.3.1.1.3"; # FAN status
my @foundry_status = (3,0,2); # oper status : 1:other, 2: Normal, 3: Failure
# Linux Net-SNMP with LM-SENSORS
my $linux_temp = "1.3.6.1.4.1.2021.13.16.2.1"; # temperature table
my $linux_temp_descr = "1.3.6.1.4.1.2021.13.16.2.1.2"; # temperature entry description
my $linux_temp_value = "1.3.6.1.4.1.2021.13.16.2.1.3"; # temperature entry value (mC)
my $linux_fan = "1.3.6.1.4.1.2021.13.16.3.1"; # fan table
my $linux_fan_descr = "1.3.6.1.4.1.2021.13.16.3.1.2"; # fan entry description
my $linux_fan_value = "1.3.6.1.4.1.2021.13.16.3.1.3"; # fan entry value (RPM)
my $linux_volt = "1.3.6.1.4.1.2021.13.16.4.1"; # voltage table
my $linux_volt_descr = "1.3.6.1.4.1.2021.13.16.4.1.2"; # voltage entry description
my $linux_volt_value = "1.3.6.1.4.1.2021.13.16.4.1.3"; # voltage entry value (mV)
my $linux_misc = "1.3.6.1.4.1.2021.13.16.4.1"; # misc table
my $linux_misc_descr = "1.3.6.1.4.1.2021.13.16.4.1.2"; # misc entry description
my $linux_misc_value = "1.3.6.1.4.1.2021.13.16.4.1.3"; # misc entry value
# Globals
my $Version='1.3';
my $o_host = undef; # hostname
my $o_community = undef; # community
my $o_port = 161; # port
my $o_help= undef; # wan't some help ?
my $o_verb= undef; # verbose mode
my $o_version= undef; # print version
my $o_timeout= undef; # Timeout (Default 5)
my $o_perf= undef; # Output performance data
my $o_version2= undef; # use snmp v2c
# check type
my $o_check_type= "cisco"; # default Cisco
my @valid_types =("cisco","nokia","bc","iron","foundry","linux");
my $o_temp= undef; # max temp
my $o_fan= undef; # min fan speed
# SNMPv3 specific
my $o_login= undef; # Login for snmpv3
my $o_passwd= undef; # Pass for snmpv3
my $v3protocols=undef; # V3 protocol list.
my $o_authproto='md5'; # Auth protocol
my $o_privproto='des'; # Priv protocol
my $o_privpass= undef; # priv password
# functions
sub p_version { print "check_snmp_env version : $Version\n"; }
sub print_usage {
print "Usage: $0 [-v] -H <host> -C <snmp_community> [-2] | (-l login -x passwd [-X pass -L <authp>,<privp>]) [-p <port>] -T (cisco|nokia|bc|iron|foundry|linux) [-F <rpm>] [-c <celcius>] [-f] [-t <timeout>] [-V]\n";
}
sub isnnum { # Return true if arg is not a number
my $num = shift;
if ( $num =~ /^(\d+\.?\d*)|(^\.\d+)$/ ) { return 0 ;}
return 1;
}
sub set_status { # return worst status with this order : OK, unknwonw, warning, critical
my $new_status=shift;
my $cur_status=shift;
if (($cur_status == 0)|| ($new_status==$cur_status)){ return $new_status; }
if ($new_status==3) { return $cur_status; }
if ($new_status > $cur_status) {return $new_status;}
return $cur_status;
}
sub help {
print "\nSNMP environmental Monitor for Nagios version ",$Version,"\n";
print "GPL Licence, (c)2006-2007 Patrick Proy\n\n";
print_usage();
print <<EOT;
-v, --verbose
print extra debugging information
-h, --help
print this help message
-H, --hostname=HOST
name or IP address of host to check
-C, --community=COMMUNITY NAME
community name for the host's SNMP agent (implies v1 protocol)
-2, --v2c
Use snmp v2c
-l, --login=LOGIN ; -x, --passwd=PASSWD
Login and auth password for snmpv3 authentication
If no priv password exists, implies AuthNoPriv
-X, --privpass=PASSWD
Priv password for snmpv3 (AuthPriv protocol)
-L, --protocols=<authproto>,<privproto>
<authproto> : Authentication protocol (md5|sha : default md5)
<privproto> : Priv protocole (des|aes : default des)
-P, --port=PORT
SNMP port (Default 161)
-T, --type=cisco|nokia|bc|iron|foundry
Environemental check :
cisco : All Cisco equipements : voltage,temp,fan,power supply
(will try to check everything in the env mib)
nokia : Nokia IP platforms : fan and power supply
bc : BlueCoat platforms : fans, power supply, voltage, disks
iron : IronPort platforms : fans, power supply, temp
foundry : Foundry Network platforms : power supply, temp
linux : Net-SNMP with LM-SENSORS : temp, fan, volt, misc
-F, --fan=<rpm>
Minimum fan rpm value (only needed for 'iron' & 'linux')
-c, --celcius=<celcius>
Maximum temp in degree celcius (only needed for 'iron' & 'linux')
-f, --perfparse
Perfparse compatible output
-t, --timeout=INTEGER
timeout for SNMP in seconds (Default: 5)
-V, --version
prints version number
EOT
}
# For verbose output
sub verb { my $t=shift; print $t,"\n" if defined($o_verb) ; }
sub check_options {
Getopt::Long::Configure ("bundling");
GetOptions(
'v' => \$o_verb, 'verbose' => \$o_verb,
'h' => \$o_help, 'help' => \$o_help,
'H:s' => \$o_host, 'hostname:s' => \$o_host,
'p:i' => \$o_port, 'port:i' => \$o_port,
'C:s' => \$o_community, 'community:s' => \$o_community,
'l:s' => \$o_login, 'login:s' => \$o_login,
'x:s' => \$o_passwd, 'passwd:s' => \$o_passwd,
'X:s' => \$o_privpass, 'privpass:s' => \$o_privpass,
'L:s' => \$v3protocols, 'protocols:s' => \$v3protocols,
't:i' => \$o_timeout, 'timeout:i' => \$o_timeout,
'V' => \$o_version, 'version' => \$o_version,
'2' => \$o_version2, 'v2c' => \$o_version2,
'f' => \$o_perf, 'perfparse' => \$o_perf,
'T:s' => \$o_check_type, 'type:s' => \$o_check_type,
'F:i' => \$o_fan, 'fan:i' => \$o_fan,
'c:i' => \$o_temp, 'celcius:i' => \$o_temp
);
# check the -T option
my $T_option_valid=0;
foreach (@valid_types) { if ($_ eq $o_check_type) {$T_option_valid=1} };
if ( $T_option_valid == 0 )
{print "Invalid check type (-T)!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
# Basic checks
if (defined($o_timeout) && (isnnum($o_timeout) || ($o_timeout < 2) || ($o_timeout > 60)))
{ print "Timeout must be >1 and <60 !\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
if (!defined($o_timeout)) {$o_timeout=5;}
if (defined ($o_help) ) { help(); exit $ERRORS{"UNKNOWN"}};
if (defined($o_version)) { p_version(); exit $ERRORS{"UNKNOWN"}};
if ( ! defined($o_host) ) # check host and filter
{ print_usage(); exit $ERRORS{"UNKNOWN"}}
# check snmp information
if ( !defined($o_community) && (!defined($o_login) || !defined($o_passwd)) )
{ print "Put snmp login info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
if ((defined($o_login) || defined($o_passwd)) && (defined($o_community) || defined($o_version2)) )
{ print "Can't mix snmp v1,2c,3 protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
if (defined ($v3protocols)) {
if (!defined($o_login)) { print "Put snmp V3 login info with protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
my @v3proto=split(/,/,$v3protocols);
if ((defined ($v3proto[0])) && ($v3proto[0] ne "")) {$o_authproto=$v3proto[0]; } # Auth protocol
if (defined ($v3proto[1])) {$o_privproto=$v3proto[1]; } # Priv protocol
if ((defined ($v3proto[1])) && (!defined($o_privpass))) {
print "Put snmp V3 priv login info with priv protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
}
}
########## MAIN #######
check_options();
# Check gobal timeout if snmp screws up
if (defined($TIMEOUT)) {
verb("Alarm at $TIMEOUT + 5");
alarm($TIMEOUT+5);
} else {
verb("no global timeout defined : $o_timeout + 10");
alarm ($o_timeout+10);
}
$SIG{'ALRM'} = sub {
print "No answer from host\n";
exit $ERRORS{"UNKNOWN"};
};
# Connect to host
my ($session,$error);
if ( defined($o_login) && defined($o_passwd)) {
# SNMPv3 login
verb("SNMPv3 login");
if (!defined ($o_privpass)) {
verb("SNMPv3 AuthNoPriv login : $o_login, $o_authproto");
($session, $error) = Net::SNMP->session(
-hostname => $o_host,
-version => '3',
-username => $o_login,
-authpassword => $o_passwd,
-authprotocol => $o_authproto,
-timeout => $o_timeout
);
} else {
verb("SNMPv3 AuthPriv login : $o_login, $o_authproto, $o_privproto");
($session, $error) = Net::SNMP->session(
-hostname => $o_host,
-version => '3',
-username => $o_login,
-authpassword => $o_passwd,
-authprotocol => $o_authproto,
-privpassword => $o_privpass,
-privprotocol => $o_privproto,
-timeout => $o_timeout
);
}
} else {
if (defined ($o_version2)) {
# SNMPv2 Login
verb("SNMP v2c login");
($session, $error) = Net::SNMP->session(
-hostname => $o_host,
-version => 2,
-community => $o_community,
-port => $o_port,
-timeout => $o_timeout
);
} else {
# SNMPV1 login
verb("SNMP v1 login");
($session, $error) = Net::SNMP->session(
-hostname => $o_host,
-community => $o_community,
-port => $o_port,
-timeout => $o_timeout
);
}
}
if (!defined($session)) {
printf("ERROR opening session: %s.\n", $error);
exit $ERRORS{"UNKNOWN"};
}
my $exit_val=undef;
########### Cisco env checks ##############
if ($o_check_type eq "cisco") {
verb("Checking cisco env");
# Get load table
my $resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($ciscoEnvMonMIB)
: $session->get_table(Baseoid => $ciscoEnvMonMIB);
if (!defined($resultat)) {
printf("ERROR: Description table : %s.\n", $session->error);
$session->close;
exit $ERRORS{"UNKNOWN"};
}
$session->close;
# Get env data index
my (@voltindex,@tempindex,@fanindex,@psindex)=(undef,undef,undef,undef);
my ($voltexist,$tempexist,$fanexist,$psexist)=(0,0,0,0);
my @oid=undef;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$ciscoVoltageTableDesc/ ) {
@oid=split (/\./,$key);
$voltindex[$voltexist++] = pop(@oid);
}
if ( $key =~ /$ciscoTempTableDesc/ ) {
@oid=split (/\./,$key);
$tempindex[$tempexist++] = pop(@oid);
}
if ( $key =~ /$ciscoFanTableDesc/ ) {
@oid=split (/\./,$key);
$fanindex[$fanexist++] = pop(@oid);
}
if ( $key =~ /$ciscoPSTableDesc/ ) {
@oid=split (/\./,$key);
$psindex[$psexist++] = pop(@oid);
}
}
if ( ($voltexist ==0) && ($tempexist ==0) && ($fanexist ==0) && ($psexist ==0) ) {
print "No Environemental data found : UNKNOWN";
exit $ERRORS{"UNKNOWN"};
}
my $perf_output="";
# Get the data
my ($i,$cur_status)=(undef,undef);
my $volt_global=0;
my %volt_status;
if ($fanexist !=0) {
for ($i=0;$i < $voltexist; $i++) {
$cur_status=$$resultat{$ciscoVoltageTableState. "." . $voltindex[$i]};
verb ($$resultat{$ciscoVoltageTableDesc .".".$voltindex[$i]});
verb ($cur_status);
if (!defined ($cur_status)) { ### Error TODO
$volt_global=1;
}
if (defined($$resultat{$ciscoVoltageTableValue."." . $voltindex[$i]})) {
$perf_output.=" '".$$resultat{$ciscoVoltageTableDesc .".".$voltindex[$i]}."'=" ;
$perf_output.=$$resultat{$ciscoVoltageTableValue."." . $voltindex[$i]};
}
if ($Nagios_state[$CiscoEnvMonNagios{$cur_status}] ne "OK") {
$volt_global= 1;
$volt_status{$$resultat{$ciscoVoltageTableDesc .".".$voltindex[$i]}}=$cur_status;
}
}
}
my $temp_global=0;
my %temp_status;
if ($tempexist !=0) {
for ($i=0;$i < $tempexist; $i++) {
$cur_status=$$resultat{$ciscoTempTableState . "." . $tempindex[$i]};
verb ($$resultat{$ciscoTempTableDesc .".".$tempindex[$i]});
verb ($cur_status);
if (!defined ($cur_status)) { ### Error TODO
$temp_global=1;
}
if (defined($$resultat{$ciscoTempTableValue."." . $tempindex[$i]})) {
$perf_output.=" '".$$resultat{$ciscoTempTableDesc .".".$tempindex[$i]}."'=" ;
$perf_output.=$$resultat{$ciscoTempTableValue."." . $tempindex[$i]};
}
if ($Nagios_state[$CiscoEnvMonNagios{$cur_status}] ne "OK") {
$temp_global= 1;
$temp_status{$$resultat{$ciscoTempTableDesc .".".$tempindex[$i]}}=$cur_status;
}
}
}
my $fan_global=0;
my %fan_status;
if ($fanexist !=0) {
for ($i=0;$i < $fanexist; $i++) {
$cur_status=$$resultat{$ciscoFanTableState . "." . $fanindex[$i]};
verb ($$resultat{$ciscoFanTableDesc .".".$fanindex[$i]});
verb ($cur_status);
if (!defined ($cur_status)) { ### Error TODO
$fan_global=1;
}
if ($Nagios_state[$CiscoEnvMonNagios{$cur_status}] ne "OK") {
$fan_global= 1;
$fan_status{$$resultat{$ciscoFanTableDesc .".".$fanindex[$i]}}=$cur_status;
}
}
}
my $ps_global=0;
my %ps_status;
if ($psexist !=0) {
for ($i=0;$i < $psexist; $i++) {
$cur_status=$$resultat{$ciscoPSTableState . "." . $psindex[$i]};
if (!defined ($cur_status)) { ### Error TODO
$fan_global=1;
}
if ($Nagios_state[$CiscoEnvMonNagios{$cur_status}] ne "OK") {
$ps_global= 1;
$ps_status{$$resultat{$ciscoPSTableDesc .".".$psindex[$i]}}=$cur_status;
}
}
}
my $global_state=0;
my $output="";
if ($fanexist !=0) {
if ($fan_global ==0) {
$output .= $fanexist." Fan OK";
$global_state=1 if ($global_state==0);
} else {
foreach (keys %fan_status) {
$output .= "Fan " . $_ . ":" . $CiscoEnvMonState {$fan_status{$_}} ." ";
if ($global_state < $CiscoEnvMonNagios{$fan_status{$_}} ) {
$global_state = $CiscoEnvMonNagios{$fan_status{$_}} ;
}
}
}
}
if ($psexist !=0) {
$output .= ", " if ($output ne "");
if ($ps_global ==0) {
$output .= $psexist." ps OK";
$global_state=1 if ($global_state==0);
} else {
foreach (keys %ps_status) {
$output .= "ps " . $_ . ":" . $CiscoEnvMonState {$ps_status{$_}} ." ";
if ($global_state < $CiscoEnvMonNagios{$ps_status{$_}} ) {
$global_state = $CiscoEnvMonNagios{$ps_status{$_}} ;
}
}
}
}
if ($voltexist !=0) {
$output .= ", " if ($output ne "");
if ($volt_global ==0) {
$output .= $voltexist." volt OK";
$global_state=1 if ($global_state==0);
} else {
foreach (keys %volt_status) {
$output .= "volt " . $_ . ":" . $CiscoEnvMonState {$volt_status{$_}} ." ";
if ($global_state < $CiscoEnvMonNagios{$volt_status{$_}} ) {
$global_state = $CiscoEnvMonNagios{$volt_status{$_}} ;
}
}
}
}
if ($tempexist !=0) {
$output .= ", " if ($output ne "");
if ($temp_global ==0) {
$output .= $tempexist." temp OK";
$global_state=1 if ($global_state==0);
} else {
foreach (keys %temp_status) {
$output .= "temp " . $_ . ":" . $CiscoEnvMonState {$temp_status{$_}} ." ";
if ($global_state < $CiscoEnvMonNagios{$temp_status{$_}} ) {
$global_state = $CiscoEnvMonNagios{$temp_status{$_}} ;
}
}
}
}
#print $output," : ",$Nagios_state[$global_state]," | ",$perf_output,"\n";
print $output," : ",$Nagios_state[$global_state],"\n";
$exit_val=$ERRORS{$Nagios_state[$global_state]};
exit $exit_val;
}
############# Nokia checks
if ($o_check_type eq "nokia") {
verb("Checking nokia env");
my $resultat;
# status : 0=ok, 1=nok, 2=temp prb
my ($fan_status,$ps_status,$temp_status)=(0,0,0);
my ($fan_exist,$ps_exist,$temp_exist)=(0,0,0);
my ($num_fan,$num_ps)=(0,0);
my ($num_fan_nok,$num_ps_nok)=(0,0);
my $global_status=0;
my $output="";
# get temp
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($nokia_temp_tbl)
: $session->get_table(Baseoid => $nokia_temp_tbl);
if (defined($resultat)) {
verb ("temp found");
$temp_exist=1;
if ($$resultat{$nokia_temp} != 1) {
$temp_status=2;$global_status=1;
$output="Temp CRITICAL ";
} else {
$output="Temp OK ";
}
}
# Get fan table
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($nokia_fan_table)
: $session->get_table(Baseoid => $nokia_fan_table);
if (defined($resultat)) {
$fan_exist=1;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$nokia_fan_status/ ) {
if ($$resultat{$key} != 1) { $fan_status=1; $num_fan_nok++}
$num_fan++;
}
}
if ($fan_status==0) {
$output.= ", ".$num_fan." fan OK";
} else {
$output.= ", ".$num_fan_nok."/".$num_fan." fan CRITICAL";
$global_status=2;
}
}
# Get ps table
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($nokia_ps_table)
: $session->get_table(Baseoid => $nokia_ps_table);
if (defined($resultat)) {
$ps_exist=1;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$nokia_ps_status/ ) {
if ($$resultat{$key} != 1) { $ps_status=1; $num_ps_nok++;}
$num_ps++;
}
if ( $key =~ /$nokia_ps_temp/ ) {
if ($$resultat{$key} != 1) { if ($ps_status==0) {$ps_status=2;$num_ps_nok++;} }
}
}
if ($ps_status==0) {
$output.= ", ".$num_ps." ps OK";
} elsif ($ps_status==2) {
$output.= ", ".$num_ps_nok."/".$num_ps." ps WARNING (temp)";
if ($global_status != 2) {$global_status=1;}
} else {
$output.= ", ".$num_ps_nok."/".$num_ps." ps CRITICAL";
$global_status=2;
}
}
$session->close;
verb ("status : $global_status");
if ( ($fan_exist+$ps_exist+$temp_exist) == 0) {
print "No environemental informations found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($global_status==0) {
print $output." : all OK\n";
exit $ERRORS{"OK"};
}
if ($global_status==1) {
print $output." : WARNING\n";
exit $ERRORS{"WARNING"};
}
if ($global_status==2) {
print $output." : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
}
############# Bluecoat checks
if ($o_check_type eq "bc") {
verb("Checking bluecoat env");
my $resultat;
my $global_status=0;
my ($num_fan,$num_other,$num_volt,$num_temp,$num_disk)=(0,0,0,0,0);
my ($num_fan_ok,$num_other_ok,$num_volt_ok,$num_temp_ok,$num_disk_ok)=(0,0,0,0,0);
my $output="";
my $output_perf="";
# get sensor table
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($bc_sensor_table)
: $session->get_table(Baseoid => $bc_sensor_table);
if (defined($resultat)) {
verb ("sensor table found");
my ($sens_name,$sens_status,$sens_value,$sens_unit)=(undef,undef,undef,undef);
foreach my $key ( keys %$resultat) {
if ($key =~ /$bc_sensor_Name/) {
$sens_name = $$resultat{$key};
$key =~ s/$bc_sensor_Name//;
$sens_unit = $$resultat{$bc_sensor_units.$key};
if ($$resultat{$bc_sensor_Status.$key} != 1) { # sensor not operating : output and status unknown
if ($output ne "") { $output.=", ";}
$output .= $sens_name ." sensor ".$bc_SensorStatus[$$resultat{$bc_sensor_Status.$key}];
if ($global_status==0) {$global_status=3;}
} else { # Get status
$sens_status=$bc_status_nagios[$$resultat{$bc_sensor_Code.$key}];
if ($sens_status != 0) { # warn/critical/unknown : output
if ($output ne "") { $output.=", ";}
$output .= $sens_name . ":".$bc_SensorCode[$sens_status];
set_status($sens_status,$global_status);
}
}
if (defined($o_perf)) {
if ($output_perf ne "") { $output_perf .=" ";}
$output_perf .= "'".$sens_name."'=";
my $perf_value = $$resultat{$bc_sensor_Value.$key} * 10 ** $$resultat{$bc_sensor_Scale.$key};
$output_perf .= $perf_value;
}
### FAN
if ($bc_mesure[$sens_unit] eq "rpm") {
$num_fan++;if ($sens_status == 0) { $num_fan_ok++; }
} elsif ($bc_mesure[$sens_unit] eq "celsius") {
$num_fan++;if ($sens_status == 0) { $num_temp_ok++; }
} elsif ($bc_mesure[$sens_unit] eq "volts") {
$num_volt++;if ($sens_status == 0) { $num_volt_ok++; }
} else {
$num_other++;if ($sens_status == 0) { $num_other_ok++;}}
}
}
}
# Get disk table
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($bc_dsk_table)
: $session->get_table(Baseoid => $bc_dsk_table);
if (defined($resultat)) {
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
my ($dsk_name,$dsk_status)=(undef,undef,undef);
if ( $key =~ /$bc_dsk_status/ ) {
$num_disk++;
$dsk_status=$bc_dsk_status_nagios[$$resultat{$key}];
if ( $dsk_status != 0) {
$key =~ s/$bc_dsk_status//;
$dsk_name = $$resultat{$bc_dsk_vendor.$key} . "(".$$resultat{$bc_dsk_serial.$key} . ")";
if ($output ne "") { $output.=", ";}
$output .= $dsk_name . ":" . $bc_DiskStatus[$$resultat{$bc_dsk_status.$key}];
set_status($dsk_status,$global_status);
} else {
$num_disk_ok++;
}
}
}
}
if ($num_fan+$num_other+$num_volt+$num_temp+$num_disk == 0) {
print "No information found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($output ne "") { $output.=", ";}
if ($num_fan_ok != 0) { $output.= $num_fan_ok." fan OK ";}
if ($num_other_ok != 0) { $output.= $num_other_ok." other OK ";}
if ($num_volt_ok != 0) { $output.= $num_volt_ok." voltage OK ";}
if ($num_temp_ok != 0) { $output.= $num_temp_ok." temp OK ";}
if ($num_disk_ok != 0) { $output.= $num_disk_ok." disk OK ";}
if (defined($o_perf)) { $output_perf = " | " . $output_perf;}
if ($global_status==3) {
print $output," : UNKNOWN",$output_perf,"\n";
exit $ERRORS{"UNKNOWN"};
}
if ($global_status==2) {
print $output," : CRITICAL",$output_perf,"\n";
exit $ERRORS{"CRITICAL"};
}
if ($global_status==1) {
print $output," : WARNING",$output_perf,"\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK",$output_perf,"\n";
exit $ERRORS{"OK"};
}
############# Ironport checks
if ($o_check_type eq "iron") {
verb("Checking Ironport env");
my $resultat;
# status : 0=ok, 1=warn, 2=crit
my ($fan_status,$ps_status,$temp_status)=(0,0,0);
my ($fan_exist,$ps_exist,$temp_exist)=(0,0,0);
my ($num_fan,$num_ps,$num_temp)=(0,0,0);
my ($num_fan_nok,$num_ps_nok,$num_temp_nok)=(0,0,0);
my $global_status=0;
my $output="";
# get temp if $o_temp is defined
if (defined($o_temp)) {
verb("Checking temp < $o_temp");
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($iron_tmp_table)
: $session->get_table(Baseoid => $iron_tmp_table);
if (defined($resultat)) {
verb ("temp found");
$temp_exist=1;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$iron_tmp_celcius/ ) {
verb("Status : $$resultat{$key}");
if ($$resultat{$key} > $o_temp) {
my @index_oid=split(/\./,$key);
my $index_oid_key=pop(@index_oid);
$output .= ",Temp : ". $$resultat{ $iron_tmp_name.".".$index_oid_key}." : ".$$resultat{$key}." C";
$temp_status=2;
$num_temp_nok++;
}
$num_temp++;
}
}
if ($temp_status==0) {
$output.= ", ".$num_temp." temp < ".$o_temp." OK";
} else {
$output.= ", ".$num_temp_nok."/".$num_temp." temp probes CRITICAL";
$global_status=2;
}
}
}
# Get fan status if $o_fan is defined
if (defined($o_fan)) {
verb("Checking fan > $o_fan");
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($iron_fan_table)
: $session->get_table(Baseoid => $iron_fan_table);
if (defined($resultat)) {
verb ("fan found");
$fan_exist=1;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$iron_fan_rpm/ ) {
verb("Status : $$resultat{$key}");
if ($$resultat{$key} < $o_fan) {
my @index_oid=split(/\./,$key);
my $index_oid_key=pop(@index_oid);
$output .= ",Fan ". $$resultat{ $iron_fan_name.".".$index_oid_key}." : ".$$resultat{$key}." RPM";
$fan_status=2;
$num_fan_nok++;
}
$num_fan++;
}
}
if ($fan_status==0) {
$output.= ", ".$num_fan." fan > ".$o_fan." OK";
} else {
$output.= ", ".$num_fan_nok."/".$num_fan." fans CRITICAL";
$global_status=2;
}
}
}
# Get power supply status
verb("Checking PS");
$resultat = (Net::SNMP->VERSION < 4) ?
$session->get_table($iron_ps_table)
: $session->get_table(Baseoid => $iron_ps_table);
if (defined($resultat)) {
verb ("ps found");
$ps_exist=1;
foreach my $key ( keys %$resultat) {
verb("OID : $key, Desc : $$resultat{$key}");
if ( $key =~ /$iron_ps_status/ ) {
verb("Status : $iron_ps_status_name[$$resultat{$key}]");
if ($iron_ps_status_nagios[$$resultat{$key}] != 0) {
my @index_oid=split(/\./,$key);
my $index_oid_key=pop(@index_oid);
$output .= ",PS ". $$resultat{$iron_ps_name.".".$index_oid_key}." : ".$iron_ps_status_name[$$resultat{$key}];
$ps_status=2;
$num_ps_nok++;
}
$num_ps++;
}
}
if ($ps_status==0) {
$output.= ", ".$num_ps." ps OK";
} else {
$output.= ", ".$num_ps_nok."/".$num_ps." ps CRITICAL";
$global_status=2;
}
}
$session->close;
verb ("status : $global_status");
if ( ($fan_exist+$ps_exist+$temp_exist) == 0) {
print "No environemental informations found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output =~ s/^,//;
if ($global_status==0) {
print $output." : all OK\n";
exit $ERRORS{"OK"};
}
if ($global_status==1) {
print $output." : WARNING\n";
exit $ERRORS{"WARNING"};
}
if ($global_status==2) {
print $output." : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
}
########### Foundry env checks ##############
if ($o_check_type eq "foundry") {
verb("Checking foundry env");
my $global_status=0; # status to UNKNOWN
my $output="";
# Get temperature
my @foundry_temp_oid=($foundry_temp,$foundry_temp_warn,$foundry_temp_crit);
my $result_temp = $session->get_request(
Varbindlist => \@foundry_temp_oid
);
my $temp_found=0;
if (defined($result_temp)) {
$temp_found=1;
#Temp found
$output = "Temp : " . $$result_temp{$foundry_temp} / 2;
if ($$result_temp{$foundry_temp} > $$result_temp{$foundry_temp_crit}) { # Temp above critical
$output.= " > ". $$result_temp{$foundry_temp_crit} / 2 . " : CRITICAL";
$global_status=3;
} elsif ( $$result_temp{$foundry_temp} > $$result_temp{$foundry_temp_warn}) { # Temp above warning
$output.= " > ". $$result_temp{$foundry_temp_warn} / 2 . " : WARNING";
$global_status=2;
} else {
$output.= " < ". $$result_temp{$foundry_temp_warn} / 2 . " : OK";
$global_status=1;
}
}
# Get PS table (TODO : Bug in FAN table, see with Foundry).
my $result_ps = (Net::SNMP->VERSION < 4) ?
$session->get_table($foundry_ps_table)
: $session->get_table(Baseoid => $foundry_ps_table);
my $ps_num=0;
if (defined($result_ps)) {
$output .=", " if defined($output);
foreach my $key ( keys %$result_ps) {
verb("OID : $key, Desc : $$result_ps{$key}");
if ($$result_ps{$key} =~ /$foundry_ps_desc/) {
$ps_num++;
my @oid_list = split (/\./,$key);
my $index_ps = pop (@oid_list);
$index_ps= $foundry_ps_status . "." . $index_ps;
if (defined ($$result_ps{$index_ps})) {
if ($$result_ps{$index_ps} == 3) {
$output.="PS ".$$result_ps{$key}." : FAILURE";
$global_status=3;
} elsif ($$result_ps{$index_ps} == 2) {
$global_status=1 if ($global_status==0);
} else {
$output.= "ps ".$$result_ps{$key}." : OTHER";
}
} else {
$output.= "ps ".$$result_ps{$key}." : UNDEFINED STATUS";
}
}
}
}
$session->close;
if (($ps_num+$temp_found) == 0) {
print "No data found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($global_status==1) {
print $output." : all OK\n";
exit $ERRORS{"OK"};
}
if ($global_status==2) {
print $output." : WARNING\n";
exit $ERRORS{"WARNING"};
}
if ($global_status==3) {
print $output." : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
print $output." : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
########### Cisco env checks ##############
if ($o_check_type eq "linux") {
verb("Checking linux env");
print "Not implemented yet : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
print "Unknown check type : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
Reference in New Issue View Git Blame Copy Permalink