#!/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 "\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 "";