#!/usr/local/bin/perl -w
use lib "/home/httpd/html/imgs/beadle";
use Image::Size;
use myBanners;
$artist="beadle/";
$path="/home/httpd/html/imgs/";
$THM="thumbnails/";
%artists = (
"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/} @mybanners) {
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 "
![](\"http://birdingonthe.net/imgs/$artist$THM$img\")
$title<\/small><\/td>\n";
print F "<\/tr><\/table>\n" if (($i++)%5) == 4;
}
print F "<\/tr><\/table>\n" unless (($i++)%5) == 0;
close F;
|