#!/usr/bin/perl
##
## ISDN Logfile Analyzer
##
##
## Copyright(c) 2000 Leo Fellermayr <leosmail@mac.com>

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 "<table border=\"0\" cellspacing=\"5\">\n";
print "<tr align=\"center\"><td><b>Zeitpunkt</b></td><td><b>Quellrufnummer</b></td><td><b>Zielrufnummer</b></td></tr>\n";
my $i = 0;
foreach $line(@log) {
  $i++;
  $line =~ s/\|/<\/td><td>/g;
  if ($i % 2) { print "<tr bgcolor=\"#e5e5e5\"><td>\n"; }
  else { print "<tr bgcolor=\"#f6f6f6\"><td>\n"; }
  print $line;
  print "</td></tr>\n";
}
print "</table>\n";