#!/usr/bin/perl -w use lib "/home/httpd/html"; use Banners; %copyrights = ( sibley => "©David Sibley <dsibley\@shore.net>
", lane => "©Daniel Lane
", wolf => "©Mimi Hoppe Wolf
", webb => "©Sophie Webb
", beadle => "©David Beadle
", finnegan => "©Shawneen Finnegan
", schmitt => "©John Schmitt
", pratt => qq!©Douglas Pratt
mslocum\@earthlink.net!, faust => qq!©Anne Faust
mslocum\@earthlink.net!, disley => "©Anthony Disley
", zick => "©Julie Zickefoose <julie\@juliezickefoose.com>
"); %provs = ( W=> qq!the WINGS catalog!, R=> qq!"Birds of the Blue Ridge Mountains"!, F=> qq!"Bird Finding in 40 National Forests and Grasslands", an ABA publication!, B=> qq!the Birds of North America!); #my $q = $ENV{'QUERY_STRING'}; #my ($banner) = grep /$q/,@banners; my ($banner) = grep /$ENV{'QUERY_STRING'}/,@banners; my($img,$link,$title,$prov) = split /\|/,$banner; $title =~ s/,.*$//; my ($artist) = $img =~ m{(.*)/}; my $copy = $copyrights{$artist}; $provenance = $prov?"From $provs{$prov}
":""; print <$title
$title
$copy $link
$provenance
EOHTML