On Mon, Mar 13, 2006 at 07:30:45PM -0600, David Gilden wrote:
> Here is my little script and it throwing a Internal Server Error
Try running it from the command line:
Software error:
Missing right curly or square bracket at - line 13, at end of line
syntax error at - line 13, at EOF
Execution
m|i) {
print "Your not authorized: Bad Referer: $referer \n";
} else {
print "all cool: $referer \n";
}
Sara.
- Original Message -
From: "David Gilden" <[EMAIL PROTECTED]>
To:
Sent: Tuesday, March 14, 2006 6:30 AM
Subject: referer throwing Internal
Greetings from Cow Tow!
Here is my little script and it throwing a Internal Server Error
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
use strict;
my $referer = referer;
if ($referer !~ m|^https?://www\.coraconnection\.com|i) {
pr