Web Site Directories

#!/usr/bin/perl ############################################################################## # Redirect to the specified URL require "cgi-lib.pl"; $| = 1; if (&ReadParse(*input)) { $RedirUrl = $input{'url'}; if (substr($RedirUrl, 0, 5) ne "http:") { print "Location: "; if (substr($RedirUrl, 0, 7) ne "mailto:") { print "http://nanosft.com/"; } print $RedirUrl, "\n\n"; exit; } $City = $input{'city'}; $State = $input{'state'}; $Cat = $input{'cat'}; print &PrintHeader; print < Web Site Directories <BODY BGCOLOR="#FFFFFF"> <p>Our directories work well only with frame-capable browsers. Please upgrade your browser to take advantage of all features of <a href="index.html" target="_top">nanosft.com</a>. </p> <P>Click on the link to proceed to <A HREF="$RedirUrl" TARGET="_top"> Requested Web Site</A> </BODY> ENDOFTEXT exit; }