From a3bd698ef9c54c7b5a8b735a13dc8f426c94e514 Mon Sep 17 00:00:00 2001
From: Ton Voon <tonvoon@users.sourceforge.net>
Date: Mon, 15 May 2006 13:20:51 +0000
Subject: check_disk_snmp.pl removed. Notice added to CHANGES

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@1391 f882894a-f735-0410-b71e-b25c423dba1c
---
 contrib/check_disk_snmp.pl | 74 ----------------------------------------------
 1 file changed, 74 deletions(-)
 delete mode 100644 contrib/check_disk_snmp.pl

(limited to 'contrib')

diff --git a/contrib/check_disk_snmp.pl b/contrib/check_disk_snmp.pl
deleted file mode 100644
index a09343dc..00000000
--- a/contrib/check_disk_snmp.pl
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/perl
-# cm@financial.com 07/2002
-use strict;
-use Net::SNMP;
-use Getopt::Std;
-
-my %opts =(
-        u => 'nobody',          # snmp user
-        l => 'authNoPriv',      # snmp security level   
-        a => 'MD5',             # snmp authentication protocol
-        A => 'nopass',          # authentication protocol pass phrase.
-        x => 'DES',             # privacy protocol
-        m => 'localhost',       # host 
-        d => 1,         # devicenumber
-        w => 70,                # warnratio
-        c => 85,                # critical ratio
-        h => 0,
-        );
-
-getopts('m:u:l:a:A:x:d:w:c:h',\%opts);
-
-if ( $opts{'h'} ) {
-	print "Usage: $0 [ -u <username> ] [ -l <snmp security level>] [ -a <snmp authentication protocol> ] [ -A <authentication protocol pass phrase> ] [ -x <snmp privacy protocol> ] [ -m <hostname>] [ -d <devicenumber> ] [ -w <warning ratio> ] [ -c <critical ratio ]\n";
-	exit 1;
-}
-
-if ($opts{'w'} >= $opts{'c'}) {
-	print "Errorratio must be higher then Warnratio!\n";
-	exit 1;
-}
-
-my ($session, $error) = Net::SNMP->session(
-	-hostname	=>	$opts{'m'},
-	-nonblocking	=>	0x0,
-	-username	=>	$opts{'u'},
-	-authpassword	=>	$opts{'A'},
-	-authprotocol	=>	$opts{'a'},
-	-version	=>	'3',
-	);
-
-if ($@) {
-	print "SNMP-Error occured";
-	exit 1;
-}
-my $result=undef;
-
-
-my $deviceSize=".1.3.6.1.2.1.25.2.3.1.5.$opts{'d'}";
-my $deviceUsed=".1.3.6.1.2.1.25.2.3.1.6.$opts{'d'}";
-my $deviceName=".1.3.6.1.2.1.25.2.3.1.3.$opts{'d'}";
-my @OID=($deviceSize, $deviceUsed, $deviceName);
-$result = $session->get_request(
-	-varbindlist => \@OID,
-	);
-
-if (!defined($result)) {
-	printf("ERROR: %s.\n", $session->error);
-	$session->close;
-	exit 1;
-}
-
-my $ratio=$result->{$deviceUsed}*100/$result->{$deviceSize};
-
-if ($ratio > $opts{'c'}){
-	printf("CRITICAL: %s usage %.2f%%\n", $result->{$deviceName}, $ratio);
-	exit 2;
-}
-if ($ratio > $opts{'w'}){
-	printf("WARNING: %s usage %.2f%%\n", $result->{$deviceName}, $ratio);
-        exit 1;
-}
-
-printf("OK: %s usage %.2f%%\n", $result->{$deviceName}, $ratio);
-exit 0;
-- 
cgit v1.2.3-74-g34f1