#!/usr/bin/perl -w # nagios: -epn # # ============================== SUMMARY =====================================http://www.networktechinc.com/download/check_nti_snmp.pl # # Program : check_nti_snmp.pl # Version : 1.8 # Date : 07/14/2021 # Maintained by : Gautham Prabhu # Credit : Bob Foerster # Summary : Nagios plugin to aid in monitoring Network Technologies Inc products. # Licence : GPL - summary below, full text at http://www.fsf.org/licenses/gpl.txt # # =========================== PROGRAM LICENSE ================================= # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # ===================== INFORMATION ABOUT THIS PLUGIN ========================= # # This plugin checks the status of Network Technologies Inc products via SNMP. # Devices can be monitored either as a single service or as a service for each # individual sensor being monitored. # # The script can also assist in generating the proper Nagios configuration for # use with the script. # # This program is maintained by: # Gautham Prabhu # # Some small pieces based on check_dell_openmanage.pl plugin by: # Jason Ellison - infotek@gmail.com # # ============================= SETUP NOTES ==================================== # # Copy this file to your Nagios installation folder in "libexec/". Rename # to "check_nti_snmp.pl". Make sure that this script has the proper permissions. # # Make sure that the product you wish to monitor has SNMP enabled. # The perl module "Net::SNMP" must be installed on on the machine on which # Nagios is running. # # perl -MCPAN -e shell # cpan> install Net::SNMP # # # ========================= SETUP EXAMPLES ================================== # # You'll need to add a command to Nagios for this plugin similar to the following: # define command{ # command_name check_nti_snmp # command_line $USER1$/check_nti_snmp.pl -H $HOSTADDRESS$ $ARG1$ # } # # Then, you'll need to define services for each item you wish to monitor. You can # generate the necessary services using the "-m generate" option to the script. # # # =============================== CHANGES ================================= # # 1.0 - 10/12/2009 - Initial revision # # 1.1 - 11/02/2009 - Add support for digital inputs on SEMS-16 # and dry contacts/water sensor on MINI # 1.2 - 05/11/2012 - Add support for MINI-LXO and SEMS-2D # 1.3 - 07/25/2013 - Add support for ENVIROMUX-16D, ENVIROMUX-5D # 1.4 - 10/04/2015 - Add support for ENVIROMUX-MICRO # 1.5 - 05/03/2017 - Bug fixes for ENVIROMUX-MICRO and support for # additional ENVIROMUX-xD sensors # 1.6 - 09/12/2017 - Bug fix for divisors of some ENVIROMUX-xD sensors # 1.7 - 09/20/2017 - Added Zabbix template generation # 1.8 - 07/14/2021 - E-Micro Alert poll syntax error fix # 1.9 - 08/08/2025 - Add support for ENVIROMIX-1W. Separated divisor list for Mirco/1W and ExD use strict; use Getopt::Long; use File::Basename; use constant { # ENVIROMUX-xD, IPDU, Mini LXO, Sems16 ID's ID_XD_UNDEFINED => 0, ID_XD_TEMPERATURE => 1, ID_XD_HUMIDITY => 2, ID_XD_POWER => 3, ID_XD_LOW_VOLTAGE => 4, ID_XD_CURRENT => 5, ID_XD_ACLM_V => 6, ID_XD_ACLM_V_OF_P => 7, ID_XD_ACLM_P => 8, ID_XD_WATER => 9, ID_XD_SMOKE => 10, ID_XD_VIBRATION => 11, ID_XD_MOTION => 12, ID_XD_GLASS => 13, ID_XD_DOOR => 14, ID_XD_KEYPAD => 15, ID_XD_PANIC_BUTTON => 16, ID_XD_KEY_STATION => 17, ID_XD_DRY_CONTACT => 18, ID_XD_DIG_INPUT => 19, ID_XD_PING => 20, ID_XD_NOT_RESPONDING => 21, ID_XD_LIGHT => 22, ID_XD_TEMPERATURE_EX => 23, ID_XD_DEWPOINT => 24, ID_XD_NLS => 25, ID_XD_TAC_DIO16 => 26, ID_XD_HUMIDITY_D => 27, ID_XD_TEMPERATURE_EX2 => 28, ID_XD_TAC_DIP1 => 29, ID_XD_AIR_VELOCITY => 30, ID_XD_DUST => 31, ID_XD_RTD_TRANSMITTER => 33, # skip 0x20 to avoid confusion with Hum sensors ID_XD_FREQUENCY => 35, # skip 0x22 ID_XD_AC_V => 36, ID_XD_AC_C => 37, ID_XD_DC_V => 38, ID_XD_DC_C => 39, ID_XD_TEMPERATURE_EX3 => 40, ID_XD_ACLM3_V => 41, ID_XD_ACLM3_C => 42, ID_XD_ACLM3_W => 43, ID_XD_ACLM3_VAR => 44, ID_XD_ALDS_LEAK_LEN => 45, ID_XD_ALDS_CONT => 46, ID_XD_ALDS_TOTAL_LEN => 47, ID_XD_SNMP_S => 48, ID_XD_SENSOR_HUB => 49, ID_XD_REMOTE_DI => 50, ID_XD_REMOTE_DO => 51, ID_XD_ACLM3_FREQUENCY => 52, ID_XD_ACLM3_PHASE_ANGLE => 53, ID_XD_ACLM3_POWER_FACTOR => 54, ID_XD_ACLM3_APPARENT_POWER => 55, ID_XD_TEMP_LEDWS => 56, ID_XD_POWER_RELAY => 57, ID_XD_CO2 => 58, ID_XD_SMOKE_DETECTOR => 61, ID_RESERVED_RS485_SENSOR => 100, ID_XD_POWER_SUPP => 230, ID_XD_OUTPUT_RELAY => 240, ID_XD_SENSOR_HUMIDEX => 32, ID_XD_SENSOR_BAR_PRESSURE => 34, # MICRO ID's ID_MICRO_UNDEFINED => 0 , # analog sensors (RS485) ID_MICRO_TEMPERATURE => 1 , ID_MICRO_HUMIDITY => 2 , ID_MICRO_POWER => 3 , ID_MICRO_LOW_VOLTAGE => 4 , ID_MICRO_CURRENT => 5 , ID_MICRO_ACLM_V => 6 , ID_MICRO_ACLM_V_OF_P => 7 , ID_MICRO_ACLM_P => 8 , # contact sensors ID_MICRO_WATER => 9 , ID_MICRO_SMOKE => 10 , ID_MICRO_VIBRATION => 11 , ID_MICRO_MOTION => 12 , ID_MICRO_GLASS => 13, ID_MICRO_DOOR => 14, ID_MICRO_KEYPAD => 15, # Keypad ID_MICRO_PANIC_BUTTON => 16, ID_MICRO_KEY_STATION => 17, ID_MICRO_DRY_CONTACT => 18, # other ID_MICRO_DIG_INPUT => 19, # this is not used by analog sensor => 19, it is default for dig inp ID_MICRO_PING => 20, ID_MICRO_NOT_RESPONDING => 21, ID_MICRO_LIGHT => 22, ID_MICRO_TEMPERATURE_EX => 23, # temperature sensor with extender range ID_MICRO_DEWPOINT => 24, ID_MICRO_NLS => 25, ID_MICRO_TAC_DIO16 => 26, ID_MICRO_HUMIDITY_D => 27, ID_MICRO_TEMPERATURE_EX2 => 28, ID_MICRO_TAC_DIP1 => 29, #Tac sensor on digital input 1 ID_MICRO_AIR_VELOCITY => 30, ID_MICRO_DUST => 31, ID_MICRO_HUMIDEX => 32, ID_MICRO_HEAT_INDEX => 33, ID_MICRO_BAR_PRESSURE => 34, ID_MICRO_HG_PRESSURE => 35, }; # extended constants use constant { ID_XD_TEMP_HUM => 256 * ID_XD_HUMIDITY + ID_XD_TEMPERATURE, ID_XD_TEMP_HUM_EX2 => 256 * ID_XD_HUMIDITY + ID_XD_TEMPERATURE_EX2, ID_XD_TEMP_HUM_EX3 => 256 * ID_XD_HUMIDITY + ID_XD_TEMPERATURE_EX3, ID_XD_POW_POW => 256 * ID_XD_POWER + ID_XD_POWER, ID_XD_CURR_CURR => 256 * ID_XD_CURRENT + ID_XD_CURRENT, ID_XD_LOWV_LOWV => 256 * ID_XD_LOW_VOLTAGE + ID_XD_LOW_VOLTAGE, ID_XD_ACLM_V_V => 256 * ID_XD_ACLM_V + ID_XD_ACLM_V, ID_XD_ACLM_P_V => 256 * ID_XD_ACLM_V_OF_P + ID_XD_ACLM_P, ID_XD_TEMP_CO2 => 256 * ID_XD_CO2 + ID_XD_TEMPERATURE, ID_XD_TEMP_HUM_D => 256 * ID_XD_HUMIDITY_D + ID_XD_TEMPERATURE, ID_XD_TEMP_COMBO => 0x8000 + ID_XD_TEMPERATURE, ID_XD_TEMP_COMBO_EX2 => 0x8000 + ID_XD_TEMPERATURE_EX2, ID_XD_TEMP_COMBO_EX3 => 0x8000 + ID_XD_TEMPERATURE_EX3, ID_XD_HUM_COMBO => 0x8000 + ID_XD_HUMIDITY, ID_XD_CUSTOM => 0x7fff, ID_XD_DCLM6 => 256 * ID_XD_DC_V + ID_XD_DC_C, # 9767 - 0x2627 ID_XD_ACLM3 => 256 * ID_XD_AC_V + ID_XD_AC_C, # 9253 - 0x2425 ID_XD_ALERTS => 15000, ID_XD_SMARTALERTS => 15001 }; # Status Constants use constant { # ENVIROMUX-xD, IPDU, Mini LXO, Sems16 ID's STATUS_NOTCONNECTED => 0, STATUS_NORMAL => 1, STATUS_WARNING => 2, STATUS_ALERT => 3, STATUS_ACKNOWLEDGED => 4, STATUS_DISMISSED => 5, STATUS_DISCONNECTED => 6, STATUS_TAMPER_ALERT => 7, STATUS_RESERVED => 10, }; # Supported product definitions # # For sake of familiarity, the key of each system should match the specifier in # the MIB of each product. Also, sensor classes should match the tables in the MIBs. my %systems = ( enviromuxSems16 => { product_name => "ENVIROMUX-SEMS-16", sensors => { intSensors => { num_sensors => 3, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.2.1.4.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.2.1.4.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.2.1.4.1.1.6", units => ".1.3.6.1.4.1.3699.1.1.2.1.4.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.2.1.4.1.1.9" } }, extSensors => { num_sensors => 32, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.2.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.2.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.2.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.2.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.2.1.5.1.1.10" } }, digInputs => { num_sensors => 8, handler => \&interpret_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.2.1.6.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.2.1.6.1.1.5", status => ".1.3.6.1.4.1.3699.1.1.2.1.6.1.1.7" } }, } }, envMiniLxo => { product_name => "ENVIROMUX-MINI-LXO", sensors => { extSensors => { num_sensors => 4, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.8.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.8.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.8.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.8.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.8.1.5.1.1.10" } }, digInputs => { num_sensors => 8, handler => \&interpret_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.8.1.6.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.8.1.6.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.8.1.6.1.1.8" } }, } }, enviromux2D => { product_name => "ENVIROMUX-2D", sensors => { extSensors => { num_sensors => 4, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.9.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.9.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.9.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.9.1.5.1.1.10" } }, auxSensors => { num_sensors => 4, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.9.1.4.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.9.1.4.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.4.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.9.1.4.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.9.1.4.1.1.10" } }, aux2Sensors => { num_sensors => 12, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.9.1.17.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.9.1.17.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.17.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.9.1.17.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.9.1.17.1.1.10" } }, ipDevices => { num_sensors => 64, handler => \&interpret_sensor_response, type => ID_XD_PING, # hardcode a IP Device type units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.7.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.7.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.9.1.7.1.1.9" } }, outRelays => { num_sensors => 1, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.8.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.9.1.8.1.1.3" } }, pwrSupplies => { num_sensors => 2, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", description => "", check_oids => { status => ".1.3.6.1.4.1.3699.1.1.9.1.9.1.1.2" } }, events => { num_sensors => 50, handler => \&interpret_sensor_response, type => ID_XD_ALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.10.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.9.1.10.1.1.3" } }, smartalerts => { num_sensors => 20, handler => \&interpret_sensor_response, type => ID_XD_SMARTALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.11.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.9.1.11.1.1.3" } }, remoteInputs => { num_sensors => 32, handler => \&interpret_sensor_response, units => "", check_oids => { type => ".1.3.6.1.4.1.3699.1.1.9.1.12.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.9.1.12.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.12.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.9.1.12.1.1.8" } }, remoteRelays => { num_sensors => 32, handler => \&interpret_sensor_response, type => "", units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.13.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.9.1.13.1.1.3" } }, smokeDetectors => { num_sensors => 8, handler => \&interpret_sensor_response, type => "", units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.14.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.9.1.14.1.1.4", status => ".1.3.6.1.4.1.3699.1.1.9.1.14.1.1.5" } }, tacSensors => { num_sensors => 1, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.9.1.15.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.9.1.15.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.15.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.9.1.15.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.9.1.15.1.1.10" } }, digInputs => { num_sensors => 6, handler => \&interpret_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.9.1.6.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.9.1.6.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.9.1.6.1.1.8" } }, } }, ipdus2 => { product_name => "IPDU-S2", sensors => { extSensors => { num_sensors => 4, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.6.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.6.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.6.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.6.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.6.1.5.1.1.10" } }, } }, enviromuxMini => { product_name => "ENVIROMUX-MINI", snmp_version => "v1", sensor_offset => -1, sensors => { # The MINI doesn't put sensors in a table, each has their own OID. # To allow integration into this script, we handle each sensor as # its own sensor "class". temperatureSensor1 => { num_sensors => 1, handler => \&interpret_mini_sensor_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.1.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.2.1", units => ".1.3.6.1.4.1.3699.1.1.3.2.2.2" } }, temperatureSensor2 => { num_sensors => 1, handler => \&interpret_mini_sensor_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.2.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.2.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.3.1", units => ".1.3.6.1.4.1.3699.1.1.3.2.3.2" } }, humiditySensor1 => { num_sensors => 1, units => '%', handler => \&interpret_mini_sensor_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.3.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.3.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.4.1", } }, humiditySensor2 => { num_sensors => 1, units => '%', handler => \&interpret_mini_sensor_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.4.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.4.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.5.1", } }, dryContact1 => { num_sensors => 1, handler => \&interpret_mini_digital_input_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.5.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.5.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.6.1", } }, dryContact2 => { num_sensors => 1, handler => \&interpret_mini_digital_input_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.6.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.6.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.7.1", } }, dryContact3 => { num_sensors => 1, handler => \&interpret_mini_digital_input_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.7.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.7.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.8.1", } }, dryContact4 => { num_sensors => 1, handler => \&interpret_mini_digital_input_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.8.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.8.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.9.1", } }, waterSensor => { num_sensors => 1, handler => \&interpret_mini_digital_input_response, check_oids => { value => ".1.3.6.1.4.1.3699.1.1.3.1.9.1", alert => ".1.3.6.1.4.1.3699.1.1.3.1.9.2", description => ".1.3.6.1.4.1.3699.1.1.3.2.10.1", } }, } }, enviromux16D => { product_name => "ENVIROMUX-16D", sensors => { intSensors => { num_sensors => 3, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.3.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.3.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.3.1.1.6", units => ".1.3.6.1.4.1.3699.1.1.11.1.3.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.11.1.3.1.1.9" } }, extSensors => { num_sensors => 32, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.11.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.11.1.5.1.1.10" } }, auxSensors => { num_sensors => 32, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.4.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.4.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.4.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.11.1.4.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.11.1.4.1.1.10" } }, aux2Sensors => { num_sensors => 96, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.17.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.17.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.17.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.11.1.17.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.11.1.17.1.1.10" } }, ipDevices => { num_sensors => 64, handler => \&interpret_sensor_response, type => ID_XD_PING, # hardcode a IP Device type units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.7.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.7.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.11.1.7.1.1.9" } }, outRelays => { num_sensors => 4, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.8.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.11.1.8.1.1.3" } }, pwrSupplies => { num_sensors => 2, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", description => "", check_oids => { status => ".1.3.6.1.4.1.3699.1.1.11.1.9.1.1.2" } }, events => { num_sensors => 50, handler => \&interpret_sensor_response, type => ID_XD_ALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.10.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.11.1.10.1.1.3" } }, smartalerts => { num_sensors => 20, handler => \&interpret_sensor_response, type => ID_XD_SMARTALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.11.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.11.1.11.1.1.3" } }, remoteInputs => { num_sensors => 32, handler => \&interpret_sensor_response, units => "", check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.12.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.12.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.12.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.11.1.12.1.1.8" } }, remoteRelays => { num_sensors => 32, handler => \&interpret_sensor_response, type => "", units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.13.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.11.1.13.1.1.3" } }, smokeDetectors => { num_sensors => 8, handler => \&interpret_sensor_response, type => "", units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.14.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.11.1.14.1.1.4", status => ".1.3.6.1.4.1.3699.1.1.11.1.14.1.1.5" } }, tacSensors => { num_sensors => 1, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.11.1.15.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.11.1.15.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.15.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.11.1.15.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.11.1.15.1.1.10" } }, digInputs => { num_sensors => 8, handler => \&interpret_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.11.1.6.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.11.1.6.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.11.1.6.1.1.8" } }, } }, enviromux5D => { product_name => "ENVIROMUX-5D", sensors => { intSensors => { num_sensors => 2, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.3.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.3.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.3.1.1.6", units => ".1.3.6.1.4.1.3699.1.1.10.1.3.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.10.1.3.1.1.9" } }, extSensors => { num_sensors => 10, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.5.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.10.1.5.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.10.1.5.1.1.10" } }, auxSensors => { num_sensors => 10, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.4.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.4.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.4.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.10.1.4.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.10.1.4.1.1.10" } }, aux2Sensors => { num_sensors => 30, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.17.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.17.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.17.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.10.1.17.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.10.1.17.1.1.10" } }, ipDevices => { num_sensors => 64, handler => \&interpret_sensor_response, type => ID_XD_PING, # hardcode a IP Device type units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.7.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.7.1.1.8", status => ".1.3.6.1.4.1.3699.1.1.10.1.7.1.1.9" } }, outRelays => { num_sensors => 2, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.8.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.10.1.8.1.1.3" } }, pwrSupplies => { num_sensors => 2, handler => \&interpret_sensor_response, type => ID_XD_OUTPUT_RELAY, units => "", value => "", description => "", check_oids => { status => ".1.3.6.1.4.1.3699.1.1.10.1.9.1.1.2" } }, events => { num_sensors => 50, handler => \&interpret_sensor_response, type => ID_XD_ALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.10.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.10.1.10.1.1.3" } }, smartalerts => { num_sensors => 20, handler => \&interpret_sensor_response, type => ID_XD_SMARTALERTS, units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.11.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.10.1.11.1.1.3" } }, remoteInputs => { num_sensors => 32, handler => \&interpret_sensor_response, units => "", check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.12.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.12.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.12.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.10.1.12.1.1.8" } }, remoteRelays => { num_sensors => 32, handler => \&interpret_sensor_response, type => "", units => "", value => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.13.1.1.2", status => ".1.3.6.1.4.1.3699.1.1.10.1.13.1.1.3" } }, smokeDetectors => { num_sensors => 8, handler => \&interpret_sensor_response, type => "", units => "", check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.14.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.10.1.14.1.1.4", status => ".1.3.6.1.4.1.3699.1.1.10.1.14.1.1.5" } }, tacSensors => { num_sensors => 1, handler => \&interpret_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.10.1.15.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.10.1.15.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.15.1.1.7", units => ".1.3.6.1.4.1.3699.1.1.10.1.15.1.1.9", status => ".1.3.6.1.4.1.3699.1.1.10.1.15.1.1.10" } }, digInputs => { num_sensors => 6, handler => \&interpret_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.10.1.6.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.10.1.6.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.10.1.6.1.1.8" } }, } }, enviromuxMicro => { product_name => "ENVIROMUX-MICRO", sensors => { intSensors => { num_sensors => 3, handler => \&interpret_micro_1w_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.12.1.1.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.12.1.1.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.12.1.1.1.1.4", units => ".1.3.6.1.4.1.3699.1.1.12.1.1.1.1.5", } }, extSensors => { num_sensors => 6, handler => \&interpret_micro_1w_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.4", units => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.5", } }, digInputs => { num_sensors => 2, handler => \&interpret_micro_1w_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.12.1.3.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.12.1.3.1.1.3", } }, ipDevices => { num_sensors => 4, handler => \&interpret_micro_1w_sensor_response, type => ID_MICRO_PING, # hardcode a IP Device sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.12.1.4.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.12.1.4.1.1.3", } }, alerts => { num_sensors => 32, handler => \&interpret_micro_1w_alert_response, type => 100, # misnomer check_oids => { enabled => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.7" } }, } }, enviromux1Wire => { product_name => "ENVIROMUX-1WIRE", sensors => { extSensors => { num_sensors => 24, handler => \&interpret_micro_1w_sensor_response, check_oids => { type => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.4", units => ".1.3.6.1.4.1.3699.1.1.12.1.2.1.1.5", } }, digInputs => { num_sensors => 2, handler => \&interpret_micro_1w_sensor_response, type => 18, # hardcode a digital input sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.12.1.3.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.12.1.3.1.1.3", } }, ipDevices => { num_sensors => 4, handler => \&interpret_micro_1w_sensor_response, type => ID_MICRO_PING, # hardcode a IP Device sensor type check_oids => { description => ".1.3.6.1.4.1.3699.1.1.12.1.4.1.1.2", value => ".1.3.6.1.4.1.3699.1.1.12.1.4.1.1.3", } }, alerts => { num_sensors => 32, handler => \&interpret_micro_1w_alert_response, type => 100, # misnomer check_oids => { enabled => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.2", description => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.3", value => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.7", status => ".1.3.6.1.4.1.3699.1.1.12.1.5.1.1.7" } }, } }, ); my %exit_codes=('OK'=>0, 'WARNING'=>1, 'CRITICAL'=>2, 'UNKNOWN'=>3, 'DEPENDENT'=>4); my $Version='1.7'; my $o_host = undef; my $o_community = undef; my $o_help = undef; my $o_debug = undef; my $o_version = undef; my $o_type = undef; my $o_mode = undef; my $o_index = undef; my $o_class = undef; my $timeout = 8; my @zabbix_items; # Catch the alarm signal $SIG{'ALRM'} = sub { print ("ERROR: Alarm signal (Nagios time-out)\n"); exit $exit_codes{"UNKNOWN"}; }; # Make sure Net::SNMP is available on the system eval "use Net::SNMP"; if( $@ ) { print("ERROR: You do NOT have the Net:".":SNMP library \n" . " Install it by running: \n" . " perl -MCPAN -e shell \n" . " cpan[1]> install Net::SNMP \n"); exit 1; } check_options(); # SNMP Connection to the host my ($session, $error); ################################################################################ # The user wants to run in configure mode # if( $o_mode eq "config" ) { debug("generate configuration"); do_configuration(); exit $exit_codes{"UNKNOWN"}; } # Make sure that in case of failure, set an alarm in case alarm (60); my $product = $systems{$o_type}; ($session, $error) = Net::SNMP->session( -hostname => $o_host, -version => get_snmp_version_for_product($product), -community => $o_community, -timeout => $timeout ); if( !defined($session) ) { print ("UNKNOWN: SNMP error: $error\n"); exit $exit_codes{'UNKNOWN'}; } if( $o_mode eq "single" ) { my @ok; my @critical; my $output = ''; my $perfdata = query_single_sensor($product, $o_class, $o_index, \@ok, \@critical); my $result = print_monitoring_output($output, $perfdata, \@ok, \@critical); cleanup($result); } if( $o_mode eq "batch" ) { debug("batch sensor query"); my @status_ok; my @status_alert; my $level = 0; my $output = ""; my $perfdata = query_all_sensors_for_product($product, \@status_ok, \@status_alert); $level = print_monitoring_output($output, $perfdata, \@status_ok, \@status_alert); cleanup($level); } ################################################################################ # Lookup the snmp version for a particular product. If none is found in the # definition, we default to v2c. # sub get_snmp_version_for_product { my $product = shift; my $snmp_version = "snmpv2c"; if( defined($product->{"snmp_version"}) ) { $snmp_version = $product->{"snmp_version"}; } return $snmp_version; } ################################################################################ # Query a sensor based on the product, class, and index. # sub query_single_sensor { my $product = shift; my $class = shift; my $index = shift; my $ok = shift; my $alert = shift; my %varlist = (); my $output = ""; my %oids = get_sensor_oids($product, $class, $index); my $res = $session->get_request( -varbindlist => [(values %oids)] ); if( !defined($res) ) { # @todo see if we need to handle this differently return $output; } for my $attr ( ( keys %oids) ) { if (exists $res->{$oids{$attr}}) { if ($res->{$oids{$attr}} eq 'noSuchInstance') { return 'noSuchInstance'; } debug("RESULT: $attr \n$oids{$attr} = $res->{$oids{$attr}}"); $varlist{$attr} = "$res->{$oids{$attr}}"; } elsif (exists $res->{$oids{$attr} . ".0"}) { if ($res->{$oids{$attr} . ".0"} eq 'noSuchInstance') { return 'noSuchInstance'; } debug("RESULT: $attr \n$oids{$attr} = $res->{$oids{$attr} . \".0\"}"); $varlist{$attr} = "$res->{$oids{$attr}. \".0\"}"; } } $varlist{index} = $index; $varlist{class} = $class; # call the registered handler for the sensor class to interpret the SNMP data return $product->{"sensors"}->{$class}->{"handler"}->(\%varlist, $ok, $alert, $product->{"sensors"}->{$class}); } ################################################################################ # Look up the OIDs to query for a given product, class, and index. # sub get_sensor_oids { my $product = shift; my $class = shift; my $index = shift; my %oids = (); my $sensor_offset = 0; if( defined($product->{"sensor_offset"}) ) { $sensor_offset = $product->{"sensor_offset"}; } my $class_info = $product->{"sensors"}{$class}; if( $index > $class_info->{"num_sensors"} or $index < 1 ) { print "Index $index out of valid sensor range (1-" . $class_info->{"num_sensors"} . ")\n"; exit $exit_codes{"UNKNOWN"}; } while (my ($name, $oid) = each( %{$class_info->{"check_oids"}})) { debug("Adding $name:$oid"); $oids{$name} = $oid . "." . ($index + $sensor_offset); } return %oids; } ################################################################################ # Interpret the SNMP response for the sensor and generate NAGIOS friendly data # sub interpret_sensor_response { my $vars = shift; my $ok = shift; my $alert = shift; my $sensor_info = shift; my $class = $vars->{class}; my $index = $vars->{index}; my $type = $vars->{type}; my $description = $vars->{description}; my $value = $vars->{value}; my $units = $vars->{units}; my $status = $vars->{status}; my $divisor = 1.0; # A sensor with a type of zero means that there is no sensor in the slot. The sensor class # may pass us a fixed type to use (such as for digital inputs). We check for existence of # this and if we still don't have a type, we bail. if ( !defined($type) or $type == 0 ) { $type = $sensor_info->{'type'}; return "" unless ($type); } # Some sensors are presents as x10, some are x10000. We need to reconstruct # the appropriate value, so we pick out the appropriate divisor for the type my @divisor10 = (ID_XD_TEMPERATURE, ID_XD_TEMPERATURE_EX, ID_XD_TEMPERATURE_EX2, ID_XD_POWER, ID_XD_CURRENT, ID_XD_TEMP_COMBO, ID_XD_TEMP_COMBO_EX2, ID_XD_TEMP_COMBO_EX3, ID_XD_DEWPOINT, ID_XD_RTD_TRANSMITTER, ID_XD_ACLM_V, ID_XD_ACLM_P, ID_XD_POWER, ID_XD_POW_POW, ID_XD_CURRENT, ID_XD_CURR_CURR, ID_XD_ACLM_V_V, ID_XD_ACLM_V_OF_P, ID_XD_AC_V, ID_XD_DC_V, ID_XD_ALDS_LEAK_LEN, ID_XD_ALDS_TOTAL_LEN, ID_XD_ACLM3_FREQUENCY, ID_XD_TEMP_LEDWS, ID_XD_CO2, ID_XD_ACLM_P_V, ID_XD_LIGHT, ID_XD_FREQUENCY, ID_XD_ACLM3_V, ID_XD_ACLM3_C, ID_XD_ACLM3_W, ID_XD_ACLM3_VAR, ID_XD_CUSTOM ); my @divisor100 = (ID_XD_NLS, ID_XD_AIR_VELOCITY, ID_XD_DUST); my @divisor10000 = ( ID_XD_LOW_VOLTAGE, ID_XD_LOWV_LOWV, hex("0404")); my @oddDivisor10 = (ID_XD_TEMP_HUM, ID_XD_TEMP_HUM_D, ID_XD_TEMP_HUM_EX2, ID_XD_TEMP_HUM_EX3, ID_XD_ACLM_P_V); if (grep $_ == $type, @divisor10) { $divisor = 10.0; } elsif (grep $_ == $type, @divisor100) { $divisor = 100.0; } elsif (grep $_ == $type, @divisor10000) { $divisor = 10000.0; } elsif (grep $_ == $type, @oddDivisor10) { if ($index % 2 == 1) { $divisor = 10.0; } } if (defined $value and !($value eq "")) { $value = $value / $divisor; } if ($type >= ID_XD_WATER and $type <= ID_XD_DRY_CONTACT) { if ( $value == "0.0" ) { $value = "Closed"; $units = ""; } else { $value = "Open"; $units = ""; } } elsif ($type == ID_XD_PING) { if ( $value == "1.0" ) { $value = "Responding"; $units = ""; } else { $value = "Not Responding"; $units = ""; } } elsif ($type == ID_XD_SMOKE_DETECTOR) { if ( $value == "0.0" or $value == "2.0" or $value == "4.0" or $value == "6.0") { $value = "Fire"; $units = ""; } elsif ($value == "1.0" or $value == "5.0") { $value = "Pre-Alert"; $units = ""; } elsif ($value == "3.0") { $value = "OK"; $units = ""; } elsif ($value == "7.0") { $value = "Fault"; $units = ""; } else { $value = "Error"; $units = ""; } } if (defined $status and ((!defined $value or $value eq "") and !($status eq ""))) { $value = $status; } # Now retrn the performance data for this sensor if (!defined $description or $description eq "") { $description = $class . $index; } else { $description =~ s/ /_/g; } my %output = ( description => $description, value => $value, units => $units, class => $class, index => $index); if( $status == STATUS_ALERT or $status == STATUS_DISCONNECTED or $status == STATUS_TAMPER_ALERT ) { push(@$alert, \%output); } else { push(@$ok, \%output); } if (!defined $units or $units eq "") { return "$description=$value;;;; "; } else { return "$description=$value$units;;;; "; } } ################################################################################ # Interpret the SNMP response for the Micro sensor and generate NAGIOS friendly data # sub interpret_micro_1w_sensor_response { my $vars = shift; my $ok = shift; my $alert = shift; my $sensor_info = shift; my $class = $vars->{class}; my $index = $vars->{index}; my $type = $vars->{type}; my $description = $vars->{description}; my $value = $vars->{value}; my $units = $vars->{units}; my $status = 0; #Micro do not have status per sensor. So always show as OK and let nagios configure warning/alerts my $divisor = 1.0; # A sensor with a type of zero means that there is no sensor in the slot. The sensor class # may pass us a fixed type to use (such as for digital inputs). We check for existence of # this and if we still don't have a type, we bail. if( !defined($type) or $type == 0 ) { $type = $sensor_info->{'type'}; return "" unless ($type); } # Some sensors are presents as x10, some are x10000. We need to reconstruct # the appropriate value, so we pick out the appropriate divisor for the type # Micro currently has only type = 1 for temperature. Others are left out as these types are not available anyway. if($type == ID_MICRO_TEMPERATURE or $type == ID_MICRO_HUMIDITY or $type == ID_MICRO_DEWPOINT or $type == ID_MICRO_HUMIDEX or $type == ID_MICRO_HEAT_INDEX or $type == ID_MICRO_TEMPERATURE_EX or $type == ID_MICRO_TEMPERATURE_EX2) { $divisor = 10.0; } if($type == ID_MICRO_TEMPERATURE or $type == ID_MICRO_DEWPOINT or $type == ID_MICRO_HEAT_INDEX or $type == ID_MICRO_HUMIDEX or $type == ID_MICRO_TEMPERATURE_EX or $type == ID_MICRO_TEMPERATURE_EX2) { if( $units == 0 ) { $units = "C"; } else { $units = "F"; } } else { $units = "%"; } $value = $value / $divisor; if( ($type >= ID_MICRO_WATER and $type <= ID_MICRO_DIG_INPUT) or ($type == ID_MICRO_TAC_DIP1)) { if( $value == "0.0" ) { $value = "Closed"; $units = ""; } else { $value = "Open"; $units = ""; } } elsif ($type == ID_MICRO_PING) { if( $value == "0.0" ) { $value = "Not Responding"; $units = ""; } else { $value = "Responding"; $units = ""; } } # Now retrn the performance data for this sensor if (!defined $description or $description eq "") { return " "; } my %output = ( description => $description, value => $value, units => $units, class => $class, index => $index); push(@$ok, \%output); # Micro sensors status is always OK return "$description=$value$units;;;; "; } ################################################################################ # Interpret the SNMP response for the Micro alerts and generate NAGIOS friendly data # sub interpret_micro_1w_alert_response { my $vars = shift; my $ok = shift; my $alert = shift; my $sensor_info = shift; my $class = $vars->{class}; my $index = $vars->{index}; my $type = $vars->{type}; my $description = $vars->{description}; my $value = $vars->{value}; my $status = $vars->{status}; my $enabled = $vars->{enabled}; # A alert with a enable of zero means that there is no alert for this index. The a;ert class # may pass us a fixed type to use (such as always enabled). We check for existence of # this and if we still don't have a type, we bail. if( !defined($enabled) or $enabled == 0 ) { $description = ""; return ""; } my $divisor = 10.0; $value = $value / $divisor; my %output = ( description => $description, value => $value, class => $class, index => $index); if( $status == 2 or $status == 7 ) { push(@$alert, \%output); } else { push(@$ok, \%output); } # Now retrn the performance data for this sensor $description =~ s/ /_/g; $description = "alert" . $index . "_" . "$description"; return "$description=$value;;;; "; } ################################################################################ # Interpret the SNMP response for the sensor and generate NAGIOS friendly data # sub interpret_mini_sensor_response { my $vars = shift; my $oks = shift; my $alerts = shift; my $class = $vars->{class}; my $index = $vars->{index}; my $description = $vars->{description}; my $value = $vars->{value}; my $units = $vars->{units}; my $alert = $vars->{alert}; my $divisor = 10.0; $units = "%" unless($units); $value = $value / $divisor; my %output = ( description => $description, value => $value, units => $units, class => $class, index => $index); if( $alert == 1 ) { push(@$alerts, \%output); } else { push(@$oks, \%output); } # Now retrn the performance data for this sensor; $description =~ s/ /_/g; return "$description=$value$units;;;; "; } ################################################################################ # Interpret a digital input response from an ENVIROMUX-MINI # sub interpret_mini_digital_input_response { my $vars = shift; my $oks = shift; my $alerts = shift; my $sensor_info = shift; my $description = $vars->{description}; my $class = $vars->{class}; my $index = $vars->{index}; my $value = $vars->{value}; my $alert = $vars->{alert}; my $units; if( $value == "0" ) { $units = "Open"; } else { $units = "Closed"; } my %output = ( description => $description, value => $value, units => $units, class => $class, index => $index); if( $alert == 1 ) { push(@$alerts, \%output); } else { push(@$oks, \%output); } # Now retrn the performance data for this sensor; $description =~ s/ /_/g; return "$description=$value$units;;;; "; } ################################################################################ # Build and print a suitable output for nagios. The output is constructed from # two arrays and performance data. If we have any critical items, our entire # run is considered "CRITICAL" for nagios. # # The resuling output looks as follows: # CRITICAL - crit1: value, crit2: value OK - ok1: value |performance data sub print_monitoring_output { my $output = shift; my $perfdata = shift; my $ok = shift; my $alerts = shift; my $level = 0; my $items_found = 0; if( scalar(@$alerts) > 0 ) { $output .= 'CRITICAL - '; my $i = 0; foreach my $alert (@$alerts) { $output .= ',' if( $i++ ); $output .= ' ' . $alert->{description} . ' ' . $alert->{value}; if (exists $alert->{units} and defined $alert->{units} and !($alert->{units} eq "")) { $output .= $alert->{units}; } $items_found++; } $output .= ' '; $level = 2; } if( scalar(@$ok) > 0 ) { $output .= 'OK - '; my $i = 0; foreach my $normal (@$ok) { $output .= ', ' if( $i++ ); if (defined $normal->{description} and !($normal->{description} eq "") and defined $normal->{value} and !($normal->{value} eq "")) { $output .= $normal->{description} . ' ' . $normal->{value}; if (exists $normal->{units} and defined $normal->{units} and !($normal->{units} eq "")) { $output .= $normal->{units}; } $items_found++; } } } if( !$items_found ) { print "ERROR - unable to acquire sensor data!\n"; $level = 3; } else { print "$output |$perfdata \n"; } return $level; } ################################################################################ # Make sure we close the SNMP session and return the proper exit status # sub cleanup { my $exit_status = shift; $session->close(); exit $exit_status; } ################################################################################ # Get a list of products from the systems hash. # # Returns an array formatted as follows: # array[i] = { # model => "model name", # name => "product name" # } sub get_list_of_products { my @products = (); foreach my $product (sort (keys %systems) ) { push @products, {name => $systems{$product}{"product_name"}, model => $product}; } return @products; } ################################################################################ # Generate a "host" configuration for the specified unit. # sub print_host_config { my $product = shift; my $host = shift; my $community = shift; print <<'COMMANDEND'; # You need to define this command exactly once to monitor NTI products. # define command{ # command_name check_nti_snmp # command_line $USER1$/check_nti_snmp.pl -H $HOSTADDRESS$ $ARG1$ # } # COMMANDEND print <{model}_$host alias $product->{name} $host address $host max_check_attempts 5 } CONFIGEND } ################################################################################ # Generate a "batch" configuration for the specified unit. # sub print_batch_config { my $product = shift; my $host = shift; my $community = shift; print <{model}_$host service_description ALL_SENSORS check_command check_nti_snmp!-m batch -C $community -p $product->{model} } CONFIGEND } ################################################################################ # Generate a configuration for the specified sensor. # sub print_sensor_config { my $product = shift; my $sensor = shift; my $host = shift; my $community = shift; my $description = $sensor->{description}; my $class = $sensor->{class}; my $index = $sensor->{index}; if( $class eq "alerts" ) { $description = "Alert" . $index . "_" . $description; } print <{model}_$host service_description $description check_command check_nti_snmp!-m single -C $community -p $product->{model} -L $class -i $index } CONFIGEND } ################################################################################ # Generate zabbix configuration for the specified sensor. # sub print_zabbix_sensor_config { my $product = shift; my $sensor = shift; my $host = shift; my $community = shift; my $fh = shift; my $description = $sensor->{description}; my $units = $sensor->{units}; my $class = $sensor->{class}; my $index = $sensor->{index}; my $type = $sensor->{type}; my $oid; if( $class eq "alerts" ) { $description = "Alert" . $index . "_" . $description; } my %oids = get_sensor_oids($product, $class, $index); my $res = $session->get_request( -varbindlist => [(values %oids)] ); if( !defined($res) ) { # @todo see if we need to handle this differently return ; } for my $attr ( ( keys %oids) ) { if ($attr ne 'value') { next; } if (exists $res->{$oids{$attr}}) { if ($res->{$oids{$attr}} eq 'noSuchInstance') { return ; } $oid = $oids{$attr}; } elsif (exists $res->{$oids{$attr} . ".0"}) { if ($res->{$oids{$attr} . ".0"} eq 'noSuchInstance') { return ; } $oid = $oids{$attr}. ".0"; } } if (!defined $oid or $oid eq "") { for my $attr ( ( keys %oids) ) { if ($attr ne 'status') { next; } if (exists $res->{$oids{$attr}}) { if ($res->{$oids{$attr}} eq 'noSuchInstance') { return ; } $oid = $oids{$attr}; } elsif (exists $res->{$oids{$attr} . ".0"}) { if ($res->{$oids{$attr} . ".0"} eq 'noSuchInstance') { return ; } $oid = $oids{$attr}. ".0"; } } } if (!defined $units) { $units = ""; } my $divisor = 1.0; my $multiplier = 1.0; # A sensor with a type of zero means that there is no sensor in the slot. The sensor class # may pass us a fixed type to use (such as for digital inputs). We check for existence of # this and if we still don't have a type, we bail. if ( !defined($type) or $type == 0 ) { $type = $product->{"sensors"}->{$class}->{'type'}; } if ( !defined($type) or $type == 0 ) { $type = $res->{$oids{'type'}}; return "" unless ($type); } # Some sensors are presents as x10, some are x10000. We need to reconstruct # the appropriate value, so we pick out the appropriate divisor for the type my @divisor10xd = (ID_XD_TEMPERATURE, ID_XD_TEMPERATURE_EX, ID_XD_TEMPERATURE_EX2, ID_XD_POWER, ID_XD_CURRENT, ID_XD_TEMP_COMBO, ID_XD_TEMP_COMBO_EX2, ID_XD_TEMP_COMBO_EX3, ID_XD_DEWPOINT, ID_XD_RTD_TRANSMITTER, ID_XD_ACLM_V, ID_XD_ACLM_P, ID_XD_POWER, ID_XD_POW_POW, ID_XD_CURRENT, ID_XD_CURR_CURR, ID_XD_ACLM_V_V, ID_XD_ACLM_V_OF_P, ID_XD_AC_V, ID_XD_DC_V, ID_XD_ALDS_LEAK_LEN, ID_XD_ALDS_TOTAL_LEN, ID_XD_ACLM3_FREQUENCY, ID_XD_TEMP_LEDWS, ID_XD_CO2, ID_XD_ACLM_P_V, ID_XD_LIGHT, ID_XD_FREQUENCY, ID_XD_ACLM3_V, ID_XD_ACLM3_C, ID_XD_ACLM3_W, ID_XD_ACLM3_VAR, ID_XD_CUSTOM ); my @divisor100xd = (ID_XD_NLS, ID_XD_AIR_VELOCITY, ID_XD_DUST); my @divisor10000xd = ( ID_XD_LOW_VOLTAGE, ID_XD_LOWV_LOWV, hex("0404")); my @oddDivisor10xd = (ID_XD_TEMP_HUM, ID_XD_TEMP_HUM_D, ID_XD_TEMP_HUM_EX2, ID_XD_TEMP_HUM_EX3, ID_XD_ACLM_P_V); my @divisor10micro = (ID_MICRO_TEMPERATURE, ID_MICRO_HUMIDITY, ID_MICRO_DEWPOINT, ID_MICRO_HUMIDEX, ID_MICRO_HEAT_INDEX, ID_MICRO_POWER, ID_MICRO_LOW_VOLTAGE, ID_MICRO_CURRENT, ID_MICRO_ACLM_V, ID_MICRO_ACLM_V_OF_P, ID_MICRO_ACLM_P, ID_MICRO_TEMPERATURE_EX, ID_MICRO_HUMIDITY_D, ID_MICRO_TEMPERATURE_EX2, ID_MICRO_HG_PRESSURE ); my @divisor100micro = (ID_MICRO_NLS, ID_MICRO_AIR_VELOCITY, ID_MICRO_DUST); if (($product->{"product_name"} eq "ENVIROMUX-MICRO") || ($product->{"product_name"} eq "ENVIROMUX-1WIRE")) { if (grep $_ == $type, @divisor10micro) { $divisor = 10.0; } elsif (grep $_ == $type, @divisor100micro) { $divisor = 100.0; } } else { if (grep $_ == $type, @divisor10xd) { $divisor = 10.0; } elsif (grep $_ == $type, @divisor100xd) { $divisor = 100.0; } elsif (grep $_ == $type, @divisor10000xd) { $divisor = 10000.0; } elsif (grep $_ == $type, @oddDivisor10xd) { if ($index % 2 == 1) { $divisor = 10.0; } } } $multiplier = 1 / $divisor; $description = get_unique_item($description); print $fh < $description 4 $community 1 $oid ${class}_$index 15 7 365 0 0 $units 0 0 $multiplier 0 0 161 0 CONFIGEND } sub get_unique_item { my $description = shift; my $suffix = 1; if ( grep { $_ eq $description} @zabbix_items ) { while (grep { $_ eq $description . "_" . $suffix} @zabbix_items) { $suffix++; } push @zabbix_items, $description . "_" . $suffix; return $description . "_" . $suffix; } else { push @zabbix_items, $description; return $description; } } ################################################################################ # Generate zabbix graph configuration for the specified sensor. # sub print_zabbix_graph_config { my $product = shift; my $sensor = shift; my $host = shift; my $community = shift; my $fh = shift; my $description = $sensor->{description}; my $class = $sensor->{class}; my $index = $sensor->{index}; if( $class eq "alerts" ) { $description = "Alert" . $index . "_" . $description; } $description = get_unique_item($description); print $fh < $description 900 200 0.0000 100.0000 1 1 0 1 0 0.0000 0.0000 0 0 0 0 1 0 000099 1 2 0 Template_NTI_$product->{product_name}_$host ${class}_$index CONFIGEND } ################################################################################ # Iterate over each of the sensors and generate its configuration for use in # nagios. # sub generate_sensor_configs { my $output = ""; my $product = shift; my $sensors = shift; my $host = shift; my $community = shift; print_host_config $product, $host, $community; if( scalar(@$sensors) > 0 ) { foreach my $sensor (@$sensors) { print_sensor_config($product, $sensor, $host, $community); } } return 0; } ################################################################################ # Iterate over each of the sensors and generate its configuration for use in # nagios. # sub generate_zabbix_sensor_configs { my $output = ""; my $product = shift; my $sensors = shift; my $host = shift; my $community = shift; my $filename = $product->{product_name} ."_". $host . ".xml"; open(my $fh, '>', $filename) or die "Could not write to file '$filename' $!";; print $fh < 2.0 2017-09-19T11:16:20Z Templates CONFIGEND if( scalar(@$sensors) > 0 ) { foreach my $sensor (@$sensors) { print_zabbix_graph_config($product, $sensor, $host, $community, $fh); } } print $fh < CONFIGEND close $fh; print "Generated Zabbix template file " . $filename . " for host " . $host . "\n"; return 0; } ################################################################################ # Assist the user in generating a proper configuration for nagios. # sub do_configuration { my $done = 0; my @products = get_list_of_products(); while (! $done) { my $monitor_type; my $host; my $community; my $mode; my $product_type; my $i = 1; print "Choose your monitoring solution\n"; print "\t1) Nagios\n"; print "\t2) Zabbix\n"; print "Enter choice [1]: "; chomp($monitor_type = ); if( !$monitor_type ) { $monitor_type = 1;} print "What product type are we configuring?\n"; foreach my $p (@products) { print "\t$i) " . $p->{name} . "\n"; $i++; } print "Enter choice [1]: "; chomp($product_type = ); if( !$product_type ) { $product_type = 1;} print "Enter the IP address of the device: "; chomp($host = ); print "Enter the SNMP community string [public]: "; chomp($community = ); if( !$community ) { $community = "public";} if ($monitor_type == 1 ) { print "Which type of service to generate?\n"; print "\t1) One service for the entire device\n"; print "\t2) One service for each sensor\n"; print "Enter choice [1]: "; chomp($mode = ); if( !$mode ) { $mode = 1; } if( $mode == 1 ) { # generate a batch configuration. We don't actually connect to the # device via SNMP for this, we just use the product definitions. print_host_config $products[$product_type - 1], $host, $community; print_batch_config $products[$product_type - 1], $host, $community; } else { $product = $systems{$products[$product_type-1]->{model}}; # we need to actually connect to the unit and query sensor settings. ($session, $error) = Net::SNMP->session( -hostname => $host, -version => get_snmp_version_for_product($product), -community => $community, -timeout => $timeout ); if( !defined($session) ) { print ("UNKNOWN: SNMP error: $error\n"); exit $exit_codes{'UNKNOWN'}; } my @status_ok; my @status_alert; my $level = 0; my $output = ""; query_all_sensors_for_product($product, \@status_ok, \@status_alert); # add all sensors to one list so we can process them push @status_ok, @status_alert; generate_sensor_configs($products[$product_type-1], \@status_ok, $host, $community); } } else { $product = $systems{$products[$product_type-1]->{model}}; # we need to actually connect to the unit and query sensor settings. ($session, $error) = Net::SNMP->session( -hostname => $host, -version => get_snmp_version_for_product($product), -community => $community, -timeout => $timeout ); if( !defined($session) ) { print ("UNKNOWN: SNMP error: $error\n"); exit $exit_codes{'UNKNOWN'}; } my @status_ok; my @status_alert; my $level = 0; my $output = ""; query_all_sensors_for_product($product, \@status_ok, \@status_alert); # add all sensors to one list so we can process them push @status_ok, @status_alert; generate_zabbix_sensor_configs($product, \@status_ok, $host, $community); } $done = 1; } } ################################################################################ # Iterate over each of the sensors and query it's data. # sub query_all_sensors_for_product { debug("create config for each sensor"); my $product = shift; my $status_ok = shift; my $status_alert = shift; my $perfdata = ""; my $result = ""; while (my ($class, $class_data) = each( %{$product->{"sensors"}})) { my $num_sensors_for_class = $class_data->{"num_sensors"}; for(my $index = 1; $index <= $num_sensors_for_class; $index++) { $result = query_single_sensor($product, $class, $index, $status_ok, $status_alert); if ($result eq 'noSuchInstance') { last; } $perfdata .= $result; } } return $perfdata; } ################################################################################ # Print out script version information. # sub print_version { print basename($0) . ": $Version" }; ################################################################################ # Print out usage information # sub print_usage { my $script_name = basename($0); print "Usage: $script_name [-v] [-h] -H -C -m -p [-L ] [-i ] \n"; print "For Details Type: $script_name --help\n"; } ################################################################################ # Show more verbose help output. # sub help { my $products_classes = ""; print "\nNetwork Technologies Inc Nagios Monitor version ", $Version, "\n"; print_usage(); print "\nScript supports the following Network Technologies Inc products:\n"; my $spacer = "\n "; foreach my $product (sort (keys %systems) ) { print "\t" . $systems{$product}{"product_name"} . " (" . $product .")\n"; $products_classes .= " " . $product . ": $spacer" . join($spacer, sort keys(%{$systems{$product}{sensors}})) . "\n"; } print "\n"; my $products_supported = join('|', sort keys %systems); print < \$o_debug, 'verbose' => \$o_debug, 'h' => \$o_help, 'help' => \$o_help, 'H:s' => \$o_host, 'hostname:s' => \$o_host, 'C:s' => \$o_community, 'community:s' => \$o_community, 'v' => \$o_version, 'version' => \$o_version, 'p:s' => \$o_type, 'product:s' => \$o_type, 'L:s' => \$o_class, 'class:s' => \$o_class, 'i:s' => \$o_index, 'index:s' => \$o_index, 'm:s' => \$o_mode, 'mode:s' => \$o_mode ); if( defined($o_help) ) { help(); exit $exit_codes{"UNKNOWN"}; } if( defined($o_version) ) { print_version(); exit $exit_codes{"UNKNOWN"}; } if( !defined($o_mode) ) { print "Please specify a mode!\n"; exit_error_with_usage(); } if( !($o_mode eq "config") ) { # A few parameters are required for both batch and single sensor queries. if( !defined($o_host) ) { print "No host defined!\n"; exit_error_with_usage(); } if( !defined($o_community) ) { print "No SNMP community defined\n"; exit_error_with_usage(); } if( !defined($o_type) ) { print "Must define the product!\n"; exit_error_with_usage(); } if( !defined($systems{$o_type}) ) { print "Unknown product $o_type\n"; exit_error_with_usage(); } # Additionally, single sensor queries require a few more parameters if( $o_mode eq "single" ) { if( !defined($o_class) ) { print "Sensor class must be defined\n"; exit_error_with_usage(); } if( !defined($o_index) ) { print "Sensor index must be defined\n"; exit_error_with_usage(); } if( !defined($systems{$o_type}{"sensors"}{$o_class}) ) { print "Unknown sensor class $o_class\n"; exit_error_with_usage(); } } } } ################################################################################ # Simple wrapper to exit with error code and show usage information. # sub exit_error_with_usage { print_usage(); exit $exit_codes{"UNKNOWN"}; }