#! d:/perl/bin/perl -w
use DBI;
use File::Basename;
use strict;
open MASTEROUT, ">index.html";
select MASTEROUT;
my $DSN = 'driver=Microsoft Access Driver (*.mdb);dbq=Media.mdb';
my $dbh = DBI->connect("dbi:ODBC:$DSN", '','') or die "$DBI::errstr\n";
my $artistHolder;
my $albumHolder;
my $query = $dbh->prepare("SELECT title, artist, album FROM tblMedia ORDER BY artist, album");
$query->execute();
my @row = $query->fetchrow_array;
$artistHolder = $row[1];
$albumHolder = $row[2];
print "";
print MASTEROUT "
";
while ( @row ) {
#Control break on Album
# if (@row[2] ne $albumHolder && @row[1] ne $artistHolder)
if ($row[2] ne $albumHolder && $row[1] eq $artistHolder)
{
print "
";
$albumHolder = $row[2];
print "
$row[1] - $row[2]
";
print "
";
}
#Control break on Artist
if ($row[1] ne $artistHolder)
{
#End previous artist's listings (End album, then artist print "
";
close ARTISTOUT;
open ARTISTOUT, ">".$row[1].".html";
select ARTISTOUT;
print MASTEROUT "