#!/usr/bin/perl

print "Content-type: text/html\n\n";
$timedir = "/home/dave/lego/timecapsule";
opendir(DIR,$timedir) or die "Couldn't open $timedir<br>\n";
@files = readdir DIR;
close DIR;
$printed = 0;
print "<table border=1>\n";
foreach $file (@files) {
    if($file =~ /^(\d+)$/) {
	$year = $1;
	open(SETS,"$timedir/$year/sets") or die "Couldn't open $timedir/$year/sets<br>\n";
	while(<SETS>) {
	    if(/\t/) {
		print "<tr><td>$year</td><td>\n";
		print join("</td><td>",split("\t"));
		print "</td></tr>\n";
		$printed = 1;
	    }
	}
	close SETS;
    }
}
print "</table>\n";
if(!$printed) { die "no time capsule sets found.<br>\n"; }