[ 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