#! /usr/bin/perl use CGI; use DBI; use lib '../../include'; use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; ' . CGI::url()); print <<"EOF"; MBD status

MBD status

Spill søkt etter siste 15 minutter:

EOF my $q = $dbh->prepare('select description,sum(active_servers) as active_servers from (select distinct on (game,port) * from mbd_log where ts >= now() - \'10 minutes\'::interval order by game,port,ts desc ) t1 group by description order by sum(active_servers) desc, description;'); $q->execute(); while (my $ref = $q->fetchrow_hashref()) { print <<"EOF"; EOF } $dbh->disconnect; print <<"EOF";
Beskrivelse Aktive servere
$ref->{'description'} $ref->{'active_servers'}
EOF