How do I catch the event in the Apache Server real time?

ycjj has asked for the wisdom of the Perl Monks concerning the following question:

WEB Server:Apache. if someone access the web, Apache write the information into ACCESS LOG file, my question is: How do I catch this event real time? thanks!!

Originally posted as a Categorized Question.

Comment on How do I catch the event in the Apache Server real time?

Replies are listed 'Best First'.
Re: How do I catch the event in the Apache Server real time? by Joost (Canon) on May 14, 2002 at 13:05 UTC
Well, if you are using mod_perl, you could install a handler for just about any stage in a request. See the mod_perl guide On the other hand, if you just want to be notified when the access log is updated, you might try something like: `open LOG,"</var/log/httpd/access_log" or die "Cannot open log file: $! +"; seek LOG,0,2; # set to eof while (1) { while (<LOG>) { print; # or do something else... } sleep 1; # this is 1 seconds, so not exactly realtime seek(LOG, 0, 1); # reset eof flag }` [download] See also `perldoc -f seek`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: How do I catch the event in the Apache Server real time?
by Joost (Canon) on May 14, 2002 at 13:05 UTC

the mod_perl guide

On the other hand, if you just want to be notified when the access log is updated, you might try something like:

open LOG,"</var/log/httpd/access_log" or die "Cannot open log file: $!
+";

seek LOG,0,2;    # set to eof

while (1) {
    while (<LOG>) {
        print;  # or do something else...
    }
    sleep 1;    # this is 1 seconds, so not exactly realtime
    seek(LOG, 0, 1);  # reset eof flag
}
[download]

perldoc -f seek

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom