[ Please don't top-post! ]
Hildreth, Steve wrote:
Gunnar Hjalmarsson wrote:
Hildreth, Steve wrote:
What I am looking for is a parameter that I can add to my PERL script
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?
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);
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).
#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\";>";
This is a better way to redirect from a CGI script:
print "Location: http://www.lausd.net/error.html\n\n";;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
