diff options
Diffstat (limited to 'plugins-scripts/check_breeze.pl')
| -rwxr-xr-x | plugins-scripts/check_breeze.pl | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/plugins-scripts/check_breeze.pl b/plugins-scripts/check_breeze.pl new file mode 100755 index 00000000..79e36be7 --- /dev/null +++ b/plugins-scripts/check_breeze.pl | |||
| @@ -0,0 +1,86 @@ | |||
| 1 | #! /usr/bin/perl -wT | ||
| 2 | |||
| 3 | BEGIN { | ||
| 4 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | ||
| 5 | $runtimedir = $1; | ||
| 6 | $PROGNAME = $2; | ||
| 7 | } | ||
| 8 | } | ||
| 9 | |||
| 10 | use strict; | ||
| 11 | use Getopt::Long; | ||
| 12 | use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME); | ||
| 13 | use lib $main::runtimedir; | ||
| 14 | use utils qw(%ERRORS &print_revision &support &usage); | ||
| 15 | |||
| 16 | sub print_help (); | ||
| 17 | sub print_usage (); | ||
| 18 | |||
| 19 | $ENV{'PATH'}=''; | ||
| 20 | $ENV{'BASH_ENV'}=''; | ||
| 21 | $ENV{'ENV'}=''; | ||
| 22 | |||
| 23 | Getopt::Long::Configure('bundling'); | ||
| 24 | GetOptions | ||
| 25 | ("V" => \$opt_V, "version" => \$opt_V, | ||
| 26 | "h" => \$opt_h, "help" => \$opt_h, | ||
| 27 | "w=s" => \$opt_w, "warning=s" => \$opt_w, | ||
| 28 | "c=s" => \$opt_c, "critical=s" => \$opt_c, | ||
| 29 | "H=s" => \$opt_H, "hostname=s" => \$opt_H); | ||
| 30 | |||
| 31 | if ($opt_V) { | ||
| 32 | print_revision($PROGNAME,'$Revision$'); | ||
| 33 | exit $ERRORS{'OK'}; | ||
| 34 | } | ||
| 35 | |||
| 36 | if ($opt_h) {print_help(); exit $ERRORS{'OK'};} | ||
| 37 | |||
| 38 | ($opt_H) || ($opt_H = shift) || usage("Host name/address not specified\n"); | ||
| 39 | my $host = $1 if ($opt_H =~ /([-.A-Za-z0-9]+)/); | ||
| 40 | ($host) || usage("Invalid host: $opt_H\n"); | ||
| 41 | |||
| 42 | ($opt_w) || ($opt_w = shift) || usage("Warning threshold not specified\n"); | ||
| 43 | my $warning = $1 if ($opt_w =~ /([0-9]{1,2}|100)+/); | ||
| 44 | ($warning) || usage("Invalid warning threshold: $opt_w\n"); | ||
| 45 | |||
| 46 | ($opt_c) || ($opt_c = shift) || usage("Critical threshold not specified\n"); | ||
| 47 | my $critical = $1 if ($opt_c =~ /([0-9]{1,2}|100)/); | ||
| 48 | ($critical) || usage("Invalid critical threshold: $opt_c\n"); | ||
| 49 | |||
| 50 | my $sig=0; | ||
| 51 | $sig = `/usr/bin/snmpget $host public .1.3.6.1.4.1.710.3.2.3.1.3.0`; | ||
| 52 | my @test=split(/ /,$sig); | ||
| 53 | $sig=$test[2]; | ||
| 54 | $sig=int($sig); | ||
| 55 | if ($sig>100){$sig=100} | ||
| 56 | |||
| 57 | print "Signal Strength at: $sig%\n"; | ||
| 58 | |||
| 59 | exit $ERRORS{'CRITICAL'} if ($sig<$critical); | ||
| 60 | exit $ERRORS{'WARNING'} if ($sig<$warning); | ||
| 61 | exit $ERRORS{'OK'}; | ||
| 62 | |||
| 63 | |||
| 64 | sub print_usage () { | ||
| 65 | print "Usage: $PROGNAME -H <host> -w <warn> -c <crit>\n"; | ||
| 66 | } | ||
| 67 | |||
| 68 | sub print_help () { | ||
| 69 | print_revision($PROGNAME,'$Revision$'); | ||
| 70 | print "Copyright (c) 2000 Jeffrey Blank/Karl DeBisschop | ||
| 71 | |||
| 72 | This plugin reports the signal strength of a Breezecom wireless equipment | ||
| 73 | |||
| 74 | "; | ||
| 75 | print_usage(); | ||
| 76 | print " | ||
| 77 | -H, --hostname=HOST | ||
| 78 | Name or IP address of host to check | ||
| 79 | -w, --warning=INTEGER | ||
| 80 | Percentage strength below which a WARNING status will result | ||
| 81 | -c, --critical=INTEGER | ||
| 82 | Percentage strength below which a CRITICAL status will result | ||
| 83 | |||
| 84 | "; | ||
| 85 | support(); | ||
| 86 | } | ||
