#!/usr/bin/perl $bad_url="http://itsyouropinion2.com?id=21500&sub=scott"; $idbase="/usr/local/www/htdocs3/puzz.com/web/puzz.txt"; $site_id=$ENV{'QUERY_STRING'}; $site_id=~s/\%(..)/chr(hex($1))/ge; $site_id=~s/^url=//i; $site_id=~s/\&x=.*\&y=.*//i; $site_id=~s/^of=//i; $site_id=~s/\&af=.*//i; $af=$ENV{'QUERY_STRING'}; $af=~s/\%(..)/chr(hex($1))/ge; $af=~s/^url=//i; $af=~s/\&x=.*\&y=.*//i; $af=~s/^of=.*\&//i; $af=~s/af=//i; open(db,"$idbase"); while () { chop; if(/^$site_id\|/) { $url = (split (/\|/,$_))[1]; } } close(db); if ($url) { print "Location: $url$af\nContent-Type: text/html\n\nGo here"; } else { print "Location: $bad_url\nContent-Type: text/html\n\nGo here"; }