#!/bin/perl
use strict;
use mysql;
use CGI qw(:standard);
my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1});
print header();
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
my $sth = $dbh->prepare("select date,time,msg,host_hostname,service_result from alerts_log order by date desc, time desc");
$sth->execute;
print "\n";
print "| Datum | Zeit | Nachricht | Hostname | Dienstergebnis |
\n";
while (my $ref = $sth->fetchrow_arrayref()) {
print "| $ref->[0] | $ref->[1] | $ref->[2] | $ref->[3] | $ref->[4] |
\n";
}
print "
\n";
print "\n";
print "\n";