| … | |
… | |
| 75 | } |
75 | } |
| 76 | } |
76 | } |
| 77 | |
77 | |
| 78 | $content .= <<EOF; |
78 | $content .= <<EOF; |
| 79 | </ul> |
79 | </ul> |
| 80 | <h2>Active Downloads</h2> |
80 | <h2>Active Connections</h2> |
| 81 | <ul> |
81 | <ul> |
| 82 | EOF |
82 | EOF |
| 83 | |
83 | |
| 84 | my @data; |
84 | my @data; |
| 85 | my $count = 0; |
85 | my $count = 0; |
| … | |
… | |
| 102 | $content .= "<table width='100%' border='1'><tr><th>CN</th><th>Remote ID</th><th>bytes written</th><th>bps</th><th>RM</th><th>URI</th></tr>" |
102 | $content .= "<table width='100%' border='1'><tr><th>CN</th><th>Remote ID</th><th>bytes written</th><th>bps</th><th>RM</th><th>URI</th></tr>" |
| 103 | . (join "", sort @data) |
103 | . (join "", sort @data) |
| 104 | . "</table>"; |
104 | . "</table>"; |
| 105 | } |
105 | } |
| 106 | |
106 | |
| 107 | $content .= "<p>$count active downloads, $fullrate bytes/s amortized.</p>"; |
107 | $content .= "<p>$count active connections, $fullrate bytes/s amortized.</p>"; |
| 108 | |
108 | |
| 109 | $content .= <<EOF; |
109 | $content .= <<EOF; |
| 110 | </ul> |
110 | </ul> |
| 111 | </body> |
111 | </body> |
| 112 | </html> |
112 | </html> |
