From bf83802da3149ad1708c0cf3223123eb9fe3bec8 Mon Sep 17 00:00:00 2001
From: Lars Kruse <devel@sumpfralle.de>
Date: Sun, 27 Oct 2019 23:36:41 +0100
Subject: [PATCH] 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
---
 plugins/router/beboxstats        | 62 --------------------------------
 plugins/router/beboxstats.expect | 25 -------------
 plugins/router/beboxsync         | 50 --------------------------
 3 files changed, 137 deletions(-)
 delete mode 100755 plugins/router/beboxstats
 delete mode 100755 plugins/router/beboxstats.expect
 delete mode 100755 plugins/router/beboxsync

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 <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";
-}
-
-