#!/usr/bin/perl
$number = int(rand(10000));
$ad = "";
$docurl=$ENV{'QUERY_STRING'};
# remove any .'s from $docurl
$docurl =~ s/"test"/"car"/gie;
# If $docurl contains http then redirect to main page
if($docurl =~ "http") { print "location: http://www.funguide.com\n\n"; exit; }
print "Content-type: text/html\n\n";
print "
";
print "\n\n";
print "\n\n";
print "FunGuide - the Internet Directory of Fun Places";
print " \n";
print "\n";
print "$ad
\n\n";
print "We have optimized FunGuide for Frames Capable Browsers.
\n";
print "Because you do not have the latest Netscape or Internet Explorer, or have your frames option disabled, we can not automatically load documents.
\n";
print " Click to Load Document
\n";
print "Contact us if you are having problems
\n";
print "\n";
print "\n";
print "
LinkExchange Member
\n";
print "\n";
print "\n";
print "";