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
$_ =3D $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=3D\"Refresh\"
CONTENT=3D\"0;URL=3Dhttp://www.lausd.net/error.html\">";
Thanks,
Steve
-----------------------------------
Steve Hildreth
Office: 213-241-1691
Cell: 213-215-8195
steve.hildreth@[EMAIL PROTECTED]
Message-----
From: Gunnar Hjalmarsson [mailto:noreply@[EMAIL PROTECTED]
Monday, May 12, 2008 12:13 PM
To: beginners@[EMAIL PROTECTED]
Re: log missing images
Hildreth, Steve wrote:
> What I am looking for is a parameter that I can add to my PERL script=20
> that will specify the file call that resulted in the log entry.
How about showing us the Perl (not PERL) script you have so far?
--=20
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--=20
To unsubscribe, e-mail: beginners-unsubscribe@[EMAIL PROTECTED]
additional commands, e-mail: beginners-help@[EMAIL PROTECTED]
|
