[Perl-beginners] log missing images

How about showing us the Perl (not PERL) script you have so far?

Of course, here it is...very simple.

#!/usr/local/bin/perl

# This script is used to log the referring URL in the event that a link
on an LAUSD is invalid

#Append referring URL to log file
open(LIST,">>/www-logs/error_file.txt");

#Capture referring URL
$_ = $ENV{'HTTP_REFERER'};

#Determine if originating page belongs to LAUSD
if(!/notebook.lausd.net|.gif|.css|aw:|google.com|myspace.com|.gif|.jpg/)
{
print LIST "$_\n";
}
close (LIST);

#Redirect user to standard error page
print "Content-type: text/html\n\n";
print "<meta HTTP-EQUIV=\"Refresh\"
CONTENT=\"0;URL=http://www.lausd.net/error.html\">";

Thanks,


Steve
-----------------------------------
Steve Hildreth
Office: 213-241-1691
Cell: 213-215-8195
steve.hildreth@lausd.net


-----Original Message-----
From: Gunnar Hjalmarsson
Sent: Monday, May 12, 2008 12:13 PM
To: beginners@perl.org
Subject: Re: log missing images

Hildreth, Steve wrote:
How about showing us the Perl (not PERL) script you have so far?

[ Please don't top-post! ]

Hildreth, Steve wrote:
Okay...

To see the available env variables, do:

print "Content-type: text/plain\n\n";
print "$_ = $ENV{$_}\n" for keys %ENV;

Maybe you are looking for $ENV{REDIRECT_REQUEST_URI} (for the case it's
available).
This is a better way to redirect from a CGI script:

print "Location: http://www.lausd.net/error.html\n\n";