#!/usr/bin/perl
# ============================================================================
# ============================== INFO ========================================
# ============================================================================
# Version : 0.7
# Date : February 21 2011
# Author : Michiel Timmers ( michiel.timmers AT gmx.net)
# Based on : "check_snmp_env" plugin (version 1.3) from Patrick Proy
# Licence : GPL - summary below
#
# ============================================================================
# ============================== SUMMARY =====================================
# ============================================================================
# This plugin is an enhancement on the "check_snmp_env" plugin (version 1.3)
# from Patrick Proy. The basic function of this script is to check various
# hardware based information, like power supply's, fans, cards, modules etc.
# Although some of the checks in this plugin are also in the "check_snmp_env"
# I strongly suggest using this version as some of the checks in
# "check_snmp_env" aren't efficient or don't give alarms.
#
# The default SNMP version has been changed from SNMPv1 to SNMPv2c because
# of the use of SNMP Bulk option which is more efficient. SNMPv3 also
# uses SNMP Bulk.
#
# This scrip supports IPv6. You can use the "-6" switch for this.
#
# ============================================================================
# ============================== SUPPORTED CHECKS ============================
# ============================================================================
# The following check are supported:
#
# NOTE(!!): There are several Cisco checks, on many Cisco devices multiple
# Cisco checks will functions.
#
# cisco __________: Cisco Systems : Fan, power-supply, voltage, temperature
# ciscoSW ________: Cisco Systems : Card and module status check
# ciscoNEW _______: Cisco Systems : Sensor check for devices that have
# the CISCO-ENTITY-SENSOR-MIB
# nokia __________: Nokia IP : Fan, power-supply
# bc _____________: Blue Coat Systems : Fan, power-supply, voltage, disk
# iron ___________: IronPort : Fan, power-supply, temperature
# foundry ________: Foundry Network : power supply, temperature
# linux __________: lm-sensors : Fan, voltage, temperature, misc
# extremeSW ______: Extreme Networks : Slot, power-supply, fan, temperature
# juniper ________: Juniper Networks : Component status check
# procurve _______: HP ProCurve : Fan, power-supply, temperature
# netscreen ______: NetScreen : Slot, fan, power-supply
# citrix _________: Citrix NetScaler : Fan, , voltage, temperture,
# HA state, SSL engine
# transmode ______: Transmode Systems : Check alarm table that is
# not deactivated and not acknowledged
#
# Check the http://exchange.nagios.org website for new versions.
# For comments, questions, problems and patches send me an
# e-mail (michiel.timmmers AT gmx.net).
#
# ============================================================================
# ============================== TODO ========================================
# ============================================================================
# - cisco / ciscoSW and ciscoNEW needs to be checked regarding OID's
# - Make use of "set_status" subroutine for all checks
# - "linux" check does nothing (need all possible values of lm-sensors
# to implement). Perhaps IPMI support, currently lacks general MIB
# - "cisco","nokia","ironport","foundry","linux" needs clean up, need
# snmpwalks for this
# - Make more use of verbose output
# - utils.pm will become deprecated. Replacement with Nagios::Plugin?
# What are the effects of switching to Nagios::Plugin?
#
# ============================================================================
# ============================== VERSIONS ====================================
# ============================================================================
# version 0.2 : - juniper: Ignores a "Unknown" PCMCIA card
# - Juniper: Standby(7) wasn't defined correctly
# - juniper: Instance id's longer than 7 characters were failing
# version 0.3 : - ciscoSW: Corrected the modules OID for Cisco
# - ciscoSW: Standby cards don't generate critical status anymore
# version 0.4 : - extreme: Added support for devices from Extreme Networks
# version 0.5 : - juniper: J series routers now supported
# version 0.6 : - general: Added support for IPv6 communication
# version 0.7 : - ciscoNEW: Support for Cisco with CISCO-ENTITY-SENSOR-MIB
# - procurve: Support for HP ProCurve
# - netscreen: Support for Netscreen
# - citrix: Support for Citrix Netscaler
# - transmode: Support for Transmode
# - extreme: Added checks for power-supply, fans and temperature
# - juniper:
# - bc: Blue Coat check wasn't working properly
# - general: Default SNMP version is now SNMPv2c
# - general: Switch default SNMPv3 from md5/des to sha/aes
# - general: Lots of small fixes
#
# ============================================================================
# ============================== LICENCE =====================================
# ============================================================================
# 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 3 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.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see
#
# ============================================================================
# ============================== HELP ========================================
# ============================================================================
# Help : ./check_snmp_environment.pl --help
#
# ============================================================================
use warnings;
use strict;
use Net::SNMP;
use Getopt::Long;
#use lib "/usr/local/nagios/libexec";
#use utils qw(%ERRORS $TIMEOUT);
# ============================================================================
# ============================== NAGIOS VARIABLES ============================
# ============================================================================
my $TIMEOUT = 15; # This is the global script timeout, not the SNMP timeout
my %ERRORS = ('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
my @Nagios_state = ("UNKNOWN","OK","WARNING","CRITICAL"); # Nagios states coding
# ============================================================================
# ============================== OID VARIABLES ===============================
# ============================================================================
# System description
my $sysdescr = "1.3.6.1.2.1.1.1.0"; # Global system description
# 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
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
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
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
# 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_code = (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_status_sensor = (3,0,1,2); # nagios status equivallent to BC status
my @bc_mesure = ("","","","Enum","volts","celsius","rpm");
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"; # bc_DiskStatus - present(1), initializing(2), inserted(3), offline(4), removed(5), not-present(6), empty(7), bad(8), unknown(9
my $bc_dsk_vendor = "1.3.6.1.4.1.3417.2.2.1.1.1.1.5"; # bc_DiskStatus
my $bc_dsk_product = "1.3.6.1.4.1.3417.2.2.1.1.1.1.6"; # bc_DiskStatus
my $bc_dsk_serial = "1.3.6.1.4.1.3417.2.2.1.1.1.1.8"; # bc_DiskStatus
my @bc_DiskStatus = ("","present","initializing","inserted","offline","removed","not-present","empty","bad","unknown");
my @bc_dsk_status_nagios = (3,0,1,1,1,1,0,0,2,3);
# Iron Port env mib
my $iron_ps_table = "1.3.6.1.4.1.15497.1.1.1.8"; # power-supply table
my $iron_ps_status = "1.3.6.1.4.1.15497.1.1.1.8.1.2"; #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
# lm-sensors
my $linux_env_table = "1.3.6.1.4.1.2021.13.16"; # Global env table
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.5.1"; # misc table
my $linux_misc_descr = "1.3.6.1.4.1.2021.13.16.5.1.2"; # misc entry description
my $linux_misc_value = "1.3.6.1.4.1.2021.13.16.5.1.3"; # misc entry value
# Cisco switches (catalys & IOS)
my $cisco_chassis_card_descr = "1.3.6.1.4.1.9.3.6.11.1.3"; # Chassis card description
my $cisco_chassis_card_slot = "1.3.6.1.4.1.9.3.6.11.1.7"; # Chassis card slot number
my $cisco_chassis_card_state = "1.3.6.1.4.1.9.3.6.11.1.9"; # operating status of card - 1 : Not specified, 2 : Up, 3: Down, 4 : standby
my @cisco_chassis_card_status_text = ("Unknown","Not specified","Up","Down","Standby");
my @cisco_chassis_card_status = (2,2,0,2,0);
my $cisco_module_descr = "1.3.6.1.2.1.47.1.1.1.1.13"; # Chassis card description
my $cisco_module_slot = "1.3.6.1.4.1.9.5.1.3.1.1.25"; # Chassis card slot number
my $cisco_module_state = "1.3.6.1.4.1.9.9.117.1.2.1.1.2"; # operating status of card - 1:unknown, 2:ok, 3:disabled, 4:okButDiagFailed, 5:boot, 6:selfTest, 7:failed, 8:missing, 9:mismatchWithParent,
# 10:mismatchConfig, 11:diagFailed, 12:dormant, 13:outOfServiceAdmin, 14:outOfServiceEnvTemp, 15:poweredDown, 16:poweredUp,
# 17:powerDenied, 18:powerCycled, 19:okButPowerOverWarning, 20:okButPowerOverCritical, 21:syncInProgress
my @cisco_module_status_text =("Unknown", "unknown", "OK", "Disabled", "OkButDiagFailed", "Boot",
"SelfTest", "Failed", "Missing", "MismatchWithParent", "MismatchConfig",
"DiagFailed", "Dormant", "OutOfServiceAdmin", "OutOfServiceEnvTemp", "PoweredDown",
"PoweredUp", "PowerDenied", "PowerCycled", "OkButPowerOverWarning",
"OkButPowerOverCritical", "SyncInProgress");
my @cisco_module_status = (3,3,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2);
# Juniper routers (JUNOS)
my $juniper_operating_descr = "1.3.6.1.4.1.2636.3.1.13.1.5"; # Component description
my $juniper_operating_state = "1.3.6.1.4.1.2636.3.1.13.1.6"; # Operating status of component- Unknown(1), Running(2), Ready(3), Reset(4), RunningAtFullSpeed(5), Down(6), Standby(7)
my @juniper_operating_status_text = ("--Invalid--","Unknown","Running","Ready","Reset","RunningAtFullSpeed","Down","Standby");
my @juniper_operating_status = (3,3,0,0,1,0,2,0);
# Extreme switches
my $extreme_slot_table = "1.3.6.1.4.1.1916.1.1.2.2.1";
my $extreme_slot_name = "1.3.6.1.4.1.1916.1.1.2.2.1.2"; # Component description
my $extreme_slot_state = "1.3.6.1.4.1.1916.1.1.2.2.1.5"; # Operating status of component - NotPresent(1), testing(2), mismatch(3), failed(4), operational(5), powerdown(6), unknown(7)
my $extreme_slot_serialnumber = "1.3.6.1.4.1.1916.1.1.2.2.1.6";
my @extreme_slot_state_text = ("--Invalid--","NotPresent","Testing","Mismatch","Failed","Operational","Powerdown","Unknown");
my @extreme_slot_nagios = (3,0,2,2,2,0,2,3);
my $extreme_ps_table = "1.3.6.1.4.1.1916.1.1.1.27.1";
my $extreme_ps_status = "1.3.6.1.4.1.1916.1.1.1.27.1.2";
my @extreme_ps_status_text = ("--Invalid--","notPresent","presentOK","presentNotOK");
my @extreme_ps_nagios = (3,1,0,2);
my $extreme_fan_table = "1.3.6.1.4.1.1916.1.1.1.9.1";
my $extreme_fan_number = "1.3.6.1.4.1.1916.1.1.1.9.1.1";
my $extreme_fan_operational = "1.3.6.1.4.1.1916.1.1.1.9.1.2";
my @extreme_fan_operational_text = ("--Invalid--","Operational","Not operational");
my @extreme_fan_nagios = (3,0,2);
my $extreme_temperature_alarm = "1.3.6.1.4.1.1916.1.1.1.7.0";
my @extreme_temperature_alarm_text = ("--Invalid--","OverTemperature","OK");
my @extreme_temperature_nagios = (3,2,0);
my $extreme_temperature_current = "1.3.6.1.4.1.1916.1.1.1.8.0";
# HP ProCurve switches
my $procurve_operating_descr = "1.3.6.1.4.1.11.2.14.11.1.2.6.1.7"; # Component description
my $procurve_operating_state = "1.3.6.1.4.1.11.2.14.11.1.2.6.1.4"; # Operating status of component - Unknown(1), Bad(2), Warning(3), Good(4), NotPresent(5)
my @procurve_operating_status_text = ("--Invalid--","Unknown","Bad","Warning","Good","NotPresent");
my @procurve_operating_status = (3,3,2,1,0,4);
# Netscreen
my $netscreen_slot_operating_descr = "1.3.6.1.4.1.3224.21.5.1.2"; # Component description
my $netscreen_slot_operating_state = "1.3.6.1.4.1.3224.21.5.1.3"; # Operating status of component - Fail?(0), Good(1)
my @netscreen_slot_operating_status_text = ("Fail","Good");
my @netscreen_slot_operating_status = (2,0);
my $netscreen_power_operating_descr = "1.3.6.1.4.1.3224.21.1.1.3"; # Component description
my $netscreen_power_operating_state = "1.3.6.1.4.1.3224.21.1.1.2"; # Operating status of component - Fail(0), Good(1)
my @netscreen_power_operating_status_text = ("Fail","Good");
my @netscreen_power_operating_status = (2,0);
my $netscreen_fan_operating_descr = "1.3.6.1.4.1.3224.21.2.1.3"; # Component description
my $netscreen_fan_operating_state = "1.3.6.1.4.1.3224.21.2.1.2"; # Operating status of component - Fail(0), Good(1), Not Installed(2)
my @netscreen_fan_operating_status_text = ("Fail","Good","Not Installed");
my @netscreen_fan_operating_status = (2,0,4);
# Cisco CISCO-ENTITY-SENSOR-MIB
my $cisco_ios_xe_physicaldescr = "1.3.6.1.2.1.47.1.1.1.1.7";
my $cisco_ios_xe_type = "1.3.6.1.4.1.9.9.91.1.1.1.1.1";
my @cisco_ios_xe_type_text = ("not_specified","other","unknown","voltsAC","voltsDC","amperes","watts","hertz","celsius","percent","rpm","cmm","truthvalue","specialEnum","dBm");
my $cisco_ios_xe_scale = "1.3.6.1.4.1.9.9.91.1.1.1.1.2";
my @cisco_ios_xe_scale_power = ("0","-24","-21","-18","-15","12","e-9","e-6","e-3","e0","e3","e6","9","12","15","18","21","24");
my $cisco_ios_xe_precision = "1.3.6.1.4.1.9.9.91.1.1.1.1.3";
my $cisco_ios_xe_value = "1.3.6.1.4.1.9.9.91.1.1.1.1.4";
my $cisco_ios_xe_status = "1.3.6.1.4.1.9.9.91.1.1.1.1.5";
my @cisco_ios_xe_operating_text = ("--Invalid--","ok","unavailable","nonoperational");
my @cisco_ios_xe_operating_status = (0,1,2,3);
my $cisco_ios_xe_threshold_severity = "1.3.6.1.4.1.9.9.91.1.2.1.1.2";
my $cisco_ios_xe_threshold_value = "1.3.6.1.4.1.9.9.91.1.2.1.1.4";
# Citrix NetScaler
my $citrix_desc = "1.3.6.1.4.1.5951.4.1.1.41.7.1.1";
my $citrix_value = "1.3.6.1.4.1.5951.4.1.1.41.7.1.2";
my $citrix_high_availability_state = "1.3.6.1.4.1.5951.4.1.1.23.24.0";
my @citrix_high_availability_state_text = ("unknown","init","down","up","partialFail","monitorFail","monitorOk","completeFail","dumb","disabled","partialFailSsl","routemonitorFail");
my $citrix_ssl_engine_state = "1.3.6.1.4.1.5951.4.1.1.47.2.0";
my @citrix_ssl_engine_state_text = ("down","up");
# Transmode WDM MIB/OID
my $transmode_table = "1.3.6.1.4.1.11857.1.1.3.2.1"; # Alarm Active Entry table
my $transmode_alarm_rack = "1.3.6.1.4.1.11857.1.1.3.2.1.2"; # Non Acked Alarm rack
my $transmode_alarm_slot = "1.3.6.1.4.1.11857.1.1.3.2.1.3"; # Non Acked Alarm slot
my $transmode_alarm_descr = "1.3.6.1.4.1.11857.1.1.3.2.1.4"; # Non Acked Alarm description
my $transmode_alarm_sev = "1.3.6.1.4.1.11857.1.1.3.2.1.5"; # Non Acked Alarm severity
my $transmode_alarm_unit = "1.3.6.1.4.1.11857.1.1.3.2.1.6"; # Non Acked Alarm unit
my $transmode_alarm_serial = "1.3.6.1.4.1.11857.1.1.3.2.1.7"; # Non Acked Alarm serial
my $transmode_alarm_time_start = "1.3.6.1.4.1.11857.1.1.3.2.1.8"; # Time of Alarm Start
my $transmode_alarm_time_end = "1.3.6.1.4.1.11857.1.1.3.2.1.9"; # Time of Alarm End
my @transmode_alarm_status_text = ("Indeterminate","Critical","Major","Minor","Warning");
my @transmode_alarm_status = (1,2,2,1,1);
# ============================================================================
# ============================== GLOBAL VARIABLES ============================
# ============================================================================
my $Version = '0.7'; # Version number of this script
my $o_host = undef; # Hostname
my $o_community = undef; # Community
my $o_port = 161; # Port
my $o_help = undef; # Want 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_version1 = undef; # Use SNMPv1
my $o_version2 = undef; # Use SNMPv2c
my $o_domain = undef; # Use IPv6
my $o_check_type = "cisco"; # Default check is "cisco"
my @valid_types = ("cisco","nokia","bc","iron","foundry","linux","ciscoSW","extremeSW","juniper","procurve","netscreen","ciscoNEW","citrix","transmode");
my $o_temp = undef; # Max temp
my $o_fan = undef; # Min fan speed
my $o_login = undef; # Login for SNMPv3
my $o_passwd = undef; # Pass for SNMPv3
my $v3protocols = undef; # V3 protocol list.
my $o_authproto = 'sha'; # Auth protocol
my $o_privproto = 'aes'; # Priv protocol
my $o_privpass = undef; # priv password
# ============================================================================
# ============================== SUBROUTINES (FUNCTIONS) =====================
# ============================================================================
# Subroutine: Print version
sub p_version {
print "check_snmp_environment version : $Version\n";
}
# Subroutine: Print Usage
sub print_usage {
print "Usage: $0 [-v] -H [-6] -C [-2] | (-l login -x passwd [-X pass -L ,]) [-p ] -T (cisco|ciscoSW|ciscoNEW|nokia|bc|iron|foundry|linux|extremeSW|juniper|procurve|netscreen|citrix|transmode) [-F ] [-c ] [-f] [-t ] [-V]\n";
}
# Subroutine: Check number
sub isnnum { # Return true if arg is not a number
my $num = shift;
if ( $num =~ /^(\d+\.?\d*)|(^\.\d+)$/ ) { return 0 ;}
return 1;
}
# Subroutine: Set final status
sub set_status { # Return worst status with this order : OK, unknown, warning, critical
my $new_status = shift;
my $cur_status = shift;
if ($new_status == 1 && $cur_status != 2) {$cur_status = $new_status;}
if ($new_status == 2) {$cur_status = $new_status;}
if ($new_status == 3 && $cur_status == 0) {$cur_status = $new_status;}
return $cur_status;
}
# Subroutine: Check if SNMP table could be retrieved, otherwise give error
sub check_snmp_result {
my $snmp_table = shift;
my $snmp_error_mesg = shift;
# Check if table is defined and does not contain specified error message.
# Had to do string compare it will not work with a status code
if (!defined($snmp_table) && $snmp_error_mesg !~ /table is empty or does not exist/) {
printf("ERROR: ". $snmp_error_mesg . " : UNKNOWN\n");
exit $ERRORS{"UNKNOWN"};
}
}
# Subroutine: Print complete help
sub help {
print "\nSNMP environmental plugin for Nagios\nVersion: ",$Version,"\n\n";
print_usage();
print <,
: Authentication protocol (md5|sha : default sha)
: Priv protocole (des|aes : default aes)
-P, --port=PORT
SNMP port (Default 161)
-T, --type=cisco|ciscoSW|ciscoNEW|nokia|bc|iron|foundry|linux|extremeSW|juniper|procurve|netscreen|citrix|transmode
Environmental check :
cisco __________: Cisco Systems : Fan, power-supply, voltage, temperature
ciscoSW ________: Cisco Systems : Card and module status check
ciscoNEW _______: Cisco Systems : Sensor check for devices that have the CISCO-ENTITY-SENSOR-MIB
nokia __________: Nokia IP : Fan, power-supply
bc _____________: Blue Coat Systems : Fan, power-supply, voltage, disk
iron ___________: IronPort : Fan, power-supply, temperature
foundry ________: Foundry Network : power supply, temperature
linux __________: lm-sensors : Fan, voltage, temperature, misc
extremeSW ______: Extreme Networks : Slot, power-supply, fan, temperature
juniper ________: Juniper Networks : Component status check
procurve _______: HP ProCurve : Fan, power-supply, temperature
netscreen ______: NetScreen : Slot, fan, power-supply (ScreenOS 6.1 and newer)
citrix _________: Citrix NetScaler : Fan, , voltage, temperture (thresholds are hardcoded), HA state, SSL engine
transmode ______: Transmode Systems : Check alarm table that is not deactivated and not acknowledged
-F, --fan=
Minimum fan rpm value (only needed for 'iron' & 'linux')
-c, --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
Notes:
- Check the http://exchange.nagios.org website for new versions.
- For questions, problems and patches send me an e-mail (michiel.timmmers AT gmx.net).
EOT
}
# Subroutine: Verbose output
sub verb {
my $t=shift;
print $t,"\n" if defined($o_verb);
}
# Subroutine: Verbose output
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,
'6' => \$o_domain, 'use-ipv6' => \$o_domain,
'1' => \$o_version1, 'v1' => \$o_version1,
'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"};
}
# check host and filter
if ( ! defined($o_host) ) {
print_usage();
exit $ERRORS{"UNKNOWN"};
}
# Check IPv6
if (defined ($o_domain)) {
$o_domain="udp/ipv6";
} else {
$o_domain="udp/ipv4";
}
# 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,v2c,v3 protocols!\n";
print_usage();
exit $ERRORS{"UNKNOWN"};
}
# Check SNMPv3 information
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];
}
if (defined ($v3proto[1])) {
$o_privproto=$v3proto[1];
}
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." + ".$o_timeout);
alarm($TIMEOUT+$o_timeout);
} else {
verb("no global timeout defined : ".$o_timeout." + 15");
alarm ($o_timeout+15);
}
# Report when the script gets "stuck" in a loop or takes to long
$SIG{'ALRM'} = sub {
print "UNKNOWN: Script timed out\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)) {
# SNMPv3 login (Without encryption)
verb("SNMPv3 AuthNoPriv login : $o_login, $o_authproto");
($session, $error) = Net::SNMP->session(
-domain => $o_domain,
-hostname => $o_host,
-version => 3,
-username => $o_login,
-authpassword => $o_passwd,
-authprotocol => $o_authproto,
-timeout => $o_timeout
);
} else {
# SNMPv3 login (With encryption)
verb("SNMPv3 AuthPriv login : $o_login, $o_authproto, $o_privproto");
($session, $error) = Net::SNMP->session(
-domain => $o_domain,
-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)) || (!defined ($o_version1))) {
# SNMPv2 login
verb("SNMP v2c login");
($session, $error) = Net::SNMP->session(
-domain => $o_domain,
-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(
-domain => $o_domain,
-hostname => $o_host,
-version => 1,
-community => $o_community,
-port => $o_port,
-timeout => $o_timeout
);
}
}
# Check if there are any problems with the session
if (!defined($session)) {
printf("ERROR opening session: %s.\n", $error);
exit $ERRORS{"UNKNOWN"};
}
my $exit_val=undef;
# ============================================================================
# ============================== CISCO =======================================
# ============================================================================
if ($o_check_type eq "cisco") {
verb("Checking cisco env");
# Get load table
my $resultat = $session->get_table(Baseoid => $ciscoEnvMonMIB);
&check_snmp_result($resultat,$session->error);
# 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 \n";
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{$_}} ;
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
#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 =======================================
# ============================================================================
if ($o_check_type eq "nokia") {
verb("Checking nokia env");
# Define variables
my $resultat;
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 = $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 = $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 = $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;
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$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 ====================================
# ============================================================================
if ($o_check_type eq "bc") {
verb("Checking bluecoat env");
# Define variables
my $final_status = 0;
my $output = "";
my $output_perf = "";
my $tmp_status_sensor;
my $tmp_status_code;
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 ($sens_name,$sens_status,$sens_scale,$sens_value,$sens_code,$sens_unit)=(undef,undef,undef,undef,undef,undef);
# Get SNMP table(s) and check the result
my $resultat_sensor = $session->get_table(Baseoid => $bc_sensor_table);
&check_snmp_result($resultat_sensor,$session->error);
my $resultat_disk = $session->get_table(Baseoid => $bc_dsk_table);
&check_snmp_result($resultat_disk,$session->error);
# Check the sensor table
if (defined($resultat_sensor)) {
verb ("sensor table found");
foreach my $key ( keys %$resultat_sensor) {
if ($key =~ /$bc_sensor_Name/) {
$sens_name = $$resultat_sensor{$key};
$key =~ s/$bc_sensor_Name//;
$sens_status = $$resultat_sensor{$bc_sensor_Status.$key};
$sens_scale = $$resultat_sensor{$bc_sensor_Scale.$key};
$sens_value = $$resultat_sensor{$bc_sensor_Value.$key} * 10 ** $sens_scale;
$sens_code = $$resultat_sensor{$bc_sensor_Code.$key};
$sens_unit = $$resultat_sensor{$bc_sensor_Units.$key};
$sens_scale = $$resultat_sensor{$bc_sensor_Scale.$key};
if ($sens_status != 1 || $sens_code != 1) { # check is there is something wrong with either the status or code
if ($output ne "") { $output.=", ";}
if ($sens_status != 1 && $sens_code != 1) { # If both the status and code are not reporting "ok" use the following output
$output .= $sens_name ." sensor ".$bc_SensorStatus[$sens_status].", reports ".$sens_value." ".$bc_mesure[$sens_unit]." (".$bc_SensorCode[$sens_code].")";
}
if ($sens_status != 1 && $sens_code == 1) { # If only the status is not reporting "ok"
$output .= $sens_name ." sensor ".$bc_SensorStatus[$sens_status];
}
if ($sens_status == 1 && $sens_code != 1) { # If only the code is not reporting "ok"
$output .= $sens_name ." reports ".$sens_value." ".$bc_mesure[$sens_unit]." (".$bc_SensorCode[$sens_code].")";
}
# Set the status
$tmp_status_sensor = $bc_status_sensor[$sens_status];
$tmp_status_code = $bc_status_code[$sens_code];
$final_status = &set_status($tmp_status_sensor,$final_status);
$final_status = &set_status($tmp_status_code,$final_status);
}
# If performance data is enabled then output name with value
if (defined($o_perf)) {
if ($output_perf ne "") { $output_perf .=" ";}
$output_perf .= "'".$sens_name."'=";
my $perf_value = $sens_value;
$output_perf .= $perf_value;
}
# Count fans sensors
if ($bc_mesure[$sens_unit] eq "rpm") {
$num_fan++;
if ($sens_status == 1 && $sens_code == 1) { $num_fan_ok++; }
}
# Count temperature sensors
if ($bc_mesure[$sens_unit] eq "celsius") {
$num_temp++;
if ($sens_status == 1 && $sens_code == 1) { $num_temp_ok++; }
}
# Count voltage sensors
if ($bc_mesure[$sens_unit] eq "volts") {
$num_volt++;
if ($sens_status == 1 && $sens_code == 1) { $num_volt_ok++; }
}
if (!$bc_mesure[$sens_unit] =~ /rpm|celsius|volts/) {
$num_other++;
if ($sens_status == 1 && $sens_code == 1) { $num_other_ok++;}
}
}
}
}
# Check the disk table
if (defined($resultat_disk )) {
foreach my $key ( keys %$resultat_disk ) {
my ($dsk_name,$dsk_status)=(undef,undef);
if ( $key =~ /$bc_dsk_status/ ) {
$num_disk++;
$dsk_status=$bc_dsk_status_nagios[$$resultat_disk{$key}];
$key =~ s/$bc_dsk_status//;
if ( $dsk_status != 0) {
if ($output ne "") { $output.=", ";}
$output .= $$resultat_disk{$bc_dsk_vendor.$key} . "(S/N:".$$resultat_disk{$bc_dsk_serial.$key} ." MODEL:". $$resultat_disk{$bc_dsk_product.$key} . ") - ". $bc_DiskStatus[$$resultat_disk {$bc_dsk_status.$key}];
$final_status = &set_status($dsk_status,$final_status);
} else {
$num_disk_ok++;
}
if($$resultat_disk{$bc_dsk_status.$key} == 6){
$num_disk--;
$num_disk_ok--;
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
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!=0) {
if ($num_fan == $num_fan_ok) {
$output.= $num_fan . " fan OK, ";
} else {
$output.= $num_fan_ok . "/" . $num_fan ." fan OK, ";
}
}
if ($num_temp!=0) {
if ($num_temp == $num_temp_ok) {
$output.= $num_temp . " temp OK, ";
} else {
$output.= $num_temp_ok . "/" . $num_temp ." temp OK, ";
}
}
if ($num_volt!=0) {
if ($num_volt == $num_volt_ok) {
$output.= $num_volt . " volt OK, ";
} else {
$output.= $num_volt_ok . "/" . $num_volt ." volt OK, ";
}
}
if ($num_other!=0) {
if ($num_other == $num_other_ok) {
$output.= $num_other . " other OK, ";
} else {
$output.= $num_other_ok . "/" . $num_other ." other OK, ";
}
}
if ($num_disk!=0) {
if ($num_disk == $num_disk_ok) {
$output.= $num_disk . " disk OK";
} else {
$output.= $num_disk_ok . "/" . $num_disk ." disk OK";
}
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== IRONPORT ====================================
# ============================================================================
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 = $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 = $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 = $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;
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$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 =====================================
# ============================================================================
if ($o_check_type eq "foundry") {
verb("Checking foundry env");
# Define variables
my $global_status = 0;
my $output = "";
my @foundry_temp_oid=($foundry_temp,$foundry_temp_warn,$foundry_temp_crit);
# Get SNMP table(s) and check the result
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 = $session->get_table(Baseoid => $foundry_ps_table);
&check_snmp_result($result_ps,$session->error);
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";
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$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"};
}
# ============================================================================
# ============================== LINUX LM-SENSORS ============================
# ============================================================================
if ($o_check_type eq "linux") {
verb("Checking linux env");
# Define variables
my $output = "";
my $index;
my ($sens_name,$sens_status,$sens_value,$sens_unit)=(undef,undef,undef,undef);
# Get SNMP table(s) and check the result
my $resultat = $session->get_table(Baseoid => $linux_env_table);
&check_snmp_result($resultat,$session->error);
foreach my $key ( keys %$resultat) {
if ($key =~ /$linux_temp_descr/) {
$sens_name=$$resultat{$key};
$index=(split /\./,$key)[-1];
$sens_value=$$resultat{$linux_temp_value.".".$index}/1000;
printf("TSensor %s : %.0f\n",$sens_name,$sens_value);
}
if ($key =~ /$linux_fan_descr/) {
$sens_name=$$resultat{$key};
$index=(split /\./,$key)[-1];
$sens_value=$$resultat{$linux_fan_value.".".$index};
printf("FSensor %s : %.0f\n",$sens_name,$sens_value);
}
if ($key =~ /$linux_volt_descr/) {
$sens_name=$$resultat{$key};
$index=(split /\./,$key)[-1];
$sens_value=$$resultat{$linux_volt_value.".".$index}/1000;
printf("VSensor %s : %.2f\n",$sens_name,$sens_value);
}
if ($key =~ /$linux_misc_descr/) {
$sens_name=$$resultat{$key};
$index=(split /\./,$key)[-1];
$sens_value=$$resultat{$linux_misc_value.".".$index};
printf("MSensor %s : %.2f\n",$sens_name,$sens_value);
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
print "Not implemented yet : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
# ============================================================================
# ============================== CISCO CARD/MODULE ===========================
# ============================================================================
if ($o_check_type eq "ciscoSW") {
verb("Checking ciscoSW env");
# Define variables
my $output ="";
my $final_status =0;
my $card_output ="";
my $modules_output ="";
my $tmp_status;
my $result_t;
my $index;
my @temp_oid;
my ($num_cards,$num_cards_ok,$num_modules,$num_modules_ok)=(0,0,0,0);
# Get SNMP table(s) and check the result
my $resultat_c = $session->get_table(Baseoid => $cisco_chassis_card_state);
&check_snmp_result($resultat_c,$session->error);
my $resultat_m = $session->get_table(Baseoid => $cisco_module_state);
&check_snmp_result($resultat_m,$session->error);
# Check cards
if (defined($resultat_c)) {
foreach my $key ( keys %$resultat_c) {
if ($key =~ /$cisco_chassis_card_state/) {
$num_cards++;
$tmp_status=$cisco_chassis_card_status[$$resultat_c{$key}];
if ($tmp_status == 0) {
$num_cards_ok++;
} else {
$final_status=2;
$index=(split /\./,$key)[-1];
@temp_oid=($cisco_chassis_card_descr.".".$index,$cisco_chassis_card_slot.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (!defined($result_t)) { $card_output.="Invalid card(UNKNOWN)";}
else {
if ($card_output ne "") {$card_output.=", ";}
$card_output.= "Card slot " . $$result_t{$cisco_chassis_card_slot.".".$index};
$card_output.= "(" .$$result_t{$cisco_chassis_card_descr.".".$index} ."): ";
$card_output.= "status " . $cisco_chassis_card_status_text[$$resultat_c{$key}];
}
}
}
}
if ($card_output ne "") {$card_output.=", ";}
}
# Check modules
if (defined($resultat_m)) {
foreach my $key ( keys %$resultat_m) {
if ($key =~ /$cisco_module_state/) {
$num_modules++;
$tmp_status=$cisco_module_status[$$resultat_m{$key}];
if ($tmp_status == 0) {
$num_modules_ok++;
} else {
my $module_slot_present=0;
$index=(split /\./,$key)[-1];
@temp_oid=($cisco_module_slot.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (defined($result_t)) {
if ($modules_output ne "") {$modules_output.=", ";}
$modules_output.= "Module slot " . $$result_t{$cisco_module_slot.".".$index};
$module_slot_present=1;
}
@temp_oid=($cisco_module_descr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (defined($result_t)) {
if ($module_slot_present == 1) {
$modules_output.= "(" .$$result_t{$cisco_module_descr.".".$index} ."): ";
} else {
if ($modules_output ne "") {$modules_output.=", ";}
$modules_output.= "Module (" .$$result_t{$cisco_module_descr.".".$index} ."): ";
}
$modules_output.= "status " . $cisco_module_status_text[$$resultat_m{$key}];
$module_slot_present=1;
}
if ($module_slot_present == 0) {
$modules_output.="Invalid module(UNKNOWN) : status " . $cisco_module_status_text[$$resultat_m{$key}];
}
if ($tmp_status == 1 && $final_status==0) {
$final_status=1;
} else {
$final_status=2;
}
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_cards==0 && $num_modules==0) {
print "No cards/modules found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$card_output . $modules_output;
if ($output ne "") {$output.=" : ";}
if ($num_cards!=0) {
if ($num_cards == $num_cards_ok) {
$output.= $num_cards . " cards OK, ";
} else {
$output.= $num_cards_ok . "/" . $num_cards ." cards OK, ";
$final_status=2;
}
}
if ($num_modules!=0) {
if ($num_modules == $num_modules_ok) {
$output.= $num_modules . " modules OK ";
} else {
$output.= $num_modules_ok . "/" . $num_modules ." modules OK ";
$final_status=2;
}
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== JUNIPER =====================================
# ============================================================================
if ($o_check_type eq "juniper") {
verb("Checking juniper env");
# Define variables
my $output = "";
my $final_status = 0;
my $card_output = "";
my $ignore = ": Ignored: ";
my $tmp_status;
my $result_t;
my $index;
my @temp_oid;
my ($num_cards,$num_cards_ok)=(0,0);
# Get SNMP table(s) and check the result
my $resultat_c = $session->get_table(Baseoid => $juniper_operating_state);
&check_snmp_result($resultat_c,$session->error);
if (defined($resultat_c)) {
foreach my $key ( keys %$resultat_c) {
if ($key =~ /$juniper_operating_state/) {
$num_cards++;
$tmp_status=$juniper_operating_status[$$resultat_c{$key}];
if ($tmp_status == 0) {
$num_cards_ok++;
} else {
$index = $key;
$index =~ s/^$juniper_operating_state.//;
@temp_oid=($juniper_operating_descr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if ($$result_t{$juniper_operating_descr.".".$index} =~ /PCMCIA|USB|Flash|Fan Tray [0-9]$/ && $tmp_status == 3) {
$ignore.= "(" .$$result_t{$juniper_operating_descr.".".$index} ."),";
}
else {
$final_status = &set_status($tmp_status,$final_status);
if (!defined($result_t)) {
$card_output.="Invalid component(UNKNOWN)";
}
else {
if ($card_output ne "") {$card_output.=", ";}
$card_output.= "(" .$$result_t{$juniper_operating_descr.".".$index} ."): ";
$card_output.= "status " . $juniper_operating_status_text[$$resultat_c{$key}];
}
}
}
}
}
if ($card_output ne "") {$card_output.=", ";}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_cards==0) {
print "No components found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$card_output;
if ($output ne "") {$output.=" : ";}
if ($num_cards!=0) {
if ($num_cards == $num_cards_ok) {
$output.= $num_cards . " components OK";
} else {
$output.= $num_cards_ok . "/" . $num_cards ." components OK" .$ignore;
}
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== EXTREME =====================================
# ============================================================================
if ($o_check_type eq "extremeSW") {
verb("Checking extreme env");
# Define variables
my $tmp_status;
my $index;
my $output = "";
my $final_status = 0;
my $slot_output = "";
my $ps_output = "";
my $fan_output = "";
my $temperature_output = "";
my ($num_slot,$num_slot_ok) = (0,0);
my ($num_ps,$num_ps_ok) = (0,0);
my ($num_fan,$num_fan_ok) = (0,0);
my ($slot_name,$slot_state,$slot_serialnumber,$slot_state_text) = (undef,undef,undef,undef);
my ($ps_status,$ps_status_text) = (undef,undef);
my ($fan_number,$fan_operational,$fan_operational_text) = (undef,undef,undef);
my ($temperature_state,$temperature_state_text,$temperature_current) = (undef,undef,undef);
# Get SNMP table(s) and check the result
my $resultat_slot = $session->get_table(Baseoid => $extreme_slot_table);
&check_snmp_result($resultat_slot,$session->error);
my $resultat_ps = $session->get_table(Baseoid => $extreme_ps_table);
&check_snmp_result($resultat_ps,$session->error);
my $resultat_fan = $session->get_table(Baseoid => $extreme_fan_table);
&check_snmp_result($resultat_fan,$session->error);
my @extreme_temp_alarm_oid =($extreme_temperature_alarm);
my $resultat_temp_alarm = $session->get_request( Varbindlist => \@extreme_temp_alarm_oid );
my @extreme_temp_current_oid =($extreme_temperature_current);
my $resultat_temp_current = $session->get_request( Varbindlist => \@extreme_temp_current_oid );
# Check slot
if (defined($resultat_slot)) {
foreach my $key ( keys %$resultat_slot) {
if ($key =~ /$extreme_slot_name/) {
$key =~ s/$extreme_slot_name//;
# Set the slot variables
$slot_name = $$resultat_slot{$extreme_slot_name.$key};
$slot_state = $$resultat_slot{$extreme_slot_state.$key};
$slot_state_text = $extreme_slot_state_text[$slot_state];
$slot_serialnumber = $$resultat_slot{$extreme_slot_serialnumber.$key};
$tmp_status = $extreme_slot_nagios[$slot_state];
$final_status = &set_status($tmp_status,$final_status);
if ($slot_state != 1){
$num_slot++;
if ($tmp_status == 0) {
$num_slot_ok++;
}
else {
if ($slot_output ne "") {$slot_output.=", ";}
$slot_output.= "(Slot: " . $slot_name;
$slot_output.= " Status: " . $slot_state_text;
$slot_output.= " S/N: " . $slot_serialnumber . ")";
}
}
}
}
if ($slot_output ne "") {$slot_output.=", ";}
}
# Check power-supply
if (defined($resultat_ps)) {
foreach my $key ( keys %$resultat_ps) {
if ($key =~ /$extreme_ps_status/) {
$num_ps++;
$key =~ s/$extreme_ps_status//;
# Set the slot variables
$ps_status = $$resultat_ps{$extreme_ps_status.$key};
$ps_status_text = $extreme_ps_status_text[$ps_status];
$tmp_status = $extreme_ps_nagios[$ps_status];
$final_status = &set_status($tmp_status,$final_status);
if ($tmp_status == 0) {
$num_ps_ok++;
}
else {
if ($ps_output ne "") {$ps_output.=", ";}
$ps_output.= "(Power-supply status: " . $ps_status_text . ")";
}
}
}
if ($ps_output ne "") {$ps_output.=", ";}
}
# Check fan
if (defined($resultat_fan)) {
foreach my $key ( keys %$resultat_fan) {
if ($key =~ /$extreme_fan_number/) {
$num_fan++;
$key =~ s/$extreme_fan_number//;
# Set the slot variables
$fan_number = $$resultat_fan{$extreme_fan_number.$key};
$fan_operational = $$resultat_fan{$extreme_fan_operational.$key};
$fan_operational_text = $extreme_fan_operational_text[$fan_operational];
$tmp_status = $extreme_fan_nagios[$fan_operational];
$final_status = &set_status($tmp_status,$final_status);
if ($tmp_status == 0) {
$num_fan_ok++;
}
else {
if ($fan_output ne "") {$fan_output.=", ";}
$fan_output.= "(Fan: " . $fan_number;
$fan_output.= " Status: " . $fan_operational_text . ")";
}
}
}
if ($fan_output ne "") {$fan_output.=", ";}
}
# Check temperature
if (defined($resultat_temp_alarm) && defined($resultat_temp_current)){
$temperature_state = $$resultat_temp_alarm{$extreme_temperature_alarm};
$temperature_state_text = $extreme_temperature_alarm_text[$temperature_state];
$temperature_current = $$resultat_temp_current{$extreme_temperature_current};
$tmp_status = $extreme_temperature_nagios[$temperature_state];
$final_status = &set_status($tmp_status,$final_status);
$temperature_output.= "Temp: " . $temperature_state_text;
$temperature_output.= " (" . $temperature_current . " celcius)";
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_slot == 0 && $num_ps == 0 && $num_fan == 0) {
print "No slot/power-supply/fan found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$slot_output . $ps_output . $fan_output;
if ($output ne "") {$output.=": ";}
if ($num_slot != 0) {
if ($num_slot == $num_slot_ok) {
$output.= $num_slot . " slots OK, ";
} else {
$output.= $num_slot_ok . "/" . $num_slot ." slots OK, ";
}
}
if ($num_ps != 0) {
if ($num_ps == $num_ps_ok) {
$output.= $num_ps . " power-supply OK, ";
} else {
$output.= $num_ps_ok . "/" . $num_ps ." power-supply OK, ";
}
}
if ($num_fan != 0) {
if ($num_fan == $num_fan_ok) {
$output.= $num_fan . " fans OK, ";
} else {
$output.= $num_fan_ok . "/" . $num_fan ." fans OK, ";
}
}
$output.= $temperature_output;
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== HP PROCURVE =================================
# ============================================================================
if ($o_check_type eq "procurve") {
verb("Checking procurve env");
# Define variables
my $output = "";
my $final_status = 0;
my $power_output = "";
my $fan_output = "";
my $temp_output = "";
my $tmp_status;
my $index;
my @temp_oid;
my ($num_power,$num_power_ok,$num_fan,$num_fan_ok,$num_temp,$num_temp_ok)=(0,0,0,0,0,0);
# Get SNMP table(s) and check the result
my $resultat_state = $session->get_table(Baseoid => $procurve_operating_state);
&check_snmp_result($resultat_state,$session->error);
my $resultat_descr = $session->get_table(Baseoid => $procurve_operating_descr);
&check_snmp_result($resultat_descr,$session->error);
if (defined($resultat_state)) {
foreach my $key ( keys %$resultat_state) {
if ($key =~ /$procurve_operating_state/) {
$tmp_status=$procurve_operating_status[$$resultat_state{$key}];
$index = $key;
$index =~ s/^$procurve_operating_state.//;
my $description = $$resultat_descr{$procurve_operating_descr.".".$index};
if ($description =~ /Power/ ) {$num_power++;}
if ($description =~ /Fan/ ) {$num_fan++;}
if ($description =~ /temperature/ ) {$num_temp++;}
if ($description =~ /Power/ && $tmp_status == 0) {$num_power_ok++;}
if ($description =~ /Fan/ && $tmp_status == 0) {$num_fan_ok++;}
if ($description =~ /temperature/ && $tmp_status == 0) {$num_temp_ok++;}
if ($tmp_status != 0) {
if ($description =~ /Power/ && $tmp_status == 4) {$num_power--;}
if ($description =~ /Fan/ && $tmp_status == 4) {$num_fan--;}
if ($description =~ /temperature/ && $tmp_status == 4) {$num_temp--;}
if ($tmp_status != 4) {
if ($tmp_status == 1 && $final_status != 2) {$final_status=$tmp_status;}
if ($tmp_status == 2) {$final_status=$tmp_status;}
if ($tmp_status == 3 && $final_status == 0) {$final_status=$tmp_status;}
if ($description =~ /Power/ ) {
if (!defined($description)) {$power_output.="Invalid power(UNKNOWN)";}
else {
if ($power_output ne "") {$power_output.=", ";}
$power_output.= "(".$description."): ";
$power_output.= "status " . $procurve_operating_status_text[$$resultat_state{$key}];
}
}
if ($description =~ /Fan/ ) {
if (!defined($description)) {$fan_output.="Invalid fan(UNKNOWN)";}
else {
if ($fan_output ne "") {$fan_output.=", ";}
$fan_output.= "(".$description."): ";
$fan_output.= "status " . $procurve_operating_status_text[$$resultat_state{$key}];
}
}
if ($description =~ /temperature/ ) {
if (!defined($description)) {$power_output.="Invalid temp(UNKNOWN)";}
else {
if ($temp_output ne "") {$temp_output.=", ";}
$temp_output.= "(".$description."): ";
$temp_output.= "status " . $procurve_operating_status_text[$$resultat_state{$key}];
}
}
}
}
}
}
if ($power_output ne "") {$power_output.=", ";}
if ($fan_output ne "") {$fan_output.=", ";}
if ($temp_output ne "") {$temp_output.=", ";}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_power==0 && $num_fan==0 && $num_temp==0) {
print "No power/fan/temp found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$power_output . $fan_output . $temp_output;
if ($output ne "") {$output.=" : ";}
if ($num_power!=0) {
if ($num_power == $num_power_ok) {
$output.= $num_power . " power OK, ";
} else {
$output.= $num_power_ok . "/" . $num_power ." power OK, ";
}
}
if ($num_fan!=0) {
if ($num_fan == $num_fan_ok) {
$output.= $num_fan . " fan OK, ";
} else {
$output.= $num_fan_ok . "/" . $num_fan ." fan OK, ";
}
}
if ($num_temp!=0) {
if ($num_temp == $num_temp_ok) {
$output.= $num_temp . " temp OK";
} else {
$output.= $num_temp_ok . "/" . $num_temp ." temp OK";
}
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== NETSCREEN ===================================
# ============================================================================
if ($o_check_type eq "netscreen") {
verb("Checking netscreen env");
# Define variables
my $output = "";
my $final_status = 0;
my $slot_output = "";
my $power_output = "";
my $fan_output = "";
my $tmp_status;
my $result_t;
my $index;
my @temp_oid;
my ($num_slot,$num_slot_ok,$num_power,$num_power_ok,$num_fan,$num_fan_ok)=(0,0,0,0,0,0);
# Get SNMP table(s) and check the result
my $resultat_s = $session->get_table(Baseoid => $netscreen_slot_operating_state);
&check_snmp_result($resultat_s,$session->error);
my $resultat_p = $session->get_table(Baseoid => $netscreen_power_operating_state);
&check_snmp_result($resultat_p,$session->error);
my $resultat_f = $session->get_table(Baseoid => $netscreen_fan_operating_state);
&check_snmp_result($resultat_f,$session->error);
# Check if the ScreenOS version is not below 6.1 or 5GT, these are not supported
my @netscreen_os_oid = ($sysdescr);
my $netscreen_version = $session->get_request(Varbindlist => \@netscreen_os_oid);
if( ($$netscreen_version{$sysdescr} !~ /version 6.[1-9]/) || ($$netscreen_version{$sysdescr} =~ /5GT/) )
{
print "Not checked, ScreenOS version below 6.1 and/or 5GT: OK\n";
exit $ERRORS{"OK"};
}
# Check slots
if (defined($resultat_s)) {
foreach my $key ( keys %$resultat_s) {
if ($key =~ /$netscreen_slot_operating_state/) {
$num_slot++;
$tmp_status = $netscreen_slot_operating_status[$$resultat_s{$key}];
$final_status = &set_status($tmp_status,$final_status);
if ($tmp_status == 0) {
$num_slot_ok++;
} else {
$index = $key;
$index =~ s/^$netscreen_slot_operating_state.//;
@temp_oid=($netscreen_slot_operating_descr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (!defined($result_t)) {$slot_output.="Invalid slot(UNKNOWN)";}
else {
if ($slot_output ne "") {$slot_output.=", ";}
$slot_output.= "(" .$$result_t{$netscreen_slot_operating_descr.".".$index} ."): ";
$slot_output.= "status " . $netscreen_slot_operating_status_text[$$resultat_s{$key}];
}
}
}
}
if ($slot_output ne "") {$slot_output.=", ";}
}
# Check power
if (defined($resultat_p)) {
foreach my $key ( keys %$resultat_p) {
if ($key =~ /$netscreen_power_operating_state/) {
$num_power++;
$tmp_status = $netscreen_power_operating_status[$$resultat_p{$key}];
$final_status = &set_status($tmp_status,$final_status);
if ($tmp_status == 0) {
$num_power_ok++;
} else {
$index = $key;
$index =~ s/^$netscreen_power_operating_state.//;
@temp_oid=($netscreen_power_operating_descr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (!defined($result_t)) {$slot_output.="Invalid power(UNKNOWN)";}
else {
if ($power_output ne "") {$power_output.=", ";}
$power_output.= "(" .$$result_t{$netscreen_power_operating_descr.".".$index} ."): ";
$power_output.= "status " . $netscreen_power_operating_status_text[$$resultat_p{$key}];
}
}
}
}
if ($power_output ne "") {$power_output.=", ";}
}
# Check fans
if (defined($resultat_f)) {
foreach my $key ( keys %$resultat_f) {
if ($key =~ /$netscreen_fan_operating_state/) {
$num_fan++;
$tmp_status = $netscreen_fan_operating_status[$$resultat_f{$key}];
$final_status = &set_status($tmp_status,$final_status);
if ($tmp_status == 0) {
$num_fan_ok++;
} else {
if($tmp_status == 4) {
$num_fan--;
} else {
$index = $key;
$index =~ s/^$netscreen_fan_operating_state.//;
@temp_oid=($netscreen_fan_operating_descr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if (!defined($result_t)) {$fan_output.="Invalid fan(UNKNOWN)";}
else {
if ($fan_output ne "") {$fan_output.=", ";}
$fan_output.= "(" .$$result_t{$netscreen_fan_operating_descr.".".$index} ."): ";
$fan_output.= "status " . $netscreen_fan_operating_status_text[$$resultat_f{$key}];
}
}
}
}
}
if ($fan_output ne "") {$fan_output.=", ";}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_slot==0 && $num_power==0 && $num_fan==0) {
print "No slot/power/fan found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$slot_output . $power_output . $fan_output;
if ($output ne "") {$output.=" : ";}
if ($num_slot!=0) {
if ($num_slot == $num_slot_ok) {
$output.= $num_slot . " slots OK, ";
} else {
$output.= $num_slot_ok . "/" . $num_slot ." slots OK, ";
}
}
if ($num_power!=0) {
if ($num_power == $num_power_ok) {
$output.= $num_power . " power OK, ";
} else {
$output.= $num_power_ok . "/" . $num_power ." power OK ";
}
}
if ($num_fan!=0) {
if ($num_fan == $num_fan_ok) {
$output.= $num_fan . " fans OK";
} else {
$output.= $num_fan_ok . "/" . $num_fan ." fans OK";
}
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== CISCO (CISCO-ENTITY-SENSOR-MIB) =============
# ============================================================================
if ($o_check_type eq "ciscoNEW") {
verb("Checking Cisco CISCO-ENTITY-SENSOR-MIB env");
# Define variables
my $output = "";
my $final_status = 0;
my $sensor_output = "";
my $tmp_status;
my $result_t;
my $index;
my @temp_oid;
my ($num_sensors,$num_sensors_ok,$num_thresholds,$num_thresholds_ok) = (0,0,0,0);
# Get SNMP table(s) and check the result
my $resultat_status = $session->get_table(Baseoid => $cisco_ios_xe_status);
&check_snmp_result($resultat_status,$session->error);
my $resultat_type = $session->get_table(Baseoid => $cisco_ios_xe_type);
&check_snmp_result($resultat_type,$session->error);
my $resultat_precision = $session->get_table(Baseoid => $cisco_ios_xe_precision);
&check_snmp_result($resultat_precision,$session->error);
my $resultat_value = $session->get_table(Baseoid => $cisco_ios_xe_value);
&check_snmp_result($resultat_value,$session->error);
my $resultat_threshold_value = $session->get_table(Baseoid => $cisco_ios_xe_threshold_value);
&check_snmp_result($resultat_threshold_value,$session->error);
my $resultat_threshold_severity = $session->get_table(Baseoid => $cisco_ios_xe_threshold_severity);
&check_snmp_result($resultat_threshold_severity,$session->error);
if (defined($resultat_status)) {
foreach my $key ( keys %$resultat_status) {
if ($key =~ /$cisco_ios_xe_status/) {
$num_sensors++;
$tmp_status=$cisco_ios_xe_operating_status[$$resultat_status{$key}];
$index = $key;
$index =~ s/^$cisco_ios_xe_status.//;
if ($tmp_status == 1) {
$num_sensors_ok++;
# Get sensor TYPE
my $CiscoType = $$resultat_type{$cisco_ios_xe_type.".".$index};
if ($CiscoType == 8) {
# Get sensor PRECISION
my $CiscoPrecision = $$resultat_precision{$cisco_ios_xe_precision.".".$index};
if ($CiscoPrecision == 0){
# Get sensor THRESHOLD VALUE 1
my $CiscoThreshold_value1 = $$resultat_threshold_value{$cisco_ios_xe_threshold_value.".".$index.".1"};
if (defined($CiscoThreshold_value1)){
# Get sensor VALUE
my $CiscoValue = $$resultat_value{$cisco_ios_xe_value.".".$index};
# Get sensor THRESHOLD SEVERITY 2
my $CiscoThreshold_severity2 = $$resultat_threshold_severity{$cisco_ios_xe_threshold_severity.".".$index.".2"};
if ($CiscoThreshold_severity2 ne "noSuchInstance") {
$num_thresholds++;
if (($CiscoValue < $CiscoThreshold_value1) || ($CiscoThreshold_severity2 == 10)){
$num_thresholds_ok++;
} else {
$final_status=2;
# Get sensor DESCRIPTION
@temp_oid=($cisco_ios_xe_physicaldescr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if ($output ne "") {$output.=", ";}
$output.= "(" .$$result_t{$cisco_ios_xe_physicaldescr.".".$index}.": ".$CiscoValue." Celsius)";
}
}
}
}
}
} else {
$final_status=2;
# Get sensor DESCRIPTION
@temp_oid=($cisco_ios_xe_physicaldescr.".".$index);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
if ($tmp_status == 2){
if ($output ne "") {$output.=", ";}
$output.= "(" .$$result_t{$cisco_ios_xe_physicaldescr.".".$index}.": sensor unavailable)";
}
if ($tmp_status == 3){
if ($output ne "") {$output.=", ";}
$output.= "(" .$$result_t{$cisco_ios_xe_physicaldescr.".".$index}.": sensor nonoperational)";
}
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_sensors==0) {
print "No components found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($output ne "") {$output.=" : ";}
if ($num_sensors!=0) {
if (($num_sensors == $num_sensors_ok) && ($num_thresholds == $num_thresholds_ok)){
$output.= $num_sensors . " sensors reported OK (".$num_thresholds." thresholds reported OK)";
} else {
$output.= $num_sensors_ok . "/" . $num_sensors ." sensors reported OK (".$num_thresholds." sensors using thresholds)";
}
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== CITRIX NETSCALER ============================
# ============================================================================
if ($o_check_type eq "citrix") {
verb("Checking citrix");
# Define variables
my $output = "";
my $final_status = 0;
my $voltage_output = "";
my $powersupply_output = "";
my $fan_output = "";
my $temp_output = "";
my $ha_state_output = "";
my $ssl_engine_output = "";
my $ha_state_and_ssl_engine = "";
my $result_t;
my $index;
my @temp_oid;
my $using_voltage_threshold;
my ($num_voltage,$num_voltage_ok,$num_powersupply,$num_powersupply_ok,$num_fan,$num_fan_ok,$num_temp,$num_temp_ok)=(0,0,0,0,0,0);
# Get SNMP table(s) and check the result
my $resultat_status = $session->get_table(Baseoid => $citrix_desc);
&check_snmp_result($resultat_status,$session->error);
my $resultat_value = $session->get_table(Baseoid => $citrix_value);
&check_snmp_result($resultat_value,$session->error);
if (defined($resultat_status)) {
foreach my $key ( keys %$resultat_status) {
if ($key =~ /$citrix_desc/) {
my $reported_counter_name = $$resultat_status{$key};
$using_voltage_threshold = 0;
$index = $key;
$index =~ s/^$citrix_desc.//;
my $reported_counter_value = $$resultat_value{$citrix_value.".".$index};
# Thresholds are hardcoded and are based on the "Citrix NetScaler SNMP OID Reference - Release 9.2" document.
# If a threshold for a specific component is not available in this document then a logical threshold has been picked.
if ($reported_counter_name =~ /Voltage/ ) {
$num_voltage++; my $ha_state_and_ssl_engine ="";
# Measures the +5V power supply in millivolt
if ($reported_counter_name =~ /\+5.0VSupplyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > 4500 ) && ($reported_counter_value < 5500)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the +12V power supply in millivolt
if ($reported_counter_name =~ /\+12.0VSupplyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > 10800 ) && ($reported_counter_value < 13200)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the -5V power supply in millivolt
if ($reported_counter_name =~ /\-5.0VSupplyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > -5500 ) && ($reported_counter_value < -4500)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the -12V power supply in millivolt
if ($reported_counter_name =~ /\-12.0VSupplyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > -13200 ) && ($reported_counter_value < -10800)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the +3.3V main and standby power supply in millivolt
if ($reported_counter_name =~ /3.3VSupplyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > 2970 ) && ($reported_counter_value < 3630)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the +5V standby power supply in millivolt
if ($reported_counter_name =~ /PowerSupply5vStandbyVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > 4500 ) && ($reported_counter_value < 5500)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# Measures the processor core voltage in millivolt
if ($reported_counter_name =~ /CPU0CoreVoltage|CPU1CoreVoltage/ ){
$using_voltage_threshold = 1;
if (($reported_counter_value > 1080 ) && ($reported_counter_value < 1650)) {
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
# If no defined voltage description is found, uses the following thresholds
if ($using_voltage_threshold == 0){
if (($reported_counter_value > 1000 ) && ($reported_counter_value < 6000)){
$num_voltage_ok++;
} else {
if ($voltage_output ne "") {$voltage_output.=", ";}
$voltage_output.= "(" .$reported_counter_name.": ";
$voltage_output.= $reported_counter_value." mV)";
$final_status = 2;
}
}
}
# Power Supply check. No documentation available about possible values. "3" appears to be "OK", so anything other then that will be reported
if ($reported_counter_name =~ /PowerSupply1FailureStatus|PowerSupply2FailureStatus/ ) {
$num_powersupply++;
if ($reported_counter_value == 3 ){
$num_powersupply_ok++;
} else {
if ($powersupply_output ne "") {$powersupply_output.=", ";}
$powersupply_output.= "(" .$reported_counter_name.": ";
$powersupply_output.= $reported_counter_value." Failure)";
$final_status = 2;
}
}
# Fan speed threshold in RPM. Documentation is not clear about the thresholds
if ($reported_counter_name =~ /Fan/ ) {
$num_fan++;
if (($reported_counter_value > 5000 ) && ($reported_counter_value < 15000)){
$num_fan_ok++;
} else {
if ($fan_output ne "") {$fan_output.=", ";}
$fan_output.= "(" .$reported_counter_name.": ";
$fan_output.= $reported_counter_value." RPM)";
$final_status = 2;
}
}
# It looks like Citrix NetScaler devices are based on Intel XEON processors. Most of them appear to have a maximum operation temperature of 75 degrees Celsius.
if ($reported_counter_name =~ /CPU0Temperature|CPU1Temperature/ ) {
$num_temp++;
if (($reported_counter_value > 50 ) && ($reported_counter_value < 72)){
$num_temp_ok++;
} else {
if ($temp_output ne "") {$temp_output.=", ";}
$temp_output.= "(" .$reported_counter_name.": ";
$temp_output.= $reported_counter_value." Celsius)";
$final_status = 2;
}
}
# Internal temperature in degrees Celsius. No defined threshold in documentation.
if ($reported_counter_name =~ /InternalTemperature/ ) {
$num_temp++;
if (($reported_counter_value > 20 ) && ($reported_counter_value < 40)){
$num_temp_ok++;
} else {
if ($temp_output ne "") {$temp_output.=", ";}
$temp_output.= "(" .$reported_counter_name.": ";
$temp_output.= $reported_counter_value." Celsius)";
$final_status = 2;
}
}
}
}
# Get High Availability State
@temp_oid=($citrix_high_availability_state);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
my $ha_cur_state = $$result_t{$citrix_high_availability_state};
if (defined($ha_cur_state)){
$ha_state_output.= "HA State " . $citrix_high_availability_state_text[$ha_cur_state];
if ($ha_cur_state != 3){
$final_status = 2;
}
}
# Get High Availability State
@temp_oid=($citrix_ssl_engine_state);
$result_t = $session->get_request( Varbindlist => \@temp_oid);
my $ssl_engine_state = $$result_t{$citrix_ssl_engine_state};
if (defined($ssl_engine_state)){
$ssl_engine_output.= "SSL Engine " . $citrix_ssl_engine_state_text[$ssl_engine_state];
if ($ssl_engine_state != 1){
$final_status = 2;
}
}
if ((defined($ha_cur_state)) && (defined($ssl_engine_state))){$ha_state_and_ssl_engine = " (".$ha_state_output.", ".$ssl_engine_output.")"};
if ((defined($ha_cur_state)) && (!defined($ssl_engine_state))){$ha_state_and_ssl_engine = " - (".$ha_state_output.")"};
if ((!defined($ha_cur_state)) && (defined($ssl_engine_state))){$ha_state_and_ssl_engine = " - (".$ssl_engine_output.")"};
if ($voltage_output ne "") {$voltage_output.=", ";}
if ($powersupply_output ne "") {$powersupply_output.=", ";}
if ($fan_output ne "") {$fan_output.=", ";}
if ($temp_output ne "") {$temp_output.=", ";}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_voltage==0 && $num_fan==0 && $num_temp==0) {
print "No power/fan/temp found : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
$output=$voltage_output . $fan_output . $temp_output ;
if ($output ne "") {$output.=" : ";}
if ($num_powersupply!=0) {
if ($num_powersupply == $num_powersupply_ok) {
$output.= $num_powersupply . " powersupply OK, ";
} else {
$output.= $num_powersupply_ok . "/" . $num_powersupply ." powersupply OK, ";
}
}
if ($num_voltage!=0) {
if ($num_voltage == $num_voltage_ok) {
$output.= $num_voltage . " voltage OK, ";
} else {
$output.= $num_voltage_ok . "/" . $num_voltage ." voltage OK, ";
}
}
if ($num_fan!=0) {
if ($num_fan == $num_fan_ok) {
$output.= $num_fan . " fan OK, ";
} else {
$output.= $num_fan_ok . "/" . $num_fan ." fan OK, ";
}
}
if ($num_temp!=0) {
if ($num_temp == $num_temp_ok) {
$output.= $num_temp . " temp OK";
} else {
$output.= $num_temp_ok . "/" . $num_temp ." temp OK";
}
}
$output.= $ha_state_and_ssl_engine;
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== TRANSMODE ===================================
# ============================================================================
if ($o_check_type eq "transmode") {
verb("Checking transmode env");
# Define variables
my $final_status = 0;
my $tmp_status = undef;
my $num_alarms = 0;
my $num_ignored = 0;
my $alarm_output = "";
my $output = "";
my ($alarm_serv,$alarm_serv_txt,$alarm_descr,$alarm_time_start,$alarm_time_end,$alarm_rack,$alarm_slot,$alarm_unit)=(undef,undef,undef,undef,undef,undef,undef,undef);
# Get SNMP table(s) and check the result
my $resultat_c = $session->get_table(Baseoid => $transmode_table);
&check_snmp_result($resultat_c,$session->error);
if (defined($resultat_c)) {
foreach my $key ( keys %$resultat_c) {
if ($key =~ /$transmode_alarm_sev/) {
$alarm_serv = $$resultat_c{$key};
$key =~ s/$transmode_alarm_sev//;
# Set the alarm variables
$alarm_descr = $$resultat_c{$transmode_alarm_descr.$key};
$alarm_time_start = $$resultat_c{$transmode_alarm_time_start.$key};
$alarm_time_end = $$resultat_c{$transmode_alarm_time_end.$key};
$alarm_rack = $$resultat_c{$transmode_alarm_rack.$key};
$alarm_slot = $$resultat_c{$transmode_alarm_slot.$key};
$alarm_unit = $$resultat_c{$transmode_alarm_unit.$key};
$alarm_serv_txt = $transmode_alarm_status_text[$alarm_serv];
$tmp_status = $transmode_alarm_status[$alarm_serv];
# Ignore client related alarms or alarms that are deactivated
if (($alarm_descr =~ /client|Client/ ) || ($alarm_time_end =~ /[0-9]{4}[-][0-9]{2}[-][0-9]{2}/)) {
$num_ignored++;
}
# Print reported alarms that are not ignored
else {
$final_status = &set_status($tmp_status,$final_status);
$num_alarms++;
$alarm_output .= "Rack:" . $alarm_rack;
$alarm_output .= " Slot:" . $alarm_slot;
$alarm_output .= " Unit:" . $alarm_unit;
$alarm_output .= " Desc:" . $alarm_descr;
$alarm_output .= " Time:" . $alarm_time_start;
$alarm_output .= " Sev:" . $alarm_serv_txt .",";
}
}
}
}
# Clear the SNMP Transport Domain and any errors associated with the object.
$session->close;
if ($num_alarms == 0) {
print "No alarms found : OK\n";
exit $ERRORS{"OK"};
}
$output=$alarm_output;
if ($output ne "") {$output.=" : ";}
if ($num_alarms != 0) {
$output .= $num_alarms . " Active alarm(s) found, ".$num_ignored." ignored";
}
if ($final_status == 3) {
print $output," : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};
}
if ($final_status == 2) {
print $output," : CRITICAL\n";
exit $ERRORS{"CRITICAL"};
}
if ($final_status == 1) {
print $output," : WARNING\n";
exit $ERRORS{"WARNING"};
}
print $output," : OK\n";
exit $ERRORS{"OK"};
}
# ============================================================================
# ============================== NO CHECK DEFINED ============================
# ============================================================================
print "Unknown check type : UNKNOWN\n";
exit $ERRORS{"UNKNOWN"};