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