#! /usr/bin/perl use CGI; use DBI; use lib '../../include'; use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); my $night = defined($cgi->param('night')); if ($night) { print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; nettkart-text.pl?night=1'); } else { print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; ' . CGI::url()); } my $tag = ""; $tag = "bgcolor=black" if($night); print <<"EOF"; nettkart EOF my $q = $dbh->prepare("select * from switches natural join placements where ip <> inet '127.0.0.1'"); $q->execute(); while (my $ref = $q->fetchrow_hashref()) { $ref->{'placement'} =~ /\((\d+),(\d+)\),\((\d+),(\d+)\)/; my $traffic = 4.0 * $ref->{'bytes_in'} + $ref->{'bytes_out'}; # average and convert to bits (should be about the same in practice) my $ttext; if ($traffic >= 1_000_000_000) { $ttext = sprintf "%.2f Gbit/port/sec", $traffic/1_000_000_000; } elsif ($traffic => 1_000_000) { $ttext = sprintf "%.2f Mbit/port/sec", $traffic/1_000_000; } else { $ttext = sprintf "%.2f kbit/port/sec", $traffic/1_000; } printf " \"%s\n", $3, $4, $1, $2, $ref->{'switch'}, $ref->{'sysname'}, $ttext, $ref->{'sysname'}, $ttext; } $dbh->disconnect; my $image = "nettkart.pl"; $image = "nettkart.pl?night=1" if ($night); print <<"EOF";

EOF