… | |
… | |
146 | } |
146 | } |
147 | $stat .= "</table>"; |
147 | $stat .= "</table>"; |
148 | } |
148 | } |
149 | |
149 | |
150 | my $waiters = $::transfers->waiters*1; |
150 | my $waiters = $::transfers->waiters*1; |
151 | my $avgtime = int (sum(@::wait_time) / @::wait_time); |
151 | my $avgtime = @::wait_time == $wait_time_length |
|
|
152 | ? sprintf "%d second(s)", sum(@::wait_time) / $wait_time_length |
|
|
153 | : "unknown[".scalar(@::wait_time)."]"; |
152 | |
154 | |
153 | <<EOF; |
155 | <<EOF; |
154 | <html> |
156 | <html> |
155 | <head><title>$self->{uri}</title></head> |
157 | <head><title>$self->{uri}</title></head> |
156 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
158 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
157 | <h1>$data->{path}</h1> |
159 | <h1>$data->{path}</h1> |
158 | $data->{top} |
160 | $data->{top} |
159 | <hr /> |
|
|
160 | clients waiting for data transfer: $waiters<br /> |
|
|
161 | average waiting time until transfer starts: $avgtime seconds <small>(adjust your timeout values)</small><br /> |
|
|
162 | <small><div align="right"> |
161 | <small><div align="right"> |
163 | <tt>$self->{remote_id}/$self->{country} - $::conns connection(s) - uptime $uptime - myhttpd/$VERSION |
162 | <tt>$self->{remote_id}/$self->{country} - $::conns connection(s) - uptime $uptime - myhttpd/$VERSION |
164 | </tt></div></small> |
163 | </tt></div></small> |
|
|
164 | <hr /> |
|
|
165 | clients waiting for data transfer: $waiters<br /> |
|
|
166 | average waiting time until transfer starts: $avgtime <small>(adjust your timeout values)</small><br /> |
165 | <hr /> |
167 | <hr /> |
166 | $stat |
168 | $stat |
167 | $data->{bot} |
169 | $data->{bot} |
168 | </body> |
170 | </body> |
169 | </html> |
171 | </html> |