web/cgi-bin/logviewer.cgi

#!/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>";
Revision:	1.2
Committed:	Fri May 25 18:02:15 2001 UTC (23 years, 6 months ago) by pjm2
Branch:	MAIN
CVS Tags:	PRE_WWW_REDESIGN
Branch point for:	I-SCREAM_ORG
Changes since 1.1:	+4 -1 lines
Log Message:	Now displays the total number of downloads at the bottom of the page... always nice to know. Perhaps one day I shall have to change this so it doesn't display the whole lot!
#	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>";