Photo Gallery | Corinthian Catering and Dining

#!/usr/bin/perl # # # # ########################################################### # # # # prtfile1.pl # copyright 2000 - 2012 FaultLine Productions # # # # ########################################################### # # # # #define constants # $filebase = "../pagedata"; $graphix_ext = ".jpg"; $urlbase = "http://corinthianccatering.com"; $graphix_ext = ".jpg"; $http1 = "Content-type: text/html\n\n"; $mover = "prtfile1.pl?"; $home = "http://corinthiancatering.com/"; $target = "target=parent"; # ################################################ ($what2do, $recordnum, $oreint) = split(/\&/, $ENV{'QUERY_STRING'}); open INFILE, "<$filebase/$what2do"; @allrecs = ; close INFILE; $temprec = $allrecs[0]; @firstrec = split(/\|/, $temprec); $next = $recordnum + 01; if ($next < 10) { $moveon = "$mover$what2do\&0$next"; } else { $moveon = "$mover$what2do\&$next"; } if ($recordnum == "00") {&do_firstrec; } else {&do_realrec; } $amount=""; print <<__END1__; $http1 Photo Gallery | Corinthian Catering and Dining

$thisrec[2]

Back Thumbnails Next

__END1__ exit; sub do_firstrec { $title = $firstrec[1]; $data = $firstrec[2]; $file = $firstrec[3]; #$graphix = $firstrec[4]; } sub do_realrec { foreach $temprec (@allrecs) { chomp $temprec; @thisrec = split(/\|/, $temprec); if ($thisrec[0] eq $recordnum ) { &gotit; return; } } } sub gotit { $title = $firstrec[1]; $data = $thisrec[2]; $graphix = $thisrec[3]; $fulltext = $thisrec[4]; $thisrec[0] = $recordnum + 01; $marker = $thisrec[6]; if ($marker eq "e") { &home; return } } sub home { $exit = $firstrec[4]; $moveon = $exit; }