mirror of
https://github.com/munin-monitoring/contrib.git
synced 2025-07-21 18:41:03 +00:00
Remove obsolete bebox plugins
The plugins beboxsync, beboxstats and beboxstats.expect are obsolete. The ISP that sold the Bebox [Be*] was acquired by another provider more than five years ago so it is very unlikely that anybody is using these plugins any more. The plugin tg585v7_ is a suitable replacement as the Bebox and TG585 are both made by Technicolor [formerly Thompson] and run on the same platform. tg585v7_ also seems to be much more comprehensive than the bebox plugins. Closes: #1023 Thanks, troffasky
This commit is contained in:
parent
f8801b87a0
commit
bf83802da3
3 changed files with 0 additions and 137 deletions
|
@ -1,62 +0,0 @@
|
||||||
#!/usr/bin/perl -w
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
my ($Args) = @ARGV;
|
|
||||||
|
|
||||||
my $expecter = "/path/to/beboxstats.expect";
|
|
||||||
|
|
||||||
if ($Args) {
|
|
||||||
|
|
||||||
# work out line to grab
|
|
||||||
if ($Args eq 'autoconf') {
|
|
||||||
# Check the expect script that polls the router exists
|
|
||||||
unless ( -e $expecter ) {
|
|
||||||
print "no (Can't find expect script. Check value of \$expecter: $expecter)\n";
|
|
||||||
} else {
|
|
||||||
print "yes\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
} elsif ($Args eq 'config') { # print out plugin parameters
|
|
||||||
printf("
|
|
||||||
graph_title bebox line stats
|
|
||||||
graph_vlabel deciBels
|
|
||||||
graph_category network
|
|
||||||
graph_info This graph shows the various line parameters
|
|
||||||
attenuationdownstream.label Downstream Attenuation
|
|
||||||
attenuationupstream.label Upstream Attenuation
|
|
||||||
margindownstream.label Downstream Noise Margin
|
|
||||||
marginupstream.label Upstream Noise Margin
|
|
||||||
outputpowerdownstream.label Downstream Output Power
|
|
||||||
outputpowerupstream.label Upstream Output Power
|
|
||||||
margindownstream.type GAUGE
|
|
||||||
outputpowerupstream.type GAUGE
|
|
||||||
attenuationdownstream.type GAUGE
|
|
||||||
marginupstream.type GAUGE
|
|
||||||
outputpowerdownstream.type GAUGE
|
|
||||||
attenuationupstream.type GAUGE
|
|
||||||
");
|
|
||||||
# .label is the Key on the graph
|
|
||||||
} else {
|
|
||||||
printf("Usage: $0
|
|
||||||
No arguments: print line stats
|
|
||||||
autoconf: print 'yes'
|
|
||||||
config: print config info for Munin\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
} else {
|
|
||||||
# if no arguments, just fetch the data and print it out
|
|
||||||
|
|
||||||
my @insplitted = split(' ', `$expecter | grep dB`);
|
|
||||||
|
|
||||||
print "margindownstream.value $insplitted[3]\n";
|
|
||||||
print "marginupstream.value $insplitted[4]\n";
|
|
||||||
|
|
||||||
print "attenuationdownstream.value $insplitted[8]\n";
|
|
||||||
print "attenuationupstream.value $insplitted[9]\n";
|
|
||||||
|
|
||||||
print "outputpowerdownstream.value $insplitted[13]\n";
|
|
||||||
print "outputpowerupstream.value $insplitted[14]\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
|
@ -1,25 +0,0 @@
|
||||||
#!/usr/bin/expect -f
|
|
||||||
|
|
||||||
# script to log on to a BeBox router [ST Speedtouch 780] and gather line stats
|
|
||||||
|
|
||||||
# set timeout for response from router to 30 seconds
|
|
||||||
set timeout 30
|
|
||||||
set router "host.or.ip.of.router"
|
|
||||||
set port "23"
|
|
||||||
set username "Administrator"
|
|
||||||
set password "routerpassword"
|
|
||||||
|
|
||||||
# telnet to $router on $port
|
|
||||||
spawn telnet $router $port
|
|
||||||
|
|
||||||
expect "Username :"
|
|
||||||
send "$username\r"
|
|
||||||
|
|
||||||
expect "Password :"
|
|
||||||
send "$password\r"
|
|
||||||
|
|
||||||
expect "}=>"
|
|
||||||
send "adsl info expand=enabled\r"
|
|
||||||
|
|
||||||
expect "}=>"
|
|
||||||
send "exit\r"
|
|
|
@ -1,50 +0,0 @@
|
||||||
#!/usr/bin/perl -w
|
|
||||||
|
|
||||||
# (C) Alex Dekker <me@ale.cx>
|
|
||||||
# License is GPL
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
my ($Args) = @ARGV;
|
|
||||||
|
|
||||||
my $expecter = "/path/to/beboxstats.expect";
|
|
||||||
|
|
||||||
if ($Args) {
|
|
||||||
|
|
||||||
# work out line to grab
|
|
||||||
if ($Args eq 'autoconf') {
|
|
||||||
# Check the expect script that polls the router exists
|
|
||||||
unless ( -e $expecter ) {
|
|
||||||
print "no (Can't find expect script. Check value of \$expecter: $expecter)\n";
|
|
||||||
} else {
|
|
||||||
print "yes\n";
|
|
||||||
}
|
|
||||||
} elsif ($Args eq 'config') { # print out plugin parameters
|
|
||||||
printf("
|
|
||||||
graph_title bebox sync stats
|
|
||||||
graph_vlabel ATM kbps
|
|
||||||
graph_category network
|
|
||||||
graph_info This graph shows line sync speed
|
|
||||||
syncdownstream.label Downstream Sync Speed
|
|
||||||
syncupstream.label Upstream Sync Speed
|
|
||||||
syncdownstream.type GAUGE
|
|
||||||
syncupstream.type GAUGE
|
|
||||||
");
|
|
||||||
# .label is the Key on the graph
|
|
||||||
} else {
|
|
||||||
printf("Usage: $0
|
|
||||||
No arguments: print line stats
|
|
||||||
autoconf: print 'yes'
|
|
||||||
config: print config info for Munin\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
} else {
|
|
||||||
# if no arguments, just fetch the data and print it out
|
|
||||||
|
|
||||||
my @insplitted = split(' ', `$expecter | grep stream`);
|
|
||||||
|
|
||||||
print "syncdownstream.value $insplitted[3]\n";
|
|
||||||
print "syncupstream.value $insplitted[7]\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue