Category: >> Perl Code >> Authorized Domain Bookmark and Share

<< lastnext >>

Snippet Name: Authorized Domain

Description: Validates a domain name to prevent remote access. Prevents your forms from being submitted from anywhere but your website.

Comment: (none)

Author: CoderZone
Language: PERL
Highlight Mode: PERL
Last Modified: March 06th, 2009

# Just the domain name, no "www"
my $AuthorizedDomain = '';
my $FormDomain = lc $ENV{HTTP_REFERER};
$FormDomain =~ s!^https?://(?:www\.)?(.*?)(?:/.*)$!$1!;
unless($FormDomain eq lc $AuthorizedDomain)
{ ErrorHTML('Unauthorized access.'); }
sub ErrorHTML
my $s = join("\n<li>",@_);
print "Content-type: text/html\n\n";
print <<HTML;
<html><body bgcolor="white">
} # sub ErrorHTML
There haven't been any comments added for this snippet yet. You may add one if you like.  Add a comment 
© | users online: 6