CoderZone.org

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

#!/usr/bin/perl
 
# Just the domain name, no "www"
my $AuthorizedDomain = 'stupidstuff.org';
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">
<blockquote><blockquote>
<h4>Message:</h4>
<ul>
<li>$s
</ul>
</blockquote></blockquote>
</body></html>
HTML
Exit();
} # sub ErrorHTML
 
There haven't been any comments added for this snippet yet. You may add one if you like.  Add a comment 
© coderzone.org | users online: 18