ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/logviewer.cgi
Revision: 1.3
Committed: Mon Mar 22 00:02:38 2004 UTC (19 years, 11 months ago) by tdb
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +0 -0 lines
State: FILE REMOVED
Log Message:
Remove old CGI's for logging downloads.

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 $download_count = 0;
16
17 open(FILE, "<download_log");
18 while($line = <FILE>) {
19 @row = split(/\|/, $line);
20 print <<EOT;
21 <tr>
22 <td>$row[0]</td>
23 <td>$row[1]</td>
24 <td>$row[2]</td>
25 <td>$row[3]</td>
26 <td>$row[4]</td>
27 <td>$row[5]</td>
28 </tr>
29 EOT
30 $download_count++;
31 }
32
33 print "</table>Download count: $download_count</body></html>";