diff --git a/plugins/router/beboxstats b/plugins/router/beboxstats deleted file mode 100755 index 5f539724..00000000 --- a/plugins/router/beboxstats +++ /dev/null @@ -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"; -} - - diff --git a/plugins/router/beboxstats.expect b/plugins/router/beboxstats.expect deleted file mode 100755 index c990f271..00000000 --- a/plugins/router/beboxstats.expect +++ /dev/null @@ -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" diff --git a/plugins/router/beboxsync b/plugins/router/beboxsync deleted file mode 100755 index 369ec8f6..00000000 --- a/plugins/router/beboxsync +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/perl -w - -# (C) Alex Dekker -# 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"; -} - -