Gossamer Forum
Home : General : Perl Programming :

checking referer

Quote Reply
checking referer
I'm having problems with a few clients ... but I can't get the reason. Some clients get an invalid referer message even if they are clicking from the same domain. Others are working correctly. ideas?

Code:
$REFERERCHECK = $ENV{'HTTP_REFERER'};
$REFERERCHECK =~ s/(http:\/\/|https:\/\/)//g;
@GETVALIDREF = split (/\//, $REFERERCHECK);
&results("Invalid Referer") unless ($ENV{'SERVER_NAME'} eq $GETVALIDREF[0]);

Thanks
Subject Author Views Date
Thread checking referer robyone 5523 Sep 8, 2002, 11:30 PM
Post Re: [robyone] checking referer
Paul 5313 Sep 9, 2002, 2:43 AM
Thread Re: [robyone] checking referer
Andy 5377 Sep 9, 2002, 3:17 AM
Thread Re: [Andy] checking referer
robyone 5336 Sep 9, 2002, 3:21 AM
Thread Re: [robyone] checking referer
Paul 5336 Sep 9, 2002, 3:29 AM
Thread Re: [Paul] checking referer
Wil 5306 Sep 9, 2002, 3:33 AM
Post Re: [Wil] checking referer
Paul 5308 Sep 9, 2002, 3:38 AM