blob: 7fd17dfe0de7391c8595af0700ba315c9c6fe9f0 (
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
26
27
28
29
30
31
32
33
34
35
36
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
|
