#!perl

print ("Content-type: text/html\n\n");

use strict;
use vars qw($query $dsn $driver $db_username $db_password $dbh);

require 5.006; $| = 1; ($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");

use CGI qw(:standard); use CGI::Carp 'fatalsToBrowser';
$CGI::POST_MAX = (1024 * 0); $CGI::DISABLE_UPLOADS = 1;
$query = new CGI;

use DBI();
$driver = "mysql";
$dsn = "DBI:$driver:database=shapeshifter;host=localhost;port=80";

$db_username = "nobody";
$db_password = "";
warn "Before DBI->connect(): [$$]";
$dbh = DBI->connect($dsn, $db_username, $db_password) or die sprintf "Error: %s.\n", DBI->errstr;
warn "After DBI->connect() [$$]";
my $sth = $dbh->prepare("SELECT * FROM frontpage");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
	print qq~Found a row: id = $ref->{'serial_number'}, name = $ref->{'position'}<BR>~;
}
$sth->finish();
$dbh->disconnect();

if ($ENV{'MOD_PERL'}) {
    print "Mod_perl is installed on this server: $ENV{'MOD_PERL'}<br><br>\n";
} else {
    print "Mod_perl is not installed on this server<br><br>\n";
}