#!/usr/bin/perl
###########################################
# show -- Show summary of last 24 hours 
# of "RESTARTS" table.
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use DBI;
use CGI qw(:all *table);

my $USER     = "root";
my $PASSWORD = "";

my $dbh = DBI->connect("DBI:mysql:" .
    "database=serverdaten;host=localhost",
    $USER, $PASSWORD);

print header(), 
      start_html(-BGCOLOR => 'white');

my $sql = <<EOT;
SELECT systems.name, subsystems.name, 
       count(*)
FROM restarts, systems, subsystems
WHERE systems.id    = restarts.system AND
      subsystems.id = restarts.subsys AND
      DATE_ADD(stamp, INTERVAL 1 DAY) > 
        CURRENT_TIMESTAMP
GROUP BY system, subsys
EOT

my $sth = $dbh->prepare($sql);
$sth->execute();

print h1("Last 24 Hours Production " .
         "System Restarts");

print start_table({BORDER => 1});
print TR(th("System"), th("Unit"), 
         th("Count"));

while( my($sysname, $subsysname, $count) = 
          $sth->fetchrow_array()) {
    
    print TR(td($sysname), td($subsysname), 
             td($count));
}

print end_table();