#!/usr/bin/perl $number = int(rand(10000)); open (INPUT,"../burstcode.htm"); while(eof(INPUT) == 0) { @ad = ; } close(INPUT); #$ad = ""; $news = "
News: Coming soon - enhancements to this FunGuide section.
Including, information about park's roller coasters, waterslides, carousels, ferris wheels, directions to parks, park shows and special events, contact parks by email, park discounts, add your comments on parks, and more !
Email:
\n"; $docnumber=$ENV{'QUERY_STRING'}; $next = 0; $pos = 0; open(INPUT,"all/$docnumber.html") || return_error(); while (eof(INPUT)==0) { @lines = ; } close (INPUT); $total_lines = @lines; $count =0; print "Content-type: text/html\n\n"; do{ print $lines[$count]; # insert ad after body tag if($count==7) { print "\n \n
\n"; print "
@ad
\n"; # print "
$ad
\n"; print "
\n"; print $news; } } while (++$count < $total_lines); exit; sub return_error() { print "Content-type: text/html\n\n"; print "Error"; print "There is no data for your request.
If you feel that this is in error, please Contact us."; print ""; exit; }