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 |