#!/usr/bin/perl -w #------------------------------------------------------------ # logviewer.cgi # # i-scream download log viewer # Copyright Paul Mutton, 2001. #------------------------------------------------------------ print "Content-type: text/html\n\n"; print ''; open(FILE, ") { @row = split(/\|/, $line); print < EOT } print "
$row[0] $row[1] $row[2] $row[3] $row[4] $row[5]
";