| … | |
… | |
| 6 | my $content = <<EOF; |
6 | my $content = <<EOF; |
| 7 | <html> |
7 | <html> |
| 8 | <head><title>Server Status Page</title></head> |
8 | <head><title>Server Status Page</title></head> |
| 9 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
9 | <body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#000080" alink="#ff0000"> |
| 10 | <h1>Server Status Page</h1> |
10 | <h1>Server Status Page</h1> |
| 11 | <h2>Myhttpd</h2> |
11 | <h2>$::NAME</h2> |
| 12 | version <b>$VERSION</b>; current:max connection count: <b>$::conns</b>:<b>$::maxconns</b>; uptime: <b>$uptime</b>;<br /> |
12 | version <b>$VERSION</b>; current:max connection count: <b>$::conns</b>:<b>$::maxconns</b>; uptime: <b>$uptime</b>;<br /> |
| 13 | client-id <b>$self->{remote_id}</b>; client country <b>$self->{country}</b>;<br /> |
13 | client-id <b>$self->{remote_id}</b>; client country <b>$self->{country}</b>;<br /> |
| 14 | <h2>Queue Statistics</h2> |
14 | <h2>Queue Statistics</h2> |
| 15 | <ul> |
15 | <ul> |
| 16 | EOF |
16 | EOF |
| … | |
… | |
| 102 | $content .= "<table width='100%' border='1'><tr><th>CN</th><th>Remote ID</th><th>bytes written</th><th>bps</th><th>RM</th><th>URI</th></tr>" |
102 | $content .= "<table width='100%' border='1'><tr><th>CN</th><th>Remote ID</th><th>bytes written</th><th>bps</th><th>RM</th><th>URI</th></tr>" |
| 103 | . (join "", sort @data) |
103 | . (join "", sort @data) |
| 104 | . "</table>"; |
104 | . "</table>"; |
| 105 | } |
105 | } |
| 106 | |
106 | |
| 107 | $content .= "<p>$count active downloads, $fullrate bytes/s amortized.</p>"; |
107 | $content .= "<p>$count active connections, $fullrate bytes/s amortized.</p>"; |
| 108 | |
108 | |
| 109 | $content .= <<EOF; |
109 | $content .= <<EOF; |
| 110 | </ul> |
110 | </ul> |
| 111 | </body> |
111 | </body> |
| 112 | </html> |
112 | </html> |
