#
# makemap.pl
#
# quickly make HTML page for Doriath Map
#
sub DEBUG {
1;
}
my @unsorted = glob "*.JPG";
my @files = sort(@unsorted);
my $maxnum = 0;
my $maxlet = 'a';
foreach (@files) {
my $f = $_;
next if length($f) > 6;
my ($name,$ext) = split(/\./,$f);
my $let = substr($name,0,1);
my $num = substr($name,1,1);
print "$f - $name $ext $let $num\n" if DEBUG;
if ($let gt $maxlet) {
$maxlet = $let;
}
if ($num > $maxnum) {
$maxnum = $num;
}
}
print "maxnum $maxnum\n" if DEBUG;
print "maxlet $maxlet\n" if DEBUG;
#exit;
open(F,">map.html") || die "cannot open map.html";
print F qq!\n!;
print F qq!\n!;
print F qq!Doriath Map\n!;
print F qq!\n!;
print F qq!\n!;
print F qq!\n!;
my $l;
for ($l='a'; $l le $maxlet; $l++) {
print F qq!\n!;
my $n;
for ($n=1; $n <= $maxnum; $n++) {
my $f = "$l$n.jpg";
if ( -f $f ) {
print F qq!  | \n!;
} else {
print F qq!  | \n!;
}
print "$f\n" if DEBUG;
}
print F qq!
\n\n!;
}
print F qq!
\n!;
print F qq!\n!;
print F qq!\n!;