SEGA After Burner Owner's Manual page $input{page}

#!/usr/local/bin/perl @v = split(/&/,$ENV{"QUERY_STRING"}); while($#v >= 0){ $f = substr($v[0],0,index($v[0],"=")); $val = substr($v[0],index($v[0],"=")+1); $val =~ s/\+/ /g; while($val =~ /%([0-9a-fA-F][0-9a-fA-F])/){ $h=$1; $r=chr(hex($1)); $val =~ s/%$h/$r/g; } $input{$f} = $val; shift(@v); } if(($input{"page"} eq "") || ($input{"page"} < 0) || ($input{"page"} > 25)){$input{"page"} = 0;} print "Content-type: text/html\n\n"; print " SEGA After Burner Owner's Manual page $input{page}

SEGA After Burner Owner's Manual page $input{page}

Page Selector: "; $prev = $input{"page"} - 1; if($prev >= 0){ print " \n"; } if($next <= 25){ print "

\n"; print " prev\n"; print "

\n"; } $next = $input{"page"} + 1; for(0..25){ print "

\n"; if($_ ne $input{"page"}){ print " $_\n"; } else { print " $_\n"; } print "

\n"; print " next\n"; print "

\n"; } $file = sprintf("afterburner_owners_manual_page%02d.jpg",$input{"page"}); print "

$\"SEGA$ "; print "\n\n";