Click NEXT to start with the first image (recommended for slower connections)
Click on an Image or NEXT to advance through the images __EOQ__ print qq(
);
printJumper();
print qq(
);
}
}
#see if we print all the images
if($view eq "all"){
print qq(\n);
$i = 1;
foreach $thispix (@sortpix) {
showPix($thispix, $i);
print "
"; $i++; } } #if we have a number, show just that image if($view =~ /\d/){ print qq(
\n); $caption = $info{"caption:".$thispix}; if($caption eq ""){ $caption = $thispix; } print "$caption"; #print zoom version link if available if(-e "full/$thispix"){ print <<__EOQ__; [fullsize] __EOQ__ } print "
\n"; } #print select box with links to all the images sub printJumper { $i = 1; print qq(\n); } #replace values of info for this key based on input sub updateInfo { my($key) = @_; if($input{$key} ne ""){ $info{$key} = $input{$key}; } else { delete($info{$key}); } } #read .info file, put key=value pairs into hash sub readInfo { %info = (); open(READ,"< kphoto.info"); flock(READ,1); #lock for reading while(defined($nextline=)){
chomp $nextline;
($key,@rest)=split(/=/,$nextline); #break on first =
$val=join("=",@rest); #glue the value together in case it also had =s
$val =~ s/\\n/\n/g;
$info{$key} = $val;
}
close READ;
}
sub chugCGI { local (*in) = @_ if @_; local ($i, $key, $val);
if($ENV{'REQUEST_METHOD'}eq"POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
}else {$in = $ENV{'QUERY_STRING'};} @in = split(/&/,$in);
foreach $i (0 .. $#in) { $in[$i] =~ s/\+/ /g;
($key, $val) = split(/=/,$in[$i],2);$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge; $in{$key}.= $val;}return length($in);}
"; $i++; } } #if we have a number, show just that image if($view =~ /\d/){ print qq(
);
#print links to prev/all/next
printPrevNext($view);
print "
"; $offset = $view - 1; $thispix = $sortpix[$offset]; $nextnum = $view + 1; #we;re going to make the image a link to the next one so it's easier to click if($nextnum > $#sortpix + 1){ $nextnum = 1; } showPix($thispix, $nextnum); printJumper(); print qq(
);
}
sub printPrevNext {
my($current)=@_;
print "";
$lastpix = $#sortpix+1;
if($current ne ""){
print "Viewing $view of $lastpix ";
} else {
print "$lastpix Images ";
}
print " ";
$prev = $current - 1;
$next = $current + 1;
if($prev > 0){
print qq(<<PREV);
}
print qq( ALL );
if($next <= $lastpix){
print qq(NEXT>>);
}
print "";
}
sub showPix {
my($thispix,$linkto) = @_;
$safepix = $thispix ;
$safepix =~ s/ /%20/g;
print qq("; $offset = $view - 1; $thispix = $sortpix[$offset]; $nextnum = $view + 1; #we;re going to make the image a link to the next one so it's easier to click if($nextnum > $#sortpix + 1){ $nextnum = 1; } showPix($thispix, $nextnum); printJumper(); print qq(
\n); $caption = $info{"caption:".$thispix}; if($caption eq ""){ $caption = $thispix; } print "$caption"; #print zoom version link if available if(-e "full/$thispix"){ print <<__EOQ__; [fullsize] __EOQ__ } print "
\n"; } #print select box with links to all the images sub printJumper { $i = 1; print qq(\n); } #replace values of info for this key based on input sub updateInfo { my($key) = @_; if($input{$key} ne ""){ $info{$key} = $input{$key}; } else { delete($info{$key}); } } #read .info file, put key=value pairs into hash sub readInfo { %info = (); open(READ,"< kphoto.info"); flock(READ,1); #lock for reading while(defined($nextline=