1 files changed, 0 insertions, 37 deletions
diff --git a/clients/update-public-speedometer.pl b/clients/update-public-speedometer.pl
deleted file mode 100755
index 7fd17df..0000000
--- a/clients/update-public-speedometer.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#! /usr/bin/perl -I/root/tgmanage/include
-use strict;
-use warnings;
-use lib 'include';
-use nms;
-use Data::Dumper::Simple;
-
-my $dbh = nms::db_connect();
-$dbh->{AutoCommit} = 0;
-
-# D-Links
-my $sth = $dbh->prepare("select sum(bytes_in) * 8 / 1048576.0 / 1024.0 as traffic_in, sum(bytes_out) * 8 / 1048576.0 / 1024.0 as traffic_out from get_current_datarate() natural join switches where switchtype like 'dlink3100%' and port < 45")
-        or die "Can't prepare query: $!";
-$sth->execute();
-my $total_traffic_dlink = $sth->fetchrow_hashref();
-$sth->finish();
-
-# TeleGW
-$sth = $dbh->prepare("select sum(bytes_in) * 8 / 1048576.0 / 1024.0 as traffic_in, sum(bytes_out) * 8 / 1048576.0 / 1024.0 as traffic_out from get_current_datarate() natural join switches where sysname like '%TeleGW%' and (port=64 or port=65 or port=69 or port=70)")
-	or die "Can't prepare query: $!";
-$sth->execute();
-my $total_traffic_telegw = $sth->fetchrow_hashref();
-$sth->finish();
-
-$dbh->disconnect();
-
-my $total = $total_traffic_dlink->{'traffic_in'} + $total_traffic_dlink->{'traffic_out'};
-$total += $total_traffic_telegw->{'traffic_in'} + $total_traffic_telegw->{'traffic_out'};
-
-# Now we have summarized in+out for clients and in+out for internet-traffic
-# We divide by two to get an average
-$total = $total / 2;
-my $nicetotal = sprintf ("%.2f", $total);
-
-# {"speed":19.12}
-print qq({"speed":$nicetotal});
-exit 0