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, however it closes as soon as it reads whatever is in the file at that particular time. How do I mimic tail -f functionality? Thanks, Max -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: tail -f with cgi
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. How do I mimic
tail -f functionality?
try the qx// operator:
my $tail = qx/tail -f filename.ext/;
print $tail;
#!/usr/bin/perl
$filename='my.log';
open( IN, $filename ) or die Couldn't open $filename: $!;
my $last;
while ( IN ) {
$last = $_;
}
print Last line is:\n$last\n;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: tail -f with cgi
- 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, however it closes as soon as
it reads whatever is in the file at that particular time. How do I mimic
tail -f functionality?
This is a quick snippet of code I threw together to view file info on a win32 platform
from the command line, that works on *nix as well. It should be easy enough to
convert to use from within a program.
use strict;
print \n\n;
my $size;
open(F,$ARGV[0]) or die Can't open $ARGV[0]: $!\n;
while(F) { $size++; }
close(F);
my ($s1,$s2)=((stat($ARGV[0]))[7],'');
for(;;){
do {
select(undef,undef,undef,0.25);
$s2=(stat($ARGV[0]))[7];
} until($s1!=$s2);
$s1=$s2;
open(F,$ARGV[0]) or die Can't open $ARGV[0]: $!\n;
my $row;
while(F) {
$row++;
print $row: $_ if($size $row);
}
$size=$row;
close(F);
}
Shawn
Thanks,
Max
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: tail -f with cgi
-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, however it closes as soon as it reads whatever is in the file at that particular time. How do I mimic tail -f functionality? CPAN has a File::Tail module. But a CGI script isn't designed to be long-running like this. The web server will eventually time out the request and kill your script. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: tail -f with cgi
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, 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, however it closes as soon as it reads whatever is in the file at that particular time. How do I mimic tail -f functionality? CPAN has a File::Tail module. But a CGI script isn't designed to be long-running like this. The web server will eventually time out the request and kill your script. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: tail -f with cgi
- 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 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, however it closes as soon as it reads whatever is in the file at that particular time. How do I mimic tail -f functionality? CPAN has a File::Tail module. But a CGI script isn't designed to be long-running like this. The web server will eventually time out the request and kill your script. I don't think he was running from the web server, but will the shell time out in the same fashion? Shawn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: tail -f with cgi
-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]; [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 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, however it closes as soon as it reads whatever is in the file at that particular time. How do I mimic tail -f functionality? CPAN has a File::Tail module. But a CGI script isn't designed to be long-running like this. The web server will eventually time out the request and kill your script. I don't think he was running from the web server, I'm just going off the phrase I am trying to write a cgi program to tail -f a log file. but will the shell time out in the same fashion? No. It continues to tail the file until interrupted (^C or whatever). -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: tail -f with cgi
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 I need. I can't seem to get this to work correctly
through cgi. Any ideas?
Thanks,
Max
-Original Message-
From: Max Clark [mailto:[EMAIL PROTECTED]]
Sent: Thursday, July 11, 2002 4: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, however it closes as soon as
it reads whatever is in the file at that particular time. How do I mimic
tail -f functionality?
Thanks,
Max
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
