#!/usr/bin/perl use strict; #use lib '/usr/lib/perl5/5.8.3'; use CGI ':standard'; $CGI::POST_MAX=4; # A version of dragpics.cgi to show the upton fen photos. my $picnum; my $picbig; my $picclean; my $next; my $nextpic; my $back; my $backpic; my $prefix; my $titlebar="2"; my $heading; my $indexlink; my $altext; 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 $len1; #refers to length of @uptonarray my @titles; my @dates; my @places; my @indexes; #list of required captions my $title; my $place; my $index; my $date; my $nextlink; my $backlink; my $nextindex; my $direct; #next=1, back=0 $uptonfield = "1"; #ensure variable is defined $datafile = "../august-photos.csv"; open $fh, "$datafile" or die "Can't open august-photos.csv: $!"; #open data file and extract each line of data, placing it in an array $i = 0; while (defined($uptonfield)) { defined($uptonfield = readline($fh)) or last; @uptonarray = split(/,/,$uptonfield); $indexes[$i]=$uptonarray[0]; $titles[$i]=$uptonarray[1]; $i++; #print $uptonarray[1]." ".$uptonarray[3]." ".$uptonarray[5]."\n"; } #there are newlines at the end of each record. get rid of them. #foreach $place (@places) { #chop ($place); #} $picnum=param('key'); $picnum =~ /(^\d{2}$)/; if ($1 eq "") { print "content-type: text/html\n\n"; print '

Action not permitted

'; print "

$back

$picnum

"; die; } else{ $picclean=$1; #if (substr($picclean,0,1) eq "0"){ #substr($picclean,0,1,""); #} #these next lines strip the leading zeros from numbers less than 10, so these have to be added $next=$picclean+1; $back=$picclean-1; $title=$titles[$picclean]; } $title=~ s/\"//g; $direct=param('key1'); $direct=~ /(^\d{1}$)/; if ($1 eq "") { print "content-type: text/html\n\n"; print '

Action not permitted

'; print "

$direct

$picnum

"; die; } print "content-type: text/html\n\n"; #print qq($picnum, $direct); #print qq($picclean ); #if ($back <1){ #$back++; #} if ($next<=9){ $next="0".$next; } #print qq(back - $back,); if ($back<=9){ $back="0".$back; } $picbig=$picclean.".jpg"; $nextpic=$next.".jpg"; #print qq(next - $nextpic); #print qq(next - $next); # make the jump between the seasons, missing out the season heading images. First, next: if (-e "../august-photos/$nextpic"){ $nextlink=""; } #elsif ($next<24) { # $next=24; # $nextlink=""; # } #elsif ($next<54) { # $next=54; # $nextlink=""; # } #elsif ($next<75) { # $next=75; # $nextlink=""; # } else { $nextlink=""; } #Now previous: #print qq($nextlink /n); #print qq(back - $back, next - $next); unless ($direct) { #miss out the season titles # if (($back eq "24")||($back eq "54")||($back eq "75")) { # $back--; # } $backpic=$back.".jpg"; #work back to the last photo of the previous season # until (-e "../august-photos/$backpic"){ # $back--; # $backpic=$back.".jpg"; # } } #print qq(back - $back, next - $next); $backlink=""; if ($back<1){ $backlink=""; } $heading="August 2013"; $indexlink="august-gal.cgi"; $altext="Photos from August, 2013"; #reset $picclean to use as index for photo titles --$picclean; print q( ); print qq(Bob & Sue's Pages); print q( ); print qq(

$heading

$title

); print qq(

$backlink Previous Index $nextlink Next

); #print "

$back $1 $next

"; print qq(

Dan & Hayley

Jules & Omar

Home Page
Contact

); # change width for tall photos if (($picnum eq "06")||($picnum eq "07")||($picnum eq "15")||($picnum eq "16")) { print qq ( ); } else { #landscape format print qq (

); } print qq(

);