perl
sub check_url
{
my @referers = ( "www.2checkout.com", "2checkout.com", "www2.2checkout.com" );
my $check_referer = 0;
if ( $ENV{HTTP_REFERER} )
{
foreach my $referer( @referers )
{
if ( $ENV{HTTP_REFERRER} =~ m|https?:://([^/]*)$referer|i )
{
$check_referer = 1;
}
}
}
else
{
$check_referer = 1;
}
if ( $check_referer != 1 )
{
...
"Insert Code to execute when the check fails";
...
}
?>
E-mail Contact
How To Reach
PRIVACY POLICY
RETRURN POLICY
Phone: 977-9808089071