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) {
: Bad Referer: $referer \n;
} else {
print all cool: $referer \n;
}
Sara.
- Original Message -
From: David Gilden [EMAIL PROTECTED]
To: beginners-cgi@perl.org
Sent: Tuesday, March 14, 2006 6:30 AM
Subject: referer throwing Internal Server Error
Greetings from Cow Tow!
Here is my
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:
h1Software error:/h1
preMissing right curly or square bracket at - line 13, at end of line
syntax error at - line 13, at EOF