Merge.

[nms] / web / mbd-status.pl
diff --git a/web/mbd-status.pl b/web/mbd-status.pl

index 33dee1d5cd51735599007580065eebc2dc45b3cf..d8ac74e0431889c3575e8d21a3774b59b36b7a10 100755 (executable)
--- a/web/mbd-status.pl
+++ b/web/mbd-status.pl
@@ -6,7 +6,7 @@ use nms;
  my $cgi = CGI->new;
  
  my $dbh = nms::db_connect();
-print $cgi->header(-type=>'text/html', -refresh=>'10; http://nms.tg07.gathering.org/mbd-status.pl');
+print $cgi->header(-type=>'text/html; charset=utf-8', -refresh=>'10; http://nms.tg07.gathering.org/mbd-status.pl');
  
  print <<"EOF";
  <html>
@@ -25,7 +25,7 @@ print <<"EOF";
        </tr>
  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() - interval \'30 minutes\' order by game,port,ts desc ) t1 group by game,description order by sum(active_servers) desc, description;');
+my $q = $dbh->prepare('select description,sum(active_servers) as active_servers from (select distinct on (game,port) * from mbd_log where ts >= now() - interval \'10 minutes\' order by game,port,ts desc ) t1 group by game,description order by sum(active_servers) desc, description;');
  $q->execute();
  while (my $ref = $q->fetchrow_hashref()) {
         print <<"EOF";