#!/usr/bin/perl # require '../lib/CgiLib.prl'; require '../lib/BasLib.prl'; # $file = $ENV{QUERY_STRING}; $theme = "Photo Gallery"; $title = "1938 Forest Service Aerial Photographs of the Boulder Area"; # Cgi::PrnHeader("BASIN Photo Gallery"); # $cmd = "egrep $file photodb.rdb"; $rec = `$cmd`; ($spec, $text) = split(/\t/, $rec); $full = $file; $full =~ s/S/L/; Bas::PrnBanner($theme, $title); print "