#!/usr/bin/perl use strict; #use lib '/usr/lib/perl5/5.8.3'; use CGI ':standard'; $CGI::POST_MAX=4; 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 $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 $len1; #refers to length of @dragonarray my @titles; my @dates; my @places; my @indexes; #list of required captions my $title; my $place; my $index; my $date; my $nextlink; my $backlink; $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]; $i++; #print $dragonarray[0]." ".$dragonarray[1]." ".$dragonarray[3]." ".$dragonarray[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,""); } $next=$picclean+1; $back=$picclean-1; $title=$titles[$picclean]; $place=$places[$picclean]; $date=$dates[$picclean]; } print "content-type: text/html\n\n"; #print $title; #if ($back <1){ #$back++; #} #print qq(back - $back,); $picbig=$picclean.".jpg"; $nextpic=$next.".jpg"; $backpic=$back.".jpg"; #print qq(next - $nextpic); #print qq(next - $next); if ($next<=9){ $next="0".$next; } $nextlink=""; unless (-e "../dragpics/$nextpic"){ #$next--; $nextlink=""; #$next=$prefix.$next; } if ($back<=9){ $back="0".$back; } $backlink=""; unless (-e "../dragpics/$backpic"){ $backlink=""; #$back++; #print qq(back4-$back); #$back=$prefix.$back; #print qq(back5-$back); } $heading="Dragonflies"; $indexlink="trydrags.cgi"; $altext="Pictures of Dragonflies"; print q( ); print qq(Bob & Sue's Pages); print q( ); print qq(