#!/usr/local/bin/perl -w use lib "/home/httpd/html/"; use Image::Size; use Banners; #the argument to this script has to be a subdirectory of web/html/imgs #e.g. sibley/ Don't forget the trailing slash #the thumbnails will be put in a thumbnails directory under the specified path #and the html page for displaying them in THMB.html in the specified path #e.g./home/httpd/html/imgs/sibley/thumbnail.html will display the thumbnails in # /home/httpd/html/imgs/sibley/thumbnails/ $artist=shift; $path="/home/httpd/html/imgs/"; $THM="thumbnails/"; %artists = ("sibley/" => qq!David Sibley
http://www.sibleyart.com
<dsibley\@shore.net>

!, "wilczur/" => qq!Jan Wilczur
BirdIllustrators.com
30 Dover House Road
London SW15 6NX England

Price List for available drawings

!, "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

!, "pratt/" => qq!Doug Pratt

!, "faust/" => qq!Anne Faust

!, "finnegan/" => qq!Shawneen Finnegan

!, "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;