Initial revision

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c

1 files changed, 163 insertions, 0 deletions

diff --git a/contrib/checkciscotemp.pl b/contrib/checkciscotemp.pl
new file mode 100644
index 00000000..a702a89e
--- /dev/null
+++ b/contrib/checkciscotemp.pl
@@ -0,0 +1,163 @@
+#!/usr/bin/perl -wT
+# check_ciscotemp.pl
+# 
+# Copyright (C) 2000  Leland E. Vandervort <leland@mmania.com>
+#
+# 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 (or with Nagios);  if not, write to the
+# Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
+# Boston, MA 02111-1307, USA
+####################################
+# Nagios pluging to check inlet and outlet temperatures on 
+# Cisco router platforms which support environmental monitoring
+# (7200, 7500, GSR12000...)
+####################################
+# default temperature thresholds are 30C for inlet, 40C outlet.
+# if input or output is less than thresholds, returns OK
+# if equal to (the temps don't change that rapidly) returns WARNING
+# if greater than threshold, returns CRITICAL
+# if undetermined, or cannot access environmental, returns UNKNOWN
+# (in accordance with the plugin coding guidelines)
+####################################
+
+use Net::SNMP;
+use Getopt::Long;
+&Getopt::Long::config('auto_abbrev');
+
+my $status;
+my $response = "";
+my $timeout = 10;
+my $community = "public";
+my $port = 161;
+my $INTAKE_TEMP = "1.3.6.1.4.1.9.9.13.1.3.1.3.1";
+my $OUTLET_TEMP = "1.3.6.1.4.1.9.9.13.1.3.1.3.3";
+my $in_temp;
+my $out_temp;
+my $inlet_thresh = 30;
+my $outlet_thresh = 40;
+
+my %STATUSCODE = (  'UNKNOWN' => '-1',
+                    'OK' => '0',
+                    'WARNING' => '1',
+                    'CRITICAL' => '2');
+
+my $state = "UNKNOWN";
+
+
+$SIG{'ALRM'} = sub {
+    print "ERROR: No snmp response from $hostname (sigALRM)\n";
+    exit($STATUSCODE{"UNKNOWN"});
+};
+
+Getopt::Long::Configure('bundling');
+$status = GetOptions
+        ("community=s", \$community,
+         "C=s",         \$community,
+         "H=s",         \$hostname,
+         "hostname=s",  \$hostname,
+         "port=i",      \$port,
+         "timeout=i",   \$timeout,
+         "c=s",         \$critical_vals,
+         "w=s",         \$warning_vals,
+         "ithresh=i",   \$inlet_thresh,
+         "othresh=i",   \$outlet_thresh);
+                     
+if($status == 0) {
+    &show_help;
+}
+
+unless (defined($hostname)) {
+    $hostname = shift || &show_help;
+}
+
+if (defined($critical_vals)) {
+    die "Cannot Parse Critical Thresholds\n"
+        unless (split(/:/,$critical_vals)>=2);
+    ($inlet_thresh,$outlet_thresh) = @_
+}
+die unless(defined($inlet_thresh) && defined($outlet_thresh));
+
+if (defined($warning_vals)) {
+    die "Cannot Parse Critical Thresholds\n"
+        unless (split(/:/,$warning_vals)>=2);
+    ($inlet_warn,$outlet_warn) = @_;
+}else{
+    $inlet_warn=$inlet_thresh;
+    $outlet_warn=$outlet_thresh;
+}
+
+alarm($timeout);                    
+
+$in_temp = &SNMPGET($INTAKE_TEMP);
+$out_temp = &SNMPGET($OUTLET_TEMP);
+
+if (($in_temp < $inlet_thresh) && ($out_temp < $outlet_thresh)) {
+    $state = "OK";
+}
+elsif (($in_temp == $inlet_thresh) || ($out_temp == $outlet_thresh)) {
+    if(($in_temp > $inlet_thresh) || ($out_temp > $outlet_thresh)) {
+        $state = "CRITICAL";
+    }
+    else {
+        $state = "WARNING";
+    }
+}
+elsif (($in_temp > $inlet_thresh) || ($out_temp > $outlet_thresh)) {
+    $state = "CRITICAL";
+}
+else {
+    $state = "WARNING";
+}
+
+print "$state Inlet Temp: $in_temp Outlet Temp: $out_temp\n";
+exit($STATUSCODE{$state});
+
+sub show_help {
+    printf("\nPerl envmon temperature plugin for Nagios\n");
+    printf("Usage:\n");
+    printf("
+  check_ciscotemp [options] <hostname>
+  Options:
+    -C snmp-community
+    -p snmp-port
+    -i input temperature threshold
+    -o output temperature threshold
+
+");
+    printf("Copyright (C)2000 Leland E. Vandervort\n");
+    printf("check_ciscotemp comes with absolutely NO WARRANTY either implied or explicit\n");
+    printf("This program is licensed under the terms of the\n");
+    printf("GNU General Public License\n(check source code for details)\n\n\n");
+    exit($STATUSCODE{"UNKNOWN"});
+}
+
+sub SNMPGET {
+    $OID = shift;
+    ($session,$error) = Net::SNMP->session(
+        Hostname        =>      $hostname,
+        Community       =>      $community,
+        Port            =>      $port
+        );
+    if(!defined($session)) {
+        printf("$state %s\n", $error);
+        exit($STATUSCODE{$state});
+    }
+    if(!defined($response = $session->get_request($OID))) {
+        printf("$state %s\n", $session->error());
+        $session->close();
+        exit($STATUSCODE{$state});
+    }
+    $session->close();
+    return($response->{$OID});
+}
+