http://qs321.pair.com?node_id=75956


in reply to viewing log via HTML

I'm not sure about exactly how you want to format your logfile entries in HTML...

That being said, I think you should be looking at File::Tail as a useful way of tailing an access log..

or, the following: its ugly,(and I don't recommend it) but it will work

while (1) { while (<INPUT>) { .... } sleep $delay_period; seek(INPUT, 0, 1); }
What this code does is read the file, sleep for $delay_period, and then go to the end of the file from the current point..

To format into HTML, well, assuming you just want to make it appear readable, so what you can do is add a <br> to the end of each line.. so, use CGI.pm to complete the picture, using the following snippet..

#!/usr/bin/perl -w use CGI; use strict; my $query = new CGI; print $query->header(), $query->start_html(-title=>"My log file"), $query->h1('Tail'); # put your tailing method here while (1) { while (my $input = <INPUT>) {join('',$input,'<br/>'); print $input +;} sleep $delay_period; seek(INPUT, 0, 1); } print $query->end_html();

HTH