… | |
… | |
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> |