#!/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";

#my($colorIn1,$colorIn2,$colorBorder1,$colorBorder2) = ( "ffffff","dddddd","334422","110012");
my($colorIn1,$colorIn2,$colorBorder1,$colorBorder2) = ( "ffffff","dde5ed","334422","ffffff");

while (@files) {

   if ($numRows & 1) {
      $align = "left";
      $color1 = $colorBorder1;
      $color2 = $colorBorder2;
      $bkcolor1 = $colorIn1;
      $bkcolor2 = $colorIn2;
   } else {
      $align = "right";
      $color1 = $colorBorder2;
      $color2 = $colorBorder1;
      $bkcolor1 = $colorIn2;
      $bkcolor2 = $colorIn1;
   };
   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=$color1>\n";
   print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=$bkcolor1>\n";
   print "<font face=arial>\n";
   picBlock($files[0],$align);
   print "</font>\n";
   print "</td></tr></table>\n";
   print "</td></tr></table>\n";
   if(defined($files[1])) {
     print "</td><td>\n";
     print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=$color2>\n";
     print "<table cellspacing=0 cellpadding=2 border=0 width=\"100%\"><tr><td align=center bgcolor=$bkcolor2>\n";
     print "<font face=arial>\n";
     picBlock($files[1],$align);
     print "</font>\n";
   };
   print "</td></tr></table>\n";
   print "</td></tr></table>\n";
   print "</td></tr></table>\n";

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