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