Solved

Simple Code Change Needed

Posted on 1998-08-13
3
170 Views
Last Modified: 2012-05-04
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
0
Comment
Question by:jkelly061597
3 Comments
 

Author Comment

by:jkelly061597
Comment Utility
Edited text of question
0
 
LVL 5

Accepted Solution

by:
b2pi earned 200 total points
Comment Utility
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
 
LVL 84

Expert Comment

by:ozo
Comment Utility
#you may want to say
 s|\Q$_\E||;
#instead of
 s|$_||;
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

A year or so back I was asked to have a play with MongoDB; within half an hour I had downloaded (http://www.mongodb.org/downloads),  installed and started the daemon, and had a console window open. After an hour or two of playing at the command …
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
This video discusses moving either the default database or any database to a new volume.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now