#!/usr/bin/perl 

use Image::Size;
use lib "/home/httpd/html/perl/";
use newBanners;

$source="birdquest";
opendir (IMGS,"$source/");
for (grep {/.jpg$/} readdir(IMGS)){
   if (! -e "$source/THMB/$_") {
   my $return=`montage -background white $source/$_ jpg:$source/THMB/$_`;
   # print "$_\n";
   }
 }
closedir (IMGS);

#  $img="$birdname.jpg";
#    map {s/_/ /g;s/\d//;s/\:/\'/}$birdname;
#    my $return=`montage -background white $img jpg:THMB/$img`;
#}
#$i=0;
#print "$birdname $img \n";}
#    if ((($i)%5) == 0){ $T.=qq!<table width=630 border=1><tr>\n! }
###    $T.= qq!<td width=114>
#     <a href="http://birdingonthe.net/imgs/expand_thmb2k.pl?$query">
#     <img src="http://birdingonthe.net/imgs/$dir$THM$img" border=0></a>
#     <br><small>$birdname<\/small><\/td>\n!;
#    if ((($i++)%5) == 4){ $T.=qq!<\/tr><\/table>\n!}