<%perl>
my $datasource = "dbi:mysql:peakinsight";
my $dbusername = "peakinsight";
my $dbpassword = "aayrsh3687";
my $dbh = DBI->connect($datasource, $dbusername, $dbpassword);
my $statement = "SELECT id,name FROM static_cats";
my $sth = $dbh->prepare($statement);
my $rv = $sth->execute;
while (my @row = $sth->fetchrow_array) {
$row[1] =~ /(.)(.*)/;
print uc($1) . $2 . "
\n\n";
my $statement = "SELECT file,title FROM sqlfs WHERE catid='$row[0]'";
my $sth = $dbh->prepare($statement);
my $rv = $sth->execute;
while (my @rowb = $sth->fetchrow_array) {
$rowb[0] =~ s/^\/content//;
print "$rowb[1]
";
}
print "
";
}