#!c:/perl/bin/perl.exe
##################################################
# Photosearch 02/02/99 by Jeff Waldock
# Lists pictures
##################################################
$cgilocation = "photosearch.pl";
$rootdir="f:/photos/";
$rooturl="/photos/";
$albumdir=$rootdir."albums/";
$albumurl=$rooturl."albums/";
$cgiroot="f:/photos/";
$imageurl="/sysimage";
$cgibin="/photos";
###################################################
# Get Date and Time from Server
@days=("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@longdays=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
@month=("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
# Get Date and Time from Server
$date = localtime();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
if ($min < 10) {$min="0".$min; }
$shorttime="$hour:$min";
$century="19";
if ($year < 50) { $century="20"; }
$date1="$days[$wday] $mday $month[$mon] $century$year at $shorttime";
$date2="$longdays[$wday] $mday $month[$mon] $century$year at $shorttime";
$thisyear=$century.$year;
print "Content-Type: text/html\n\n";
$request_method=$ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$form_info=$ENV{'QUERY_STRING'};
} else {
$size_of_info=$ENV{'CONTENT_LENGTH'};
read(STDIN, $form_info, $size_of_info);
}
@key_value_pairs=split(/&/,$form_info);
foreach $key_value (@key_value_pairs)
{
($key,$value)=split(/=/,$key_value);
$value=~ tr/+/ /;
$value=~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/eg;
$INPUT{$key} = $value;
#print "",$key," = ",$value,"
\n";
}
$searchstring=$INPUT{'search'};
$picsperframe=$INPUT{'n'};
unless(($searchstring)||($picsperframe)) {
#first call - set up the list of search words
&ShowSearchForm;
} else {
unless ($picsperframe) { $picsperframe=4; }
if ($searchstring) {
#generate the search index
&SearchSetup;
}
$pic1=$INPUT{"first"};
unless ($pic1) { $pic1=1; }
&Header;
&GetPhotoData;
}
&Footer;
print "