blob: e2f3d97829dc2627929b0693a51a8e6e611e64b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#! /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
}
|
