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

convert page performance indicators to performance debug panel again

Browse source
This commit is contained in:
Graham Knop 2010-08-25 13:39:26 -05:00
parent 3e1234c8d4
commit 476d9250fa
1 changed files with 2 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Content/Asset.pm
View file

@ -169,25 +169,8 @@ sub handler {
if (my $perfLog = $errorHandler->performanceLogger) { #show performance indicators if required
my $t = [Time::HiRes::gettimeofday()];
$output = dispatch($session, getRequestedAssetUrl($session));
$t = Time::HiRes::tv_interval($t) ;
if ($output =~ /<\/title>/) {
$output =~ s/<\/title>/ : ${t} seconds<\/title>/i;
}
else {
# Kludge.
my $mimeType = $http->getMimeType();
if ($mimeType eq 'text/css') {
$session->output->print("\n/* Page generated in $t seconds. */\n");
}
elsif ($mimeType =~ m{text/html}) {
$session->output->print("\nPage generated in $t seconds.\n");
}
else {
# Don't apply to content when we don't know how
# to modify it semi-safely.
}
}
}
$perfLog->({ time => Time::HiRes::tv_interval($t), type => 'Page' });
}
else {
$output = dispatch($session, getRequestedAssetUrl($session));
}