#!/usr/bin/perl -w

$| = 1;  # turn off output buffering

sub picBlock 
{
   my($filename,$align) = @_;

   return if ! defined($filename);

   my $rootname = $filename;
   $rootname =~ s/_small.jpg$/.jpg/;  # delete _small for name
   my $alt = $rootname;
   $alt =~ s/.jpg$//;  # delete .jpg suffix
   $alt =~ s/_/ /g;  # convert underscores to spaces
   $alt =~ s/\+/ \& /g;  # convert + to andphersands with spaces
   $alt =~ s/([a-z])([A-Z])/$1 $2/g;  # insert space into lower-upper transitions
   print "<a href=$rootname>\n";
   print "<img src=$filename\n";
   print "alt=\"$alt\" align=$align></a>\n";
   print "$alt\n";
}


my @files = `ls *small.jpg`;
chomp @files;  # remove all the trailing newlines
my $numRows = 0;

print "<table><tr><td width=590>\n";
print "<table border=0 cellspacing=7 cellpadding=2><tr><td valign=top align=center>\n";

while (@files) {

   if ($numRows & 1) {
      $color = "334422";
      $align = "left";
      $bkcolor = "ffffff";
   } else {
      #$color = "110012";
      $color = "ffffff";
      $align = "right";
      $bkcolor = "dddddd";
   };
   print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=ffffff>\n";
   print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=$color>\n";
   print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=$bkcolor>\n";
   print "<font face=arial>\n";
   picBlock($files[0],$align);
   print "</font>\n";
   print "</td></tr></table>\n";
   print "</td></tr></table>\n";
   print "</td></tr></table>\n";

   $numRows++;
   shift @files;
}
print "</td></tr></table>\n";
print "</td></tr></table>\n";