dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LEMONLDAP::NG : * bug in filter mechanism : redirections issued from the applications had precedence on LM::NG redirections

Browse Source 
* field size in Status.pm
This commit is contained in:
Xavier Guimard 2008-05-30 15:49:33 +00:00
parent 772a9ad1e8
commit f7cc93ee5c
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -708,6 +708,7 @@ sub redirectFilter {
# this function is used only with Apache2.
$f->r->status(REDIRECT);
$f->r->status_line("302 Temporary Moved");
$f->r->headers_out->unset('Location');
$f->r->err_headers_out->set( 'Location' => $url );
$f->ctx(1);
}

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

@ -123,7 +123,7 @@ sub run {
# Total requests
print "<h2>Total</h2>\n<div id=\"total\"><pre>\n";
print sprintf( "%-30s : \%5d (%.02f / mn)\n",
print sprintf( "%-30s : \%6d (%.02f / mn)\n",
$_, $c->{$_}, $c->{$_} / $mn )
foreach ( sort keys %$c );
print "\n</pre></div>\n";
@ -131,7 +131,7 @@ sub run {
# Average
print "<h2>Average for last " . MN_COUNT
. " minutes</h2>\n<div id=\"average\"><pre>\n";
print sprintf( "%-30s : %5s / mn\n", $_, $m->{$_} )
print sprintf( "%-30s : %6s / mn\n", $_, $m->{$_} )
foreach ( sort keys %$m );
print "\n</pre></div>\n";
@ -156,7 +156,7 @@ sub run {
sort { $count->{vhost}->{$b} <=> $count->{vhost}->{$a} }
keys %{ $count->{vhost} } )
{
print sprintf( "%-40s : %4d\n", $_, $count->{vhost}->{$_} );
print sprintf( "%-40s : %6d\n", $_, $count->{vhost}->{$_} );
}
print "\n</pre></div>\n";
@ -169,7 +169,7 @@ sub run {
last if ( $i == $args->{top} );
last unless ( $count->{uri}->{$_} );
$i++;
print sprintf( "%-80s : %4d\n", $_, $count->{uri}->{$_} );
print sprintf( "%-80s : %6d\n", $_, $count->{uri}->{$_} );
}
print "\n</pre></div>\n";
@ -211,7 +211,7 @@ sub topByCat {
last if ( $i == $max );
last unless ( $status->{uri}->{$_}->{$cat} );
$i++;
print sprintf( "%-80s : %4d\n", $_, $status->{uri}->{$_}->{$cat} );
print sprintf( "%-80s : %6d\n", $_, $status->{uri}->{$_}->{$cat} );
}
print "</pre>\n";
}