#!/usr/bin/perl
###########################################
# show -- Show summary of last 24 hours
# of "RESTARTS" table.
# Mike Schilli, 2002 (
[email protected])
###########################################
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();
