#!/usr/bin/perl ## ## ISDN Logfile Analyzer ## ## ## Copyright(c) 2000 Leo Fellermayr print "pragma: no-cache\n"; print "Content-type: text/html\n\n"; my $mylog = `/usr/bin/tac /var/log/isdn.log | /usr/bin/cut -f1,2,3 -d\"\|\"`; chop $mylog; @log = split("\n", $mylog); print "\n"; print "\n"; my $i = 0; foreach $line(@log) { $i++; $line =~ s/\|/<\/td>\n"; } print "
ZeitpunktQuellrufnummerZielrufnummer
/g; if ($i % 2) { print "
\n"; } else { print "
\n"; } print $line; print "
\n";