diff options
author | Stanley Hopcroft <stanleyhopcroft@users.sourceforge.net> | 2005-01-27 04:54:16 +0000 |
---|---|---|
committer | Stanley Hopcroft <stanleyhopcroft@users.sourceforge.net> | 2005-01-27 04:54:16 +0000 |
commit | 045e73217460194021286659a6fb4a730cc301e3 (patch) | |
tree | d4e9665fad8911dbbb57186afcd7143bc5f1acb9 /contrib/check_fan_fsc_present | |
parent | fce1f09f770fc5bbc6d323865af709ff515c803c (diff) | |
download | monitoring-plugins-045e73217460194021286659a6fb4a730cc301e3.tar.gz |
New /contrib plugin
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1113 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'contrib/check_fan_fsc_present')
-rw-r--r-- | contrib/check_fan_fsc_present | 135 |
1 files changed, 135 insertions, 0 deletions
diff --git a/contrib/check_fan_fsc_present b/contrib/check_fan_fsc_present new file mode 100644 index 00000000..5bddb87c --- /dev/null +++ b/contrib/check_fan_fsc_present | |||
@@ -0,0 +1,135 @@ | |||
1 | #!/usr/bin/perl | ||
2 | # | ||
3 | # | ||
4 | # check_most.pl -i <ip address> -p <port> -c community -o <oid> [warn] [critical] | ||
5 | # | ||
6 | # NetSaint host script to get the disk usage from NT snmp | ||
7 | # | ||
8 | # Changes and Modifications | ||
9 | # ========================= | ||
10 | # 3-Aug-2000 - Xavier Dusart | ||
11 | # Created | ||
12 | # 2003 - Rainer Duffner | ||
13 | |||
14 | BEGIN { | ||
15 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | ||
16 | $runtimedir = $1; | ||
17 | $PROGNAME = $2; | ||
18 | } | ||
19 | } | ||
20 | |||
21 | |||
22 | |||
23 | require 5.004; | ||
24 | use POSIX; | ||
25 | #use strict; | ||
26 | use Getopt::Std ; | ||
27 | use BER; | ||
28 | require 'SNMP_Session.pm'; | ||
29 | use vars qw($opt_H $opt_p $opt_C $opt_f $opt_h $PROGNAME); | ||
30 | use lib $main::runtimedir; | ||
31 | use utils qw($TIMEOUT %ERRORS &print_revision &usage &support); | ||
32 | use snmputil qw(%FSC_LOCALE %FSC_FAN_STATUS); | ||
33 | |||
34 | delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # Make %ENV safer | ||
35 | |||
36 | getopts('H:p:C:f:hV') ; | ||
37 | |||
38 | my $ip_address=undef ; | ||
39 | |||
40 | if ($opt_h) {&help();} | ||
41 | |||
42 | if ($opt_H =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z][-a-zA-Z0-9]*(\.[a-zA-Z][-a-zA | ||
43 | -Z0-9]*)*)$/) { | ||
44 | $ip_address = $opt_H ; | ||
45 | } | ||
46 | else { | ||
47 | usage(); | ||
48 | print "IP-Address format wrong\n"; | ||
49 | exit $ERRORS{'UNKNOWN'}; | ||
50 | } | ||
51 | |||
52 | #if ($opt_p =~ m/^[0-9] | ||
53 | |||
54 | my $port = $opt_p; | ||
55 | |||
56 | my $community = $opt_C; | ||
57 | |||
58 | my $fan = $opt_f ; | ||
59 | |||
60 | #my $err_counter=0 ; | ||
61 | #my $err_status=""; | ||
62 | |||
63 | my $fan_locale_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,2,1,4,0,$fan-1 ); | ||
64 | # not used for the moment - gives no usable output | ||
65 | # if reused, enter at end of list to avoid renumbering ! | ||
66 | my $fan_cur_speed_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,2,1,8,0,$fan-1 ); | ||
67 | my $fan_nom_max_speed_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,2,1,9,0,$fan-1 ); | ||
68 | my $fan_cur_max_speed_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,2,1,10,0,$fan-1 ); | ||
69 | my $fan_condition_oid = encode_oid (1,3,6,1,4,1,231,2,10,2,2,5,2,2,1,3,0,$fan-1 ); | ||
70 | my $count=1 ; | ||
71 | my $label ; | ||
72 | my @r_array=(); | ||
73 | my $q ; | ||
74 | my $diff ; | ||
75 | $warning=$warning/100 ; | ||
76 | $crititcal=$critical/100 ; | ||
77 | |||
78 | |||
79 | # get temperature, temperature_threshold bfore shutdown | ||
80 | my $session=SNMP_Session->open ($ip_address, $community, $port) || die "couldn't open SNMP-session to host" ; | ||
81 | |||
82 | if ($session->get_request_response ($fan_locale_oid, $fan_cur_speed_oid, $fan_nom_max_speed_oid, $fan_cur_max_speed_oid, $fan_condition_oid )) { | ||
83 | (my $bindings) = $session->decode_get_response ($session->{pdu_buffer}); | ||
84 | while ($bindings ne '') { | ||
85 | ($binding, $bindings) = &decode_sequence ($bindings) ; | ||
86 | ($oid,$value) = &decode_by_template ($binding,"%O%@"); | ||
87 | $r_array[$count]=&pretty_print($value); | ||
88 | $count++; | ||
89 | } | ||
90 | } else { | ||
91 | print "No response from agent\n"; | ||
92 | exit $ERRORS{'CRITICAL'}; | ||
93 | } | ||
94 | $result_fan_locale= $r_array[1]; | ||
95 | $result_fan_cur_speed= $r_array[2]; | ||
96 | $result_fan_nom_max_speed= $r_array[3]; | ||
97 | $result_fan_cur_max_speed= $r_array[4]; | ||
98 | $result_fan_condition=$r_array[5]; | ||
99 | |||
100 | |||
101 | if ( $result_fan_condition != "3" ) { | ||
102 | print "Fan ". $fan . " ".$FSC_LOCALE{$result_fan_locale}. " (".$result_fan_locale.") - Critical: Cur./Nom./Cur-Max-Speed: ". $result_fan_cur_speed."/". $result_fan_nom_max_speed."/".$result_fan_cur_max_speed.". Overall condition: ". $FSC_FAN_STATUS{$result_fan_condition} ."\n" ; | ||
103 | exit $ERRORS{'CRITICAL'} ; | ||
104 | } | ||
105 | else { | ||
106 | print "Fan " .$fan . " ".$FSC_LOCALE{$result_fan_locale}. " (".$result_fan_locale.") - OK: Cur./Nom./Cur-Max-Speed: ". $result_fan_cur_speed."/". $result_fan_nom_max_speed."/".$result_fan_cur_max_speed.". Overall condition: ". $FSC_FAN_STATUS{$result_fan_condition} ."\n" ; | ||
107 | exit $ERRORS{'OK'} ; | ||
108 | } | ||
109 | |||
110 | |||
111 | sub print_usage () { | ||
112 | print "Usage: $PROGNAME -H <host> -p <port> -C <community> -f <fannumber>\n"; | ||
113 | } | ||
114 | |||
115 | sub print_help () { | ||
116 | print_revision($PROGNAME,'$Revision$\n '); | ||
117 | print "Copyright (c) 2003 Rainer Duffner\n "; | ||
118 | print_usage(); | ||
119 | print "\n"; | ||
120 | print "<host> = IP-Address or DNS-Name of the W2K-Server\n"; | ||
121 | print "<port> = SNMP-Port (normaly 161)\n"; | ||
122 | print "<community> = SNMP v1 community\n"; | ||
123 | print "<fannumber> = Fannumber (1, 2, 3 etc.)\n"; | ||
124 | } | ||
125 | |||
126 | sub version () { | ||
127 | print_revision($PROGNAME,'$Revision$ '); | ||
128 | exit $ERRORS{'OK'}; | ||
129 | } | ||
130 | |||
131 | sub help () { | ||
132 | print_help(); | ||
133 | exit $ERRORS{'OK'}; | ||
134 | } | ||
135 | |||