Quisiera ir viendo los log según van creciendo a través de una página.
Probé a hacer un cgi como el siguiente código.
Tengo que ponerle a la propiedad tail un valor >= 50 porque si no no muestra nada.
En la consola funciona al 100% pero cuando lo visualizo por web me muestra las mismas líneas aunque lo actualice varias veces.
Using perl Syntax Highlighting
#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
print "visualizador de logs<br>";
use File::Tail;
use strict;
my $name = '/var/log/mail.log';
my $file = File::Tail->new(name=>$name,maxinterval=>1,interval=>1,tail=>50);
my $line;
my $i=0;
while ( defined( $line = $file->read ))
{
print "$i: $line\n<br>";
$i++;
}
print "Content-Type: text/html\n\n";
print "visualizador de logs<br>";
use File::Tail;
use strict;
my $name = '/var/log/mail.log';
my $file = File::Tail->new(name=>$name,maxinterval=>1,interval=>1,tail=>50);
my $line;
my $i=0;
while ( defined( $line = $file->read ))
{
print "$i: $line\n<br>";
$i++;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Gracias de antemano
