… | |
… | |
254 | } |
254 | } |
255 | $content .= "</ul></p>"; |
255 | $content .= "</ul></p>"; |
256 | |
256 | |
257 | @waiters = grep { $verbose || $_->{coro}{conn}{remote_id} eq $self->{remote_id} } @waiters; |
257 | @waiters = grep { $verbose || $_->{coro}{conn}{remote_id} eq $self->{remote_id} } @waiters; |
258 | if (@waiters) { |
258 | if (@waiters) { |
259 | $content .= "<table border='1' width='100%'><tr><th>Remote ID</th><th>CN</th><th>Size</th><th>Waiting</th><th>ETA</th><th>URI</th></tr>"; |
259 | $content .= "<table border='1' width='100%'><tr><th>#</th><th>Remote ID</th>". |
|
|
260 | "<th>CN</th><th>Size</th><th>Waiting</th><th>ETA</th><th>URI</th></tr>"; |
|
|
261 | my $idx = 0; |
260 | for (@waiters) { |
262 | for (@waiters) { |
261 | my $conn = $_->{coro}{conn}; |
263 | my $conn = $_->{coro}{conn}; |
262 | my $time = format_time ($::NOW - $_->{time}); |
264 | my $time = format_time ($::NOW - $_->{time}); |
263 | my $eta = format_time ($queue->{avgspb} * $_->{size} - ($::NOW - $_->{time})); |
265 | my $eta = format_time ($queue->{avgspb} * $_->{size} - ($::NOW - $_->{time})); |
|
|
266 | |
|
|
267 | $idx++; |
|
|
268 | |
264 | $content .= "<tr>". |
269 | $content .= "<tr>". |
|
|
270 | "<td align='right'>$idx</td>". |
265 | "<td>$conn->{remote_id}</td>". |
271 | "<td>$conn->{remote_id}</td>". |
266 | "<td>$conn->{country}</td>". |
272 | "<td>$conn->{country}</td>". |
267 | "<td>$_->{size}</td>". |
273 | "<td align='right'>$_->{size}</td>". |
268 | "<td>$time</td>". |
274 | "<td align='right'>$time</td>". |
269 | "<td>$eta</td>". |
275 | "<td align='right'>$eta</td>". |
270 | "<td>".escape_html($conn->{name})."</td>". |
276 | "<td>".escape_html($conn->{name})."</td>". |
271 | "</tr>"; |
277 | "</tr>"; |
272 | } |
278 | } |
273 | $content .= "</table></li>"; |
279 | $content .= "</table></li>"; |
274 | } |
280 | } |