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
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
use strict;
use warnings;
my $q = new CGI;
my $referer = $ENV{'HTTP_REFERER'} || 'foo.com';
print $q->header();
if ($referer !~ m|^https?://www\.coraconnection\.com|i) {
print "Your not authorized:
