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

removed unneeded line from LDAP.pm, fixed empty returns from processOperations, and added more POD to PerformanceProfiler.pm

Browse source
This commit is contained in:
Matthew Wilson 2006-02-04 13:54:00 +00:00
parent c934de3c84
commit 31fc1bdd17
3 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI.pm
View file

@ -127,7 +127,7 @@ sub page {
#-------------------------------------------------------------------
sub processOperations {
my $session = shift;
my ($cmd, $output);
my $output = "";
my $op = $session->form->process("op");
# my $opNumber = shift || 1;
if ($op) {

1
lib/WebGUI/Auth/LDAP.pm
View file

@ -15,7 +15,6 @@ use WebGUI::Auth;
use WebGUI::HTMLForm;
use WebGUI::Form;
use WebGUI::LDAPLink;
use WebGUI::Mail;
use WebGUI::Utility;
use WebGUI::Operation::Shared;
use WebGUI::Asset::Template;

20
lib/WebGUI/PerformanceProfiler.pm
View file

@ -44,7 +44,8 @@ PerlModule WebGUI::PerformanceProfiler
PerlChildInitHandler WebGUI::PerformanceProfiler
PerlOutputFilterHandler WebGUI::PerformanceProfiler
To the apache configuration.
To the apache configuration. Make sure these directives
are not inside your WebGUI vhost block, but instead above it.
By default all preloaded WebGUI code will get profiled.
You can limit the profiling to specific modules like this:
@ -225,6 +226,23 @@ sub profileSubEnd {
$depth--;
}
=head2 results
Produce the output of the profiler. The expandable,
collapsible tree of subroutine calls. Will soon
include line number of the caller (parent) subroutine,
and optionally a dump of all the parameters (!). Will
also soon include a tabular display akin to Devel::DProf's
formatted tabular output: percent total time spent in sub,
aggregate exclusive time spent in sub, aggregate inclusive
time spent in sub, number of calls to the sub, mean
exclusive time per sub call, mean inclusive time per sub
call, subroutine name, sorted by aggregate exclusive time
per sub, descending.
=cut
sub results {
my $output = qq|
<script>