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>"; |