#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "";
my $dead = 0;
my $ret = eval '
local $SIG{__DIE__} = sub { print $_[0], "
"; $dead = 1; };
use DBI;
#
#Create an samoke SQL statement to test the database
#
my $SQL = "Select Software, Hardware, Services From revenue Where Year(TimeStamp)=2001 Order By TimeStamp";
#
#Read in the revenue data into arrays
#
my $dbh = DBI->connect("dbi:mysql:sample", "test", "test") or die $DBI::errstr;
my $sth = $dbh->prepare($SQL) or die $DBI::errstr;
$sth->execute() or die $DBI::errstr;
my $software = [];
my $hardware = [];
my $services = [];
while (my @row = $sth->fetchrow_array) {
push @$software, $row[0];
push @$hardware, $row[1];
push @$services, $row[2];
}
$dbh->disconnect;
return 1;
';
if (!$ret) {
print "Error accessing database
";
if (!$dead) { print "$@
"; }
} else {
print "Database connection test successful
";
}
print "";