#!c:/perl/bin/perl.exe ################################################## # Photos 03/06/99 by Jeff Waldock # Shows one picture ################################################## $cgilocation = "onephoto.pl"; $rootdir="f:/photos/"; $rooturl="/photos/"; $albumdir=$rootdir."albums/"; $albumurl=$rooturl."albums/"; $cgiroot="f:/photos/"; $imageurl="/sysimage"; ################################################### # 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"; } print "\n"; print "\n"; print "\n"; $idsel=$INPUT{"id"}; unless ($idsel) { &PrintError; } if ($idsel) { &GetPhotoData; } &Footer; print "\n"; exit; sub PrintError { } sub Footer { print "\n"; print "\n"; print "\n"; print "

$\"Back$

\n"; print "xx\n"; } sub GetPhotoData { $resfile=$rootdir."index.txt"; open (FILE,$resfile); @lines=; close(FILE); $lastdate=$lines[0]; $lastdate =~ s/#//g; $numpix=$#lines; #find the details for this pic for ($j=0; $j<=$numpix; $j++) { @info=split(/\|/,$lines[$pic1+$j]); $id=$info[0]; if ($id == $idsel) { $section=$info[1]; $section =~ tr/A-Z/a-z/; $filename=$info[2]; $type=$info[3]; $xpix=$info[4]; $ypix=$info[5]; $imagedet=$info[6]; $datetaken=$info[7]; $keywords=$info[8]; $description=$info[9]; $pixels=$xpix." by ".$ypix." pixels "; $fileurl=$rooturl.$section."/".$filename."\.".$type; $thumburl=$rooturl.$section."/thumb/".$filename."\.".$type; $filepath=$rootdir.$section."/".$filename."\.".$type; #($size)=(stat($filepath))[7]; #$filesize="(".int($size/1000)."K)"; last; } } print "

Jeff's Photos

"; print "\n"; #do the label in row 1 print "\n"; #do the photo in row 2 print "\n"; #do the info in row 3 print "\n"; print "

IMAGE $id

$\"$pixels$filesize\"$

$description

$datetaken

\n"; }