Quick Search:
CODE
Oracle PL/SQL Code Library
JOBS
Find Or Post Oracle Jobs
FORUM
Oracle Discussion & Chat
 Perl Code: Authorized Domain Jump to:  
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)

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


Free
Oracle Magazine
Subscriptions
and Oracle White Papers


SQL University.net courses meet the most demanding needs of the business world for advanced education in a cost-effective manner. SQL University.net courses are available immediately for IT professionals and can be taken without disruption of your workplace schedule or processes.

Compared to traditional travel-based training, SQL University.net saves time and valuable corporate resources, allowing companies to do more with less. That's our mission, and that's what we deliver.

Click here to find out more
 
Home      :      Code Library      :      Sponsors      :      Privacy      :      Terms of Use      :      Contact Us 60 users online    © 2009 psoug.org

PSOUG LOGIN
Username: 
Password: 
Forgot your password?