#!/usr/bin/perl -w

$| = 1;  # turn off output buffering

sub picBlock 
{
   my $filename = $_[0];

   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\"></a>\n";
   print "<br>$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 "<tr>";
   if ($numRows & 1) {
      print "<td bgcolor=cccce6 align=center>\n";
   } else {
      print "<td bgcolor=dddddd align=center>\n";
   };
   picBlock($files[0]);
   print "</td>";
   if (!($numRows & 1)) {
      print "<td bgcolor=cccce6 align=center>\n";
   } else {
      print "<td bgcolor=dddddd align=center>\n";
   };
   picBlock($files[1]);
   print "</td>";
   if (!($numRows & 1)) {
      print "<td bgcolor=dddddd align=center>\n";
   } else {
      print "<td bgcolor=cccce6 align=center>\n";
   };
   picBlock($files[2]);
   print "</td></tr>\n";

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