| … | |
… | |
| 145 | $stat .= "<td><a href='".escape_uri($_->[0])."'>$_->[0]</a><td align='right'>$_->[1]<td> "; |
145 | $stat .= "<td><a href='".escape_uri($_->[0])."'>$_->[0]</a><td align='right'>$_->[1]<td> "; |
| 146 | } |
146 | } |
| 147 | $stat .= "</table>"; |
147 | $stat .= "</table>"; |
| 148 | } |
148 | } |
| 149 | |
149 | |
| 150 | my $waiters = $::transfers->waiters*1; |
150 | my $waiters = sprintf "%d/%d", $::transfers[0][0]->waiters+0, $::transfers[1][0]->waiters+0; |
| 151 | my $avgtime = @::wait_time == $wait_time_length |
151 | my $avgtime = sprintf "%d/%d second(s)", $::transfers[0][1], $::transfers[1][1]; |
| 152 | ? sprintf "%d second(s)", sum(@::wait_time) / $wait_time_length |
|
|
| 153 | : "unknown[".scalar(@::wait_time)."]"; |
|
|
| 154 | |
152 | |
| 155 | <<EOF; |
153 | <<EOF; |
| 156 | <html> |
154 | <html> |
| 157 | <head><title>$self->{uri}</title></head> |
155 | <head><title>$self->{uri}</title></head> |
| 158 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
156 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
