TG15 cleaning: Remove unused files

1 files changed, 0 insertions, 25 deletions

diff --git a/web/nms.gathering.org/aggregated_traffic.pl b/web/nms.gathering.org/aggregated_traffic.pl
deleted file mode 100755
index e2f3d97..0000000
--- a/web/nms.gathering.org/aggregated_traffic.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#! /usr/bin/perl
-use strict;
-use DBI;
-use lib '../../include';
-use nms;
-use CGI;
-use File::Basename;
-my $cwd = dirname($0);
-my $dbh = nms::db_connect();
-
-my $cgi = CGI->new;
-
-print $cgi->header(-type=>'text/json', -expires=>'now');
-
-my $q = $dbh->prepare('select sum(n1.sum_in) as sum_in, sum(n1.sum_out) as sum_out from (select sum(ifhcinoctets) as sum_in, sum(ifhcoutoctets) as sum_out from polls where time >= now() - \'15 minutes\'::interval group by switch) as n1');
-$q->execute();
-while (my $ref = $q->fetchrow_hashref()) {
-    my $bitsface = $ref->{'sum_in'}/900/8;
-    
-    print <<"EOF";
-{
-  "sum_in": "$bitsface"
-}
-EOF
-}