#!c:/perl/bin/perl.exe
##################################################
# Photos 02/02/99 by Jeff Waldock
# Lists pictures
##################################################
$rootdir="h:/landscapeimage/photos/main/";
$rooturl="/photos/main/";
$cgibin="/photos";
$imageurl="/images";
$cgilocation = "$cgibin/photos.pl";
$NumPagesPerRow=50;
###################################################
# 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";
$year=$year+1900;
$date1="$days[$wday] $mday $month[$mon] $year at $shorttime";
$date2="$longdays[$wday] $mday $month[$mon] $year at $shorttime";
#$thisyear=$century+$year;
$thisyear=$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";
}
$sortorder=$INPUT{'sortorder'};
unless ($sortorder) {
$sortorder="LatestFirst";
}
$yfile=$INPUT{'yfile'};
$thisid=$INPUT{'id'};
$size=$INPUT{'size'};
if ($yfile) {
&ShowPicture;
}
$picsperframe=$INPUT{'n'};
unless ($picsperframe) { $picsperframe=8; }
print <
END
$pic1=$INPUT{"first"};
unless ($pic1) { $pic1=1; }
&GetPhotoData;
&Footer;
print "