#! /usr/bin/perl use strict; require "cgi-lib.pl"; my %in; &ReadParse( \%in ); my $filePath = "../images"; my $pathName = "$filePath/$in{picName}.jpg"; my @extraImages; my $nextImg; my $CT = "Content-type: text/html\n\n"; my $moreLink = ""; if ( $in{morePics} ) { $moreLink = qq[more details]; } print $CT; print qq[
back $moreLink |
back ]; if ( $i < $max ) { print qq[more details]; } print qq[ |