ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/Coro/myhttpd/diridx.pl
(Generate patch)

Comparing cvsroot/Coro/myhttpd/diridx.pl (file contents):
Revision 1.12 by root, Wed Aug 29 01:32:50 2001 UTC vs.
Revision 1.13 by root, Wed Aug 29 01:40:44 2001 UTC

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 />
160clients waiting for data transfer: $waiters<br />
161average 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 />
165clients waiting for data transfer: $waiters<br />
166average 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>

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines