#!/usr/bin/perl use strict; #use lib '/usr/lib/perl5/5.8.3'; use CGI ':standard'; my $idstring; #title of photo for display my $testindex; #dummy to check whether there is a multiple of 4 photos, and if not to fill additional table divisions with blanks my $testpic; #dummy to check whether a photo of the $testindex exists, made by appending ".jpg" to $idstring my $headtext; #text string for introductory text my $titletext; #text string for http title my $descriptive; my $setindex; #value of first photo, prefix to be added to $idstring, my $count; my $prefix; my $altext; #variables above copied from common.cgi my $uptonfield; #single line from csv file my @arrayline; #split into an array my @uptonarray; #array created from each line of csv file, as an array my $datafile; #name of csv file my $fh; #file handle my $i; my $j; my $k; #loop index my @titles; my @dates; my @places; my @indexes; my @gridref; #list of required captions my $title; my $place; my $index; # my $keystring; $uptonfield = "1"; #ensure variable is defined $datafile = "../photos.csv"; open $fh, "$datafile" or die "Can't open photos.csv: $!"; #open data file and extract each line of data, placing it in an array $i = 0; print "content-type: text/html\n\n"; while (defined($uptonfield)) { defined($uptonfield = readline($fh)) or last; @uptonarray = split(/,/,$uptonfield); $indexes[$i]=$uptonarray[0]; $titles[$i]=$uptonarray[1]; # remove inverted commas from titles - these allow commas in the records $titles[$i]=~ s/\"//g; $i++; #print $uptonarray[0]." ".$uptonarray[1]."\n"; } #there are newlines at the end of each record. get rid of them. foreach $place (@titles) { chop ($place); } #get rid of index heading #shift(@indexes); $headtext="Upton Fen and Marshes"; $descriptive="A collection of Photographs of Upton Fen and Marshes, Norfolk"; $setindex="00"; $titletext="The Upton Gallery"; $count=1; $testpic=$count."s.jpg"; #print "content-type: text/html\n\n"; while (-e "../photos/$testpic") { ++$count; $testpic=$count."s.jpg"; #print qq($count " "."\n"); #print qq($testpic", ."); } --$count; #print qq($count " "); while (($count/3)-(int $count/3)>0.0001){ ++$count; } #print "content-type: text/html\n\n"; print q( ); print qq( $titletext); print q( ); print qq(

$titletext

$headtext

$descriptive

Click the thumbnails to see a bigger picture

Dan & Hayley

Jules & Omar

Slide Show
Gallery
Home Page
Contact

); #Get the number of photos, but ignore the first one ($k=1) $j=@indexes; #print "number of photos is ".$j; for ($k=1; $k<$j; $k++){ if ($k<=9){ $keystring="0".$k; }else{ $keystring=$k; } $testpic=$indexes[$k]."s.jpg"; $altext=$titles[$k]; $idstring=$titles[$k]; #print qq ($testpic.$keystring."\n"); if (-e "../photos/$testpic") { print qq( ); }#else{ #print qq( #); #} $testindex=$k; if (($testindex/3)-(int $testindex/3)<0.0001 and $testindex>0) { print qq( ); } } print qq(

$idstring

); #die;