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

convert performance indicators to a Plack::Middleware::Debug panel

Browse source
This commit is contained in:
Graham Knop 2010-04-14 14:51:52 -05:00
parent 30fc3fab10
commit f2ce1eff85
7 changed files with 98 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Session/ErrorHandler.pm
View file

@ -21,6 +21,7 @@ use JSON;
use HTML::Entities qw(encode_entities);
use Log::Log4perl;
use WebGUI::Exception;
use Sub::Uplevel;
=head1 NAME
@ -84,10 +85,13 @@ Returns true if the user meets the conditions to see performance indicators and
=cut
sub canShowPerformanceIndicators {
my $self = shift;
return 0 unless $self->session->setting->get("showPerformanceIndicators");
return $self->canShowBasedOnIP('debugIp');
sub performanceLogger {
my $self = shift;
my $request = $self->session->request;
return
unless $request;
my $logger = $request->env->{'webgui.perf.logger'};
return $logger;
}