| … | |
… | |
| 218 | |
218 | |
| 219 | my @queuename = ("Small Queue", "Large Queue"); |
219 | my @queuename = ("Small Queue", "Large Queue"); |
| 220 | for (@::transfers) { |
220 | for (@::transfers) { |
| 221 | my $name = shift @queuename; |
221 | my $name = shift @queuename; |
| 222 | if ($_->waiters) { |
222 | if ($_->waiters) { |
| 223 | $content .= "<li>$name<table border='1'><tr><th>Remote ID</th><th>CN</th><th>Waiting</th><th>URI</th></tr>"; |
223 | $content .= "<li>$name<table border='1' width='100%'><tr><th>Remote ID</th><th>CN</th><th>Waiting</th><th>URI</th></tr>"; |
| 224 | for ($_->waiters) { |
224 | for ($_->waiters) { |
|
|
225 | if (defined $_) { |
| 225 | my $conn = $_->{conn}; |
226 | my $conn = $_->{conn}; |
| 226 | my $time = format_time ($::NOW - $conn->{time}); |
227 | my $time = format_time ($::NOW - $conn->{time}); |
| 227 | $content .= "<tr>". |
228 | $content .= "<tr>". |
| 228 | "<td>$conn->{remote_id}</td>". |
229 | "<td>$conn->{remote_id}</td>". |
| 229 | "<td>$conn->{country}</td>". |
230 | "<td>$conn->{country}</td>". |
| 230 | "<td>$time</td>". |
231 | "<td>$time</td>". |
| 231 | "<td>".escape_html($conn->{name})."</td>". |
232 | "<td>".escape_html($conn->{name})."</td>". |
| 232 | "</tr>"; |
233 | "</tr>"; |
|
|
234 | } else { |
|
|
235 | $content .= "<tr><td colspan='4'>premature ejaculation</td></tr>"; |
|
|
236 | } |
| 233 | } |
237 | } |
| 234 | $content .= "</table></li>"; |
238 | $content .= "</table></li>"; |
| 235 | } else { |
239 | } else { |
| 236 | $content .= "<li>$name<br />(empty)</li>"; |
240 | $content .= "<li>$name<br />(empty)</li>"; |
| 237 | } |
241 | } |
