oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

clean up debug logger

Browse source
This commit is contained in:
Graham Knop 2010-04-13 20:43:00 -05:00
parent 907a148313
commit 30b7e4bdb3
3 changed files with 47 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lib/Plack/Middleware/Debug/Logger.pm
View file

@ -3,41 +3,34 @@ use 5.008;
use strict;
use warnings;
use parent qw(Plack::Middleware::Debug::Base);
use Sub::Uplevel ();
our $VERSION = '0.07';
sub run {
my ($self, $env, $panel) = @_;
my $wrap_logger = $env->{'psgix.logger'};
my %output;
my $logger = $env->{'psgix.logger'};
my $log_output = [];
$env->{'psgix.logger'} = sub {
my ($args) = @_;
my $caller = (caller(1))[3] . '[' . (caller(0))[2] . '] ';
my $message = $args->{message};
$message =~ s/\n\s*/\n /msxg;
$message =~ s/\n?\z/\n/msx;
$output{lc $args->{level}} ||= '';
$output{lc $args->{level}} .= $caller . $message;
if ($wrap_logger) {
Sub::Uplevel::uplevel 1, $wrap_logger, @_;
push @$log_output, $args->{level} => $caller . $message;
if ($logger) {
goto $logger;
}
};
return sub {
my $res = shift;
if ($wrap_logger) {
$env->{'psgix.logger'} = $wrap_logger;
if ($logger) {
$env->{'psgix.logger'} = $logger;
}
my $content = '';
for my $level ( qw(info debug warn error fatal) ) {
if ($output{$level}) {
$content .= "<h1 style=\"font-size: 125%\">\u$level</h1>";
$content .= '<div style="white-space: pre">' . $self->render_lines($output{$level}) . '</div>';
}
$panel->nav_subtitle(scalar @$log_output / 2 . ' messages');
if (@$log_output) {
$panel->content('<div style="white-space: pre">' . $self->render_list_pairs( $log_output ) . '</div>');
}
$panel->content($content);
};
}