sub statuspage { my ($self, $verbose) = @_; my $uptime = format_time ($::NOW - $::starttime); my $content = < Server Status Page

Server Status Page

Myhttpd

version $VERSION; current:max connection count: $::conns:$::maxconns; uptime: $uptime;
client-id $self->{remote_id}; client country $self->{country};

Queue Statistics

$name
".(scalar @waiters)." client(s); $queue->{started} downloads started; $queue->{slots} slots free;"; $content .= "
Waiting time until download starts, estimated:
- $by
  "; if ($spb) { $content .= sprintf "100 KB file: %s; 1 MB file: %s; 100MB file: %s;", format_time($spb* 100_000), format_time($spb* 1_000_000), format_time($spb*100_000_000); } else { $content .= "(unavailable)"; } $content .= "
"; @waiters = grep { $verbose || $_->{coro}{conn}{remote_id} eq $self->{remote_id} } @waiters; if (@waiters) { $content .= "". ""; for (@waiters) { my $conn = $_->{coro}{conn}; my $time = format_time ($::NOW - $_->{time}); my $eta = $queue->{avgspb} * $_->{size} - ($::NOW - $_->{time}); $content .= "". "". "". "". "". "". "". "". ""; } $content .= "
# CN Remote ID Size Waiting ETA URI
$_->{idx} $conn->{country} $conn->{remote_id} $_->{size} $time ".($eta < 0 ? "overdue" : format_time $eta)." ".escape_html($conn->{name})."
$name
(empty)

#	CN	Remote ID	Size	Waiting	ETA	URI
$_->{idx}	$conn->{country}	$conn->{remote_id}	$_->{size}	$time	".($eta < 0 ? "overdue" : format_time $eta)."	".escape_html($conn->{name})."

Active Downloads

CN	Remote ID	bytes written	bps	RM	URI

$count active downloads, $fullrate bytes/s amortized.

EOF $self->response(200, "ok", { "Content-Type" => "text/html", "Content-Length" => length $content, }, $content); }; $::internal{status} = sub { statuspage($_[0], 0) }; $::internal{queue} = sub { statuspage($_[0], 1) }; 1;