# | Line 12 | Line 12 | 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); | |
# | Line 25 | Line 27 | while($line = <FILE>) { | |
27 | <td>$row[5]</td> | |
28 | </tr> | |
29 | EOT | |
30 | + | $download_count++; |
31 | } | |
32 | ||
33 | < | print "</table></body></html>"; |
33 | > | print "</table>Download count: $download_count</body></html>"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |