From b15adb7762b6caaecaa83637abfcf5fdb4802092 Mon Sep 17 00:00:00 2001 From: Holger Weiss Date: Mon, 2 Sep 2013 13:16:24 +0200 Subject: Remove "contrib" plugins These days, sites such as "Nagios Exchange" are a much better place for publishing plugins not maintained by the Plugins Development Team. --- contrib/check_temp_fsc | 160 ------------------------------------------------- 1 file changed, 160 deletions(-) delete mode 100644 contrib/check_temp_fsc (limited to 'contrib/check_temp_fsc') diff --git a/contrib/check_temp_fsc b/contrib/check_temp_fsc deleted file mode 100644 index 33470ea1..00000000 --- a/contrib/check_temp_fsc +++ /dev/null @@ -1,160 +0,0 @@ -#!/usr/bin/perl -# -# -# check_most.pl -i -p -c community -o [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 -p -C -s \n"; - } - -sub print_help () { - print_revision($PROGNAME,'$Revision: 1113 $\n '); - print "Copyright (c) 2003 Rainer Duffner\n "; - print_usage(); - print "\n"; - print " = IP-Address or DNS-Name of the W2K-Server\n"; - print " = SNMP-Port (normaly 161)\n"; - print " = SNMP v1 community\n"; - print " = Sensornumber (1, 2, 3 etc.)\n"; - } - -sub version () { - print_revision($PROGNAME,'$Revision: 1113 $ '); - exit $ERRORS{'OK'}; -} - -sub help () { - print_help(); - exit $ERRORS{'OK'}; -} - -- cgit v1.2.3-74-g34f1