817 lines
27 KiB
Perl
Executable file
817 lines
27 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
############################## check_snmp_env #################
|
|
# Version : 1.1
|
|
# Date : Jan 11 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
|
|
|
|
# Globals
|
|
|
|
my $Version='1.1';
|
|
|
|
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");
|
|
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|lp|iron) [-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
|
|
Environemental check :
|
|
cisco : voltage,temp,fan,power supply status
|
|
will try to check everything present
|
|
nokia : fan and power supply
|
|
bc : fans, power supply, voltage, disks
|
|
iron : fans, power supply, temp
|
|
-F, --fan=<rpm>
|
|
Minimum fan rpm value
|
|
-c, --celcius=<celcius>
|
|
Maximum temp in degree celcius
|
|
-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);
|
|
}
|
|
|
|
# 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"};
|
|
}
|
|
|
|
# Get the data
|
|
my ($i,$cur_status)=(undef,undef);
|
|
|
|
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 ($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 ($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";
|
|
} else {
|
|
foreach (keys %fan_status) {
|
|
$output .= "Fan " . $_ . ":" . $CiscoEnvMonState {$fan_status{$_}} ." ";
|
|
if ($global_state < $CiscoEnvMonNagios{$fan_status{$_}} ) {
|
|
$global_state = $CiscoEnvMonNagios{$fan_status{$_}} ;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
$output .= "," if ($output ne "");
|
|
if ($psexist !=0) {
|
|
if ($ps_global ==0) {
|
|
$output .= $psexist." ps OK";
|
|
} else {
|
|
foreach (keys %ps_status) {
|
|
$output .= "ps " . $_ . ":" . $CiscoEnvMonState {$ps_status{$_}} ." ";
|
|
if ($global_state < $CiscoEnvMonNagios{$ps_status{$_}} ) {
|
|
$global_state = $CiscoEnvMonNagios{$ps_status{$_}} ;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
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"};
|
|
}
|
|
}
|
|
|