| … | |
… | |
| 241 | } |
241 | } |
| 242 | $content .= "</table></li>"; |
242 | $content .= "</table></li>"; |
| 243 | } else { |
243 | } else { |
| 244 | my @waiters = grep defined $_, $queue->waiters; |
244 | my @waiters = grep defined $_, $queue->waiters; |
| 245 | $content .= "<li>$name<br />(".(scalar @waiters). |
245 | $content .= "<li>$name<br />(".(scalar @waiters). |
| 246 | " client(s), waiting since " |
246 | " client(s), waiting for " |
| 247 | .(format_time $::NOW - ($waiters[0]{conn}{time} || $::NOW)). |
247 | .(format_time $::NOW - ($waiters[0]{conn}{time} || $::NOW)). |
| 248 | ")</li>"; |
248 | ")</li>"; |
| 249 | } |
249 | } |
| 250 | } else { |
250 | } else { |
| 251 | $content .= "<li>$name<br />(empty)</li>"; |
251 | $content .= "<li>$name<br />(empty)</li>"; |
