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