| # | 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 |