add uptime-script to SVN

git-svn-id: https://subversion.fem.tu-ilmenau.de/repository/nagios@28 0c029375-f9a5-47ba-aa0c-8883c34e326a

check_uptime

+#!/usr/bin/perl -w
+#################################
+# Version 	1.0
+# Date	02:22 PM 2008/10/23
+#Author	Paul Slabbert
+#################################
+
+use strict;
+use Net::SNMP;
+use Getopt::Long;
+
+use lib "/usr/lib/nagios/plugins";
+use utils qw(%ERRORS $TIMEOUT);
+
+my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
+#################################
+# VARS
+my $uptime='.1.3.6.1.2.1.1.3.0';
+my $host= "";
+my $community= "";
+my $port=161;
+my $warn;
+my $crit;
+my $timeout=20;
+
+my $session;
+my $error=undef;
+my $perfout = undef;
+my $minute;
+my $state;
+
+#################################
+
+
+sub print_usage {
+    print "Usage: $0 -H <host> -C <snmp_community> [-p <port>] -w <warn levels> -c<crit levels> \n";
+}
+
+sub check_options {
+    Getopt::Long::Configure ("bundling");
+	GetOptions(
+	"H=s"=>\$host,
+	'C=s' => \$community,
+	'p=i' => \$port,
+	'w=s' => \$warn,
+	'c=s' => \$crit,
+	);
+	if (!defined($host)){
+		print"Must define Host name\n";
+		print_usage();
+		exit $ERRORS{"UNKNOWN"}
+	}
+	
+	if (!defined($community)){
+		print"Must define Community String\n";
+		print_usage();
+		exit $ERRORS{"UNKNOWN"}
+	}
+
+	if (!defined($warn)){
+		print"Must define warn\n";
+		print_usage();
+		exit $ERRORS{"UNKNOWN"}
+	}
+	if (!defined($crit)){
+		print"Must define critical\n";
+		print_usage();
+		exit $ERRORS{"UNKNOWN"}
+	}
+
+}#end check options
+
+sub get_uptime(){
+
+my $resultat=undef;
+my $result;
+
+   # SNMP1 Login
+	 #verb("SNMP v1 login");
+	 ($session, $error) = Net::SNMP->session(
+	-hostname  => $host,
+	-community => $community,
+	-port      => $port,
+	-timeout   => $timeout,
+	-translate   => [
+	-timeticks => 0x0
+	]
+	);
+#error handle for connection error	
+	if (!defined($session)) {
+	   printf("ERROR opening session: %s.\n", $error);
+	   exit $ERRORS{"UNKNOWN"};
+	}
+
+	$resultat=$session->get_request($uptime);
+
+#error handle for OID error
+	if (!defined($resultat)) {
+		printf("ERROR: Description table : %s.\n", $session->error);
+		$session->close;
+		exit $ERRORS{"UNKNOWN"};
+	}
+	$session->close;
+	
+#get regex on output	
+	$result=$resultat->{$uptime};
+	
+	$minute=int($result / 6000);
+	$perfout=int($result / 6000) ." Minutes";
+	
+}#end Get_uptime
+
+sub warn_crit(){
+#can have critical changing to warning
+#critical
+	if($minute<$crit){
+		print "CRITICAL - Device Rebooted ".$perfout.'|'.'uptime='.$minute.';'.$warn.';'.$crit.';'."\n";
+		$state=$ERRORS{"CRITICAL"};
+		return $state;
+	}
+#warning
+	elsif($minute<$warn){
+		print "WARNING - Device Rebooted ".$perfout.'|'.'uptime='.$minute.';'.$warn.';'.$crit.';';
+		$state=$ERRORS{"WARNING"};
+		return $state;
+	}
+#OK	
+	elsif($minute>=$crit){
+		print "OK - Device UP ".$perfout.'|'.'uptime='.$minute.';'.$warn.';'.$crit.';'."\n";
+		$state=$ERRORS{"OK"};
+		return $state;
+	}
+}#end warn_crit
+### start main ###
+
+check_options();
+get_uptime();
+warn_crit();
+
+exit($state);