89 lines
		
	
	
	
		
			2.2 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable file
		
	
	
	
	
			
		
		
	
	
			89 lines
		
	
	
	
		
			2.2 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable file
		
	
	
	
	
#!@PERL@ -w
 | 
						|
 | 
						|
 | 
						|
use strict;
 | 
						|
use Getopt::Long;
 | 
						|
use vars qw($opt_V $opt_h $opt_w $opt_c $opt_H $opt_C $PROGNAME);
 | 
						|
use FindBin;
 | 
						|
use lib "$FindBin::Bin";
 | 
						|
use utils qw(%ERRORS &print_revision &support &usage);
 | 
						|
 | 
						|
$PROGNAME = "check_breeze";
 | 
						|
 | 
						|
sub print_help ();
 | 
						|
sub print_usage ();
 | 
						|
 | 
						|
$ENV{'PATH'}='@TRUSTED_PATH@';
 | 
						|
$ENV{'BASH_ENV'}='';
 | 
						|
$ENV{'ENV'}='';
 | 
						|
$ENV{'CDPATH'}='';
 | 
						|
 | 
						|
Getopt::Long::Configure('bundling');
 | 
						|
GetOptions
 | 
						|
	("V"   => \$opt_V, "version"    => \$opt_V,
 | 
						|
	 "h"   => \$opt_h, "help"       => \$opt_h,
 | 
						|
	 "w=s" => \$opt_w, "warning=s"  => \$opt_w,
 | 
						|
	 "c=s" => \$opt_c, "critical=s" => \$opt_c,
 | 
						|
	 "H=s" => \$opt_H, "hostname=s" => \$opt_H,
 | 
						|
	 "C=s" => \$opt_C, "community=s" => \$opt_C);
 | 
						|
 | 
						|
if ($opt_V) {
 | 
						|
	print_revision($PROGNAME,'@NP_VERSION@');
 | 
						|
	exit $ERRORS{'UNKNOWN'};
 | 
						|
}
 | 
						|
 | 
						|
if ($opt_h) {print_help(); exit $ERRORS{'UNKNOWN'};}
 | 
						|
 | 
						|
($opt_H) || usage("Host name/address not specified\n");
 | 
						|
my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/);
 | 
						|
($host) || usage("Invalid host: $opt_H\n");
 | 
						|
 | 
						|
($opt_w) || usage("Warning threshold not specified\n");
 | 
						|
my $warning = $1 if ($opt_w =~ /([0-9]{1,2}|100)+/);
 | 
						|
($warning) || usage("Invalid warning threshold: $opt_w\n");
 | 
						|
 | 
						|
($opt_c) || usage("Critical threshold not specified\n");
 | 
						|
my $critical = $1 if ($opt_c =~ /([0-9]{1,2}|100)/);
 | 
						|
($critical) || usage("Invalid critical threshold: $opt_c\n");
 | 
						|
 | 
						|
($opt_C) || ($opt_C = "public") ;
 | 
						|
 | 
						|
my $sig=0;
 | 
						|
$sig = `/usr/bin/snmpget $host $opt_C .1.3.6.1.4.1.710.3.2.3.1.3.0`;
 | 
						|
my @test=split(/ /,$sig);
 | 
						|
$sig=$test[2];
 | 
						|
$sig=int($sig);
 | 
						|
if ($sig>100){$sig=100}
 | 
						|
 | 
						|
print "Signal Strength at: $sig%\n";
 | 
						|
 | 
						|
exit $ERRORS{'CRITICAL'} if ($sig<$critical);
 | 
						|
exit $ERRORS{'WARNING'} if ($sig<$warning);
 | 
						|
exit $ERRORS{'OK'};
 | 
						|
 | 
						|
 | 
						|
sub print_usage () {
 | 
						|
	print "Usage: $PROGNAME -H <host> [-C community] -w <warn> -c <crit>\n";
 | 
						|
}
 | 
						|
 | 
						|
sub print_help () {
 | 
						|
	print_revision($PROGNAME,'@NP_VERSION@');
 | 
						|
	print "Copyright (c) 2000 Jeffrey Blank/Karl DeBisschop
 | 
						|
 | 
						|
This plugin reports the signal strength of a Breezecom wireless equipment
 | 
						|
 | 
						|
";
 | 
						|
	print_usage();
 | 
						|
	print "
 | 
						|
-H, --hostname=HOST
 | 
						|
   Name or IP address of host to check
 | 
						|
-C, --community=community
 | 
						|
   SNMPv1 community (default public)
 | 
						|
-w, --warning=INTEGER
 | 
						|
   Percentage strength below which a WARNING status will result
 | 
						|
-c, --critical=INTEGER
 | 
						|
   Percentage strength below which a CRITICAL status will result
 | 
						|
 | 
						|
";
 | 
						|
	support();
 | 
						|
}
 |