#!/usr/bin/perl

open(f,"tail -500 /usr/idemo/demolog.txt|");

print "Content-type:text/html\n";
print "Pragma:No-Cache\n\n";
print "<b>Last 500 log entries</b>";
print "<pre>";
while(<f>) {
	@a=split(/\|/,$_);
	print $a[0]."\t".$a[1]."\t".$a[2]."\t";
	for($j=0; $j < $a[3]; $j++) {
		print "  ";
	}
	print $a[4]."\n";
}
print "</pre>";