#!/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
   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>";
print "<table>";
while (@files) {

   print "\n<tr>";
   if ($numRows & 1) {
      print "<td bgcolor=cccce6>\n";
      picBlock($files[0],"left");
   } else {
      print "<td bgcolor=dddddd>\n";
      picBlock($files[0],"right");
   };
   print "</td></tr>\n";

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