contrib/check_breeze.pl

   1 #!/usr/bin/perl
   2
   3 # Plugin to test signal strength on Breezecom wireless equipment
   4 # Contributed by Jeffrey Blank
   5
   6 $Host=$ARGV[0];
   7 $sig_crit=$ARGV[1];
   8 $sig_warn=$ARGV[2];
   9 $sig=0;
  10 $sig = `snmpget $Host public .1.3.6.1.4.1.710.3.2.3.1.3.0`;
  11 @test=split(/ /,$sig);
  12 $sig=@test[2];
  13 $sig=int($sig);
  14 if ($sig>100){$sig=100}
  15
  16 print "Signal Strength at: $sig%\n";
  17 if ($sig<$sig_crit)
  18   {exit(2)}
  19 if ($sig<$sig_warn)
  20   {exit(1)}
  21
  22 exit(0);