#!/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 $dragonfield; #single line from csv file my @arrayline; #split into an array my @dragonarray; #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; $dragonfield = "1"; #ensure variable is defined $datafile = "../dragonflies.csv"; open $fh, "$datafile" or die "Can't open dragonflies.csv: $!"; #open data file and extract each line of data, placing it in an array $i = 0; while (defined($dragonfield)) { defined($dragonfield = readline($fh)) or last; @dragonarray = split(/,/,$dragonfield); $indexes[$i]=$dragonarray[0]; $titles[$i]=$dragonarray[1]; $dates[$i]=$dragonarray[3]; $places[$i]=$dragonarray[5]; $gridref[$i]=$dragonarray[6]; $i++; #print $dragonarray[1]." ".$dragonarray[3]." ".$dragonarray[5]."\n"; } #there are newlines at the end of each record. get rid of them. foreach $place (@gridref) { chop ($place); } #get rid of index heading #shift(@indexes); $headtext="Photos of Dragonflies"; $descriptive="A collection of dragonflies from Norfolk"; $setindex="00"; $titletext="The Dragonfly gallery"; $count=1; $testpic=$count."s.jpg"; print "content-type: text/html\n\n"; while (-e "../dragpics/$testpic") { ++$count; $testpic=$count."s.jpg"; #print qq($count " "); #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

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++){ $testpic=$indexes[$k]."s.jpg"; $altext=$titles[$k]; $idstring=$titles[$k]; if ($k<=9){ $keystring="0".$k; }else{ $keystring=$k; } #print $testpic."\n"; if (-e "../dragpics/$testpic") { print qq( ); }else{ print qq( ); } $testindex=$k; if (($testindex/3)-(int $testindex/3)<0.0001 and $testindex>0) { print qq( ); } } print qq(

$idstring

$places[$k]

$dates[$k]

); #die;