diff options
Diffstat (limited to 'contrib/check_temp_fsc')
| -rw-r--r-- | contrib/check_temp_fsc | 160 |
1 files changed, 160 insertions, 0 deletions
diff --git a/contrib/check_temp_fsc b/contrib/check_temp_fsc new file mode 100644 index 00000000..6cae859c --- /dev/null +++ b/contrib/check_temp_fsc @@ -0,0 +1,160 @@ +#!/usr/bin/perl +# +# +# check_most.pl -i <ip address> -p <port> -c community -o <oid> [warn] [critical] +# +# NetSaint host script to get the disk usage from NT snmp +# +# Changes and Modifications +# ========================= +# 3-Aug-2000 - Xavier Dusart +# Created +# 2003 - Rainer Duffner + +BEGIN { + if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { + $runtimedir = $1; + $PROGNAME = $2; + } +} + + + +require 5.004; +use POSIX; +#use strict; +use Getopt::Std ; +use BER; +require 'SNMP_Session.pm'; +use vars qw($opt_H $opt_p $opt_C $opt_s $opt_w $opt_c $opt_h $PROGNAME); +use lib $main::runtimedir; +use utils qw($TIMEOUT %ERRORS &print_revision &usage &support); +use snmputil qw(%FSC_LOCALE %FSC_TEMP_CONDITION); + +delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer + + +getopts('H:p:C:s:w:c:hV') ; + +my $ip_address=undef ; + +if ($opt_h) {&help();} + +if ($opt_H =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z][-a-zA-Z0-9]*(\.[a-zA-Z][-a-zA +-Z0-9]*)*)$/) { + $ip_address = $opt_H ; + } +else { + usage(); + print "IP-Address format wrong\n"; + exit $ERRORS{'UNKNOWN'}; + } + +#if ($opt_p =~ m/^[0-9] + +my $port = $opt_p; + +my $community = $opt_C; + +my $sensor = $opt_s ; + +#my $warning = $opt_w; + +#my $critical = $opt_c; + + + my $temperature_locale_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,1,1,4,0,$sensor-1 ); +# not used for the moment - gives no usable output +# if reused, enter at end of list to avoid renumbering ! + my $temperature_celsius_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,1,1,11,0,$sensor-1 ); + my $temperature_warning_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,1,1,6,0,$sensor-1 ); + my $temperature_critical_oid =encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,1,1,8,0,$sensor-1 ); + my $temperature_condition_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,1,1,3,0,$sensor-1 ); + my $count=1 ; + my $label ; + my @r_array=(); + my $q ; + my $diff ; + $warning=$warning/100 ; + $crititcal=$critical/100 ; + + +# get temperature, temperature_threshold bfore shutdown + my $session=SNMP_Session->open ($ip_address, $community, $port) || die "couldn't open SNMP-session to host" ; + + if ($session->get_request_response ($temperature_celsius_oid, $temperature_warning_oid, $temperature_critical_oid, $temperature_condition_oid, $temperature_locale_oid )) { + (my $bindings) = $session->decode_get_response ($session->{pdu_buffer}); + while ($bindings ne '') { + ($binding, $bindings) = &decode_sequence ($bindings) ; + ($oid,$value) = &decode_by_template ($binding,"%O%@"); + $r_array[$count]=&pretty_print($value); + $count++; + } + } else { + print "No response from agent\n"; + exit $ERRORS{'CRITICAL'}; + } + $result_celsius=$r_array[1]; + $result_warning=$r_array[2]; + $result_critical=$r_array[3]; + $result_condition=$r_array[4]; + $result_locale=$r_array[5]; + + if ($result_celsius < 0) { + print "Result is negative - Sensor unavailable ?\n"; + exit $ERRORS{'UNKNOWN'}; + } + if ($result_warning==0) { + print "Division by zero \n"; + exit $ERRORS{'CRITICAL'}; + } + + if ($result_critical==0) { + print "Division by zero \n"; + exit $ERRORS{'CRITICAL'}; + } + + +# $q=$result_celsius/$result_threshold ; + $diff=$result_critical-$result_celsius ; + + + if ( $result_celsius > $result_critical ) { + print "Sensor ". $sensor . " (".$FSC_LOCALE{$result_locale}.") - Critical: ".$result_celsius." °C - Crit-Threshold:".$result_critical." °C - Left before shutdown:".$diff."°C - Overall condition: ". $FSC_TEMP_CONDITION{$result_condition} ."\n" ; + exit $ERRORS{'CRITICAL'} ; + } + elsif ( $result_celsius > $result_warning ) { + print "Sensor ". $sensor . " (".$FSC_LOCALE{$result_locale}.") - Warning: ".$result_celsius." °C - Crit-Threshold:".$result_warning." °C - Left before shutdown:".$diff."°C - Overall condition: ". $FSC_TEMP_CONDITION{$result_condition}."\n" ; + exit $ERRORS{'WARNING'} ; + } + else { + print "Sensor " .$sensor. " (".$FSC_LOCALE{$result_locale}.") - OK: ".$result_celsius." °C - Warn-Threshold:".$result_warning." °C - Left before shutdown:".$diff."°C - Overall condition: ". $FSC_TEMP_CONDITION{$result_condition} ."\n" ; + exit $ERRORS{'OK'} ; + } + + +sub print_usage () { + print "Usage: $PROGNAME -H <host> -p <port> -C <community> -s <sensornumber> \n"; + } + +sub print_help () { + print_revision($PROGNAME,'$Revision$\n '); + print "Copyright (c) 2003 Rainer Duffner\n "; + print_usage(); + print "\n"; + print "<host> = IP-Address or DNS-Name of the W2K-Server\n"; + print "<port> = SNMP-Port (normaly 161)\n"; + print "<community> = SNMP v1 community\n"; + print "<drvnumber> = Sensornumber (1, 2, 3 etc.)\n"; + } + +sub version () { + print_revision($PROGNAME,'$Revision$ '); + exit $ERRORS{'OK'}; +} + +sub help () { + print_help(); + exit $ERRORS{'OK'}; +} + |