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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#! /usr/bin/perl
use CGI;
use DBI;
use POSIX;
use lib '../../include';
use strict;
use warnings;
use nms;
use JSON::XS;
use Digest::MD5;
my $cgi = CGI->new;
my $secret = $cgi->param('secret');
my $secret2 = $cgi->param('secret2');
my $noise = $cgi->param('noise') // 0;
my $fade_time = 0.0;
if (defined($secret2)) {
my $phase = $cgi->param('phase');
my $period = $cgi->param('period');
$fade_time = sin((time - $phase) * 2.0 * 3.14159265358 / $period) * 0.5 + 0.5;
}
my $dbh = nms::db_connect();
my %json = ();
my $q = $dbh->prepare("select * from ( SELECT switch,sysname,sum(ifhcinoctets) AS ifhcinoctets,sum(ifhcoutoctets) AS ifhcoutoctets from switches natural left join get_current_datarate() where ip <> inet '127.0.0.1' group by switch,sysname) t1 natural join placements order by zorder;");
$q->execute();
while (my $ref = $q->fetchrow_hashref()) {
# for now:
# 10Mbit/switch = green
# 100Mbit/switch = yellow
# 1Gbit/switch = red
# 10Gbit/switch = white
my $clr;
if (defined($ref->{'ifhcinoctets'})) {
my $intensity = 0.0;
my $traffic = 4.0 * ($ref->{'ifhcinoctets'} + $ref->{'ifhcoutoctets'}); # average and convert to bits (should be about the same in practice)
my $max = 100_000_000_000.0; # 100Gbit
my $min = 10_000_000.0; # 10Mbit
if ($traffic >= $min) {
$intensity = log($traffic / $min) / log(10);
my $fudge1 = oct('0x'.substr(Digest::MD5::md5_hex($ref->{'sysname'} . $cgi->param('secret')), 0, 8));
my $fudge2 = oct('0x'.substr(Digest::MD5::md5_hex($ref->{'sysname'} . $cgi->param('secret2')), 0, 8));
$intensity += ($fudge1 + ($fudge2 - $fudge1) * $fade_time) * $noise;
$intensity = 4.0 if ($intensity > 4.0);
}
$clr = get_color($intensity);
} else {
$clr = [ 0, 0, 255 ];
}
$clr = sprintf("#%02x%02x%02x",
POSIX::floor($clr->[0] + 0.5),
POSIX::floor($clr->[1] + 0.5),
POSIX::floor($clr->[2] + 0.5));
$json{'switches'}{$ref->{'switch'}}{'color'} = $clr;
}
$dbh->disconnect;
print CGI::header(-type=>'text/json; charset=utf-8');
print JSON::XS::encode_json(\%json);
sub get_color {
my $intensity = shift;
my $gamma = 1.0/1.90;
if ($intensity > 3.0) {
return [ 255.0 * ((4.0 - $intensity) ** $gamma), 255.0 * ((4.0 - $intensity) ** $gamma), 255.0 * ((4.0 - $intensity) ** $gamma) ];
} elsif ($intensity > 2.0) {
return [ 255.0, 255.0 * (($intensity - 2.0) ** $gamma), 255.0 * (($intensity - 2.0) ** $gamma) ];
} elsif ($intensity > 1.0) {
return [ 255.0, 255.0 * ((2.0 - $intensity) ** $gamma), 0 ];
} else {
return [ 255.0 * ($intensity ** $gamma), 255, 0 ];
}
}
|
