#!/usr/local/bin/perl -w use Image::Size; $artist=shift; $artist="beadle"; $copy ="©Daniel Lane"; $path="/home/httpd/html/imgs/"; @banners = map {chomp $_;"$artist/$_||$_, $copy|W"} grep /jpg/i,`ls -1 $path$artist`; print @banners; $THM="thumbnails/"; %artists = ("sibley/" => qq!David Sibley
http://www.sibleyart.com
<dsibley\@shore.net>

!, "zick/" => qq!Julie Zickefoose
http://www.juliezickefoose.com
<julie\@juliezickefoose.com>

!, "lane/" => qq!Daniel Lane

!, "webb/" => qq!Sophie Webb

!, "schmitt/" => qq!John Schmitt

!, "beadle/" => qq!David Beadle

!, "wolf/" => qq!Mimi Hoppe Wolf

!); $file = "$path"."$artist"."thumbnails.html"; open (F, "> $file") or die "couldnt open F"; print F <$path images $artists{$artist} The images are the property of and copyrighted by the artist. They are used here with permission.
Further use or reproduction requires permission of the artist.

EOF for (grep {/$artist/} @banners) { my ($img,$link,$title) = split /\|/; $img =~ s/^$artist//; $title =~ s/,.*$//; my $return=`montage -background white $path$artist$img $path$artist$THM$img`; print F "\n" if (($i++)%5) == 0; print F "

$title<\/small><\/td>\n"; print F "<\/tr><\/table>\n" if (($i++)%5) == 4; } print F "<\/tr><\/table>\n" unless (($i++)%5) == 0; close F;