#!/usr/bin/perl
$number = int(rand(10000));
$ad = "![](\"http://www.burstnet.com/cgi-bin/ads/ad6389a.cgi/$number\")
";
$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 "<![CDATA[\n";
print "<center>$ad</center><br><br>\n\n";
print "<font color=\"#FF0000\"><b>We have optimized FunGuide for Frames Capable Browsers.</b></font><br>\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.<br><br>\n";
print "<a href=\"$docurl\"> Click to Load Document </a><br><br>\n";
print "<a href=\"mailto:feedback\@funguide.com?subject=PROBLEM:\">Contact us if you are having problems</a><br><br>\n";
print "<center><a href=\"http://ad.linkexchange.com/$number/X483973/gotoad.map\" target=\"new\">\n";
print "<img width=440 height=40 border=1 ismap alt=\"LinkExchange\" src=\"http://ad.linkexchange.com/$number/X483973/logoshowad?free\"></a>\n";
print "<br> <font size=1><a href=\"http://www.linkexchange.com/\" target=\"new\">LinkExchange Member</a></font><br>\n";
print "</center>\n";
print "]]>\n";
print "";