Fetch aggregated ports for clients + internet, print as JSON, so we can fetch it live.

1 files changed, 37 insertions, 0 deletions

diff --git a/clients/update-public-speedometer.pl b/clients/update-public-speedometer.pl
new file mode 100755
index 0000000..7fd17df
--- /dev/null
+++ b/clients/update-public-speedometer.pl
@@ -0,0 +1,37 @@
+#! /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