blob: 56b59fe0b7fb5b9c1a124aa5efb5cf1cd9ed5bf2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#!/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);
|