| … | |
… | |
| 232 | my ($name, $queue) = @$_; |
232 | my ($name, $queue) = @$_; |
| 233 | my @waiters = $queue->waiters; |
233 | my @waiters = $queue->waiters; |
| 234 | $waiters[$_]{idx} = $_ + 1 for 0..$#waiters; |
234 | $waiters[$_]{idx} = $_ + 1 for 0..$#waiters; |
| 235 | |
235 | |
| 236 | if (@waiters) { |
236 | if (@waiters) { |
| 237 | $content .= "<li>$name<br />".(scalar @waiters)." client(s); $queue->{started} downloads started;"; |
237 | $content .= "<li>$name<br />".(scalar @waiters)." client(s); $queue->{started} downloads started; $queue->{slots} slots free;"; |
| 238 | |
238 | |
| 239 | $content .= "<p>Waiting time until download starts, estimated:<ul>"; |
239 | $content .= "<p>Waiting time until download starts, estimated:<ul>"; |
| 240 | for ( |
240 | for ( |
| 241 | ["by most recently started transfer", $queue->{lastspb}], |
241 | ["by most recently started transfer", $queue->{lastspb}], |
| 242 | ["by queue average", $queue->{avgspb}], |
242 | ["by queue average", $queue->{avgspb}], |
