#! /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[
]; if ( $in{morePics} ) { @extraImages = split("-", $in{morePics}); my $i = 0; my $ii = 1; my $max = $#extraImages+1; my $ixx; for ( $ixx=0; $ixx < $max; $ixx++ ) { $nextImg = $extraImages[$ixx]; $i++; $ii++; print qq[ ]; } } print qq[



back
$moreLink
 



back
]; if ( $i < $max ) { print qq[more details]; } print qq[
 
];