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_wave.pl | 77 --------------------------------------------------- 1 file changed, 77 deletions(-) delete mode 100644 contrib/check_wave.pl (limited to 'contrib/check_wave.pl') diff --git a/contrib/check_wave.pl b/contrib/check_wave.pl deleted file mode 100644 index 56b59fe0..00000000 --- a/contrib/check_wave.pl +++ /dev/null @@ -1,77 +0,0 @@ -#!/usr/bin/perl - -# CHECK_WAVE.PL -# Plugin to test signal strength on Speedlan wireless equipment -# Contributed by Jeffry Blank - -$Host=$ARGV[0]; -$sig_crit=$ARGV[1]; -$sig_warn=$ARGV[2]; - - - - -$low1 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.8.1`; -@test=split(/ /,$low1); -$low1=@test[2]; - - -$med1 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.9.1`; -@test=split(/ /,$med1); -$med1=@test[2]; - - -$high1 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.10.1`; -@test=split(/ /,$high1); -$high1=@test[2]; - -sleep(2); - - - -$snr = `snmpget $Host public .1.3.6.1.4.1.762.2.5.2.1.17.1`; -@test=split(/ /,$snr); -$snr=@test[2]; -$snr=int($snr*25); -$low2 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.8.1`; -@test=split(/ /,$low2); -$low2=@test[2]; - - -$med2 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.9.1`; -@test=split(/ /,$med2); -$med2=@test[2]; - - -$high2 = `snmpget $Host public .1.3.6.1.4.1.74.2.21.1.2.1.10.1`; -@test=split(/ /,$high2); -$high2=@test[2]; - - - -$low=$low2-$low1; -$med=$med2-$med1; -$high=$high2-$high1; - -$tot=$low+$med+$high; - - -if ($tot==0) - { - $ss=0; - } -else - { - $lowavg=$low/$tot; - $medavg=$med/$tot; - $highavg=$high/$tot; - $ss=($medavg*50)+($highavg*100); - } -printf("Signal Strength at: %3.0f%, SNR at $snr%",$ss); -#print "Signal Strength at: $ss%, SNR at $snr%"; -if ($ss<$sig_crit) - {exit(2)} -if ($ss<$sig_warn) - {exit(1)} - -exit(0); -- cgit v1.2.3-74-g34f1