plugins-scripts/check_breeze.pl

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