Academy Vale

#!/usr/local/bin/perl5 my $avbase = "http://www.imagerie.com/vale/"; my $docbase = $avbase."index.html"; chdir ("/usr/home/apthmpsn/www/htdocs/vale"); my $pageback, $pagenow, $pagenext, $pagepresent; my $strip, $story, $dims; my @fieldname, %fieldnumber, @strips; my $in; $in = ; $in =~ s/\+/ /g; $in =~ s/%(..)/pack("c",hex($1))/ge; $in =~ s/\&/=/g; my $line; my %movie = split (/=/, $in); open (ARCHDATA, "avstats.txt"); $in = ; close (ARCHDATA); $in =~ s/\n//g; @fieldname = split (/\|/, $in); foreach $in (0..@fieldname) { $fieldnumber{$fieldname[$in]}=$in+1; } if ($ENV{QUERY_STRING}) { $strip = substr ("000000".$ENV{QUERY_STRING},-6); $story = substr ($strip, 0, 4); $strip = substr ($strip, -2); } else { $story = "0000"; $strip = "01"; } $dims = qx!./gifdim avale$story-$strip.gif!; # # Following print block initiates HTML transfer # and sends and start of . # print < Academy Vale

END $in = qx/cut -d'|' -f$fieldnumber{Story},$fieldnumber{Strip} avstats.txt | fgrep -v Story/; $in =~ s/\|(\d{1})\n/\|0$1\n/g; $in =~ s/\|//g; $pageback = 0; $pagenow = 100 * $story + $strip; $pagenext = 0; @strips = sort (split (/\n/, $in)); foreach $in (@strips) { # print "\n
--$in"; if ($in < $pagenow) { $pageback = $in; } elsif (!$pagenext && $in > $pagenow) { $pagenext = $in; } } $pagepresent = $strips[@strips-1]; #0F9F5F print "\n

"; print "\n"; if ($pageback) { print "\n"; print "\n"; } else { print "\n"; } print "\n"; if ($pagenext) { print "\n"; print "\n"; } else { print "\n"; } print "\n

$\"START\"$

$\"BACK\"$

$\"NEXT\"$

$\"CURRENT\"$

"; print "\n

"; print qx!cat /usr/home/apthmpsn/www/htdocs/sitemap.txt!; # foreach $in (sort keys %movie) { # print "\n
$in = $movie{$in}"; # } # print "

The following environment variables were in effect:\n"; # foreach $line (sort keys %ENV) { # print "
$line: \"$ENV{$line}\".\n"; # } # foreach $line (split /\n/, qx/ls -a -l/) { # print "\n
".$line; # } # print "

";
# print qx/ls -a -l/;
# print "

"; print "

\n"; # # Following print block sends first row of navaid form table. # # print < # # # # # # # # # # # #
#
# # END # # End of form # print "\n"; print "\n";