worteks
/
lemonldap-ng
mirror of https://gitlab.ow2.org/lemonldap-ng/lemonldap-ng
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

LEMONLDAP::NG : Status is in HTML now

Browse Source
environments/ppa-mbqj77/deployments/1
Xavier Guimard 17 years ago
parent 86cbecbde9
commit 28e7336097
2 changed files with 31 additions and 7 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 4
      modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
  2. 34
      modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Status.pm

4
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm
Unescape View File

@ -722,7 +722,7 @@ sub status($$) {
$r->push_handlers(
'PerlResponseHandler' => sub {
my $r = shift;
$r->content_type('text/plain');
$r->content_type('text/html; charset=UTF-8');
$r->print($buf);
OK;
}
@ -732,7 +732,7 @@ sub status($$) {
$r->push_handlers(
'PerlHandler' => sub {
my $r = shift;
$r->content_type('text/plain');
$r->content_type('text/html; charset=UTF-8');
$r->send_http_header;
$r->print($buf);
OK;

34
modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Status.pm
Unescape View File

@ -51,7 +51,7 @@ sub run {
my $args = $1;
my ( $c, $a, $u );
while ( my ( $user, $v ) = each( %{ $status->{user} } ) ) {
$u++;
$u++ unless( $user =~ /^\d+\.\d+\.\d+\.\d+$/ );
# Total requests
foreach ( keys %$v ) {
$c->{$_} += $v->{$_};
@ -70,15 +70,39 @@ sub run {
#print Dumper( $c, $a, $status );
my @t =
$refLocalStorage->get_keys( $localStorageOptions->{namespace} );
print "TOTAL\n";
&head;
print "<h2>Total</h2><pre>\n";
print sprintf("%-10s : %d\n", $_, $c->{$_}) foreach(sort keys %$c);
print "\nAVERAGE\n";
print "\n</pre><h2>Average</h2><pre>\n";
print sprintf("%-10s : %s\n", $_, $a->{$_}) foreach(sort keys %$a);
print "\nUsers : $u\n\nLocal Cache : " . @t . " objects\n";
print "END\n";
print "\n</pre><p>\nTotal users : $u\n</p><p>\nLocal Cache : " . @t . " objects\n</p>";
&end;
print "\nEND\n";
}
}
}
sub head {
print <<"EOF";
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>Lemonldap::NG Status</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf8" />
</head>
<body>
<h1>Lemonldap::NG Status informations</h1>
EOF
}
sub end {
print <<"EOF";
</body>
</html>
EOF
}
1;
__END__

Write Preview
Loading…
Cancel
Save