On Fri, 12 Jul 2002 08:24:55 -0400, [EMAIL PROTECTED] (Fliptop)
wrote:
Max Clark wrote:
I am trying to write a cgi program to tail -f a log file. I have a perl
script that will open and print the log file, however it closes as soon as
it reads whatever is in the file at that particular time.
- Original Message -
From: Max Clark [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, July 11, 2002 6:43 PM
Subject: tail -f with cgi
Hi,
Hello Max,
I am trying to write a cgi program to tail -f a log file. I have a perl
script that will open and print the log file,
-Original Message-
From: Max Clark [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 11, 2002 7:44 PM
To: '[EMAIL PROTECTED]'
Subject: tail -f with cgi
Hi,
I am trying to write a cgi program to tail -f a log file. I
have a perl
script that will open and print the log file,
Alright, what's a tail -f?
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 12, 2002 11:09 AM
To: 'Max Clark'; '[EMAIL PROTECTED]'
Subject: RE: tail -f with cgi
-Original Message-
From: Max Clark [mailto:[EMAIL PROTECTED]]
Sent: Thursday
- Original Message -
From: Bob Showalter [EMAIL PROTECTED]
To: 'Max Clark' [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Friday, July 12, 2002 11:08 AM
Subject: RE: tail -f with cgi
-Original Message-
From: Max Clark [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 11, 2002
-Original Message-
From: Shawn [mailto:[EMAIL PROTECTED]]
Sent: Friday, July 12, 2002 12:29 PM
To: Bob Showalter; 'Max Clark'; [EMAIL PROTECTED]
Subject: Re: tail -f with cgi
- Original Message -
From: Bob Showalter [EMAIL PROTECTED]
To: 'Max Clark' [EMAIL PROTECTED
I found the file::tail module on cpan...
#!/usr/bin/perl -w
use File::Tail;
my $log = /usr/local/apache2/logs/access_log;
$file=File::Tail-new
(
name=$log,
interval=2,
maxinterval=10
);
while (defined($line=$file-read)) {
print $line;
}
It does exactly what
