ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/logviewer.cgi
Revision: 1.1
Committed: Fri May 25 17:58:28 2001 UTC (23 years, 5 months ago) by pjm2
Branch: MAIN
Log Message:
A very simple (oh i love perl) webpage for viewing download statistics
from the i-scream download_log

File Contents

# Content
1 #!/usr/bin/perl -w
2
3
4 #------------------------------------------------------------
5 # logviewer.cgi
6 #
7 # i-scream download log viewer
8 # Copyright Paul Mutton, 2001.
9 #------------------------------------------------------------
10
11 print "Content-type: text/html\n\n";
12
13 print '<html><body><table border="1">';
14
15 open(FILE, "<download_log");
16 while($line = <FILE>) {
17 @row = split(/\|/, $line);
18 print <<EOT;
19 <tr>
20 <td>$row[0]</td>
21 <td>$row[1]</td>
22 <td>$row[2]</td>
23 <td>$row[3]</td>
24 <td>$row[4]</td>
25 <td>$row[5]</td>
26 </tr>
27 EOT
28 }
29
30 print "</table></body></html>";