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:
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
If you are using bash as you shell, something like:
export PERL5LIB=${PERL5LIB}:/usr/local/project/packages
That will set the global search path for perl to find modules to include
'/usr/local/project/packages'.
However, the better way to handle this is to set up a directory that you use
for al
