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