#!/usr/bin/perl -w

$globpat = "/home/d/dh/dhsu/public_html/stuff/Comics/*";

print "Content-type: text/html\n\n";
$cur = "";
foreach (glob($globpat)) {
    if (/([^\/]*?)-([^\/]*)\.(\w\w\w)/) {
	($title, $desc, $ext) = ($1, $2, $3);
	$filename = "$title-$desc.$ext";
	if ($cur ne $title) {
	    if ($cur ne "") {
		print "</ul>";
	    }
	    $cur = $title;
	    $title =~ s/_/ /g;
	    print "<p><b>$title</b></p>\n";
	}
	$desc =~ s/_/ /g;
	print "<a href=\"/~dhsu/stuff/Comics/$filename\">${desc}</a><br>\n";
    }
}