Simple Code Change Needed

I do not know perl however I need help making an ajustment to a cgi...

First, take a look at this log file:
http://library.advanced.org/10867/new/cgi-bin/stats/log.txt

This is the cgi file that writes it (I made a txt so you could see it):
http://library.advanced.org/10867/new/cgi-bin/stats/ax.txt

What I need to do is be able to leave out part of the url in the log file.

For example, Notice the first line of the log file contains this partial string:
|http://library.advanced.org/10867/new/home.shtml|

What I want to do is to be able to specify part of this string to leave out, preferrably as a variable I can change. In this case I want to omit the:
http://library.advanced.org/10867/

With the changes made, the partial string would be:
|new/home.shtml|


Thanks,
jeffrey
jkelly061597Asked:
Who is Participating?
 
b2piConnect With a Mentor Commented:
Replace this line

# CUSTOM1-End (delete through this line if you delete)

with the following (yes, the first line is the same as that above)
Replacement ends at ####

# CUSTOM1-End (delete through this line if you delete)
# CUSTOM2-Begin (see below)
#
# Now we trim off parts of the url that, for some reason, we don't care about
# Add each chunk to be trimmed on a separate line below (I've included two
# as examples)
@trim = qw(
                  http://library.advanced.org/10867/ 
                  http://library.advanced.com/1919/
                 );
# CUSTOM2-End
#### Replacement ends

Now, replace the line (I'm assuming you only want the HTTP_REFERER portion played with)

$ENV{'HTTP_REFERER'} =~ s/\|//g;

with the following (same caveats as before... first line is the same, replacement ends with ####


$ENV{'HTTP_REFERER'} =~ s/\|//g;
foreach (@trim) {
    $ENV{'HTTP_REFERER'} =~ s|$_||;
}
#### End of replacement


That's it.  I'm quite curious as to why you'd want to do this.  If you've any processes that parse this log file, this will confuse them no end.

$logline .= "export|" unless $ENV{'DOCUMENT_URI'};

with the following:


0
 
jkelly061597Author Commented:
Edited text of question
0
 
ozoCommented:
#you may want to say
 s|\Q$_\E||;
#instead of
 s|$_||;
0
All Courses

From novice to tech pro — start learning today.