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

Adds Plack::Middleware::Debug::WgLogger

Browse source
This commit is contained in:
Patrick Donelan 2010-04-13 21:00:08 -04:00
parent b1ab8287ca
commit 2d7c8e637f
2 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lib/Plack/Middleware/Debug/WgLogger.pm Normal file
View file

@ -0,0 +1,31 @@
package Plack::Middleware::Debug::WgLogger;
use strict;
use parent qw(Plack::Middleware::Debug::Base);
our $VERSION = '0.07';
# This will be moved to the WebGUI::Middleware::Debug::WgLogger namespace
# once Plack::Middleware::Debug supports that
sub run {
my ($self, $env, $panel) = @_;
my $logger = $env->{'psgix.logger'};
my $log_output = [];
$env->{'psgix.logger'} = sub {
my $args = shift;
push @$log_output, $args->{level} => $args->{message};
$logger && $logger->($args);
};
delete $env->{'webgui.session'}->{_errorHandler};
return sub {
my $res = shift;
$panel->nav_subtitle(scalar @$log_output . " messages");
$panel->content($self->render_list_pairs($log_output));
};
}
sub panel_name { 'WebGUI Log' }
1;

2
lib/WebGUI/Middleware/Session.pm
View file

@ -63,7 +63,7 @@ sub call {
if ($debug) {
$app = Plack::Middleware::StackTrace->wrap($app);
$app = Plack::Middleware::Debug->wrap( $app,
panels => [qw(Environment Response Timer Memory Session DBITrace PerlConfig Response)] );
panels => [qw(Environment Response Timer Memory Session DBITrace PerlConfig Response WgLogger)] );
}
# Turn exceptions into HTTP errors