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

better logging of sql

Browse source
This commit is contained in:
Graham Knop 2010-04-13 15:42:59 -05:00
parent 2e419e63be
commit 18962e6bc9
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/SQL/Trace.pm
View file

@ -22,16 +22,15 @@ sub WRITE {
if ($buf =~ /\ABinding parameters: /) {
my $sql = $buf;
$sql =~ s/\ABinding parameters: //;
my $sub;
my $line;
for ( my $i = 0; caller($i); $i++) {
(my $package, undef, $line) = caller($i);
next
if $package =~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
($sub) = (caller($i + 1))[3];
last;
my $depth;
for ( $depth = 1; caller($depth); $depth++) {
my $package = caller($depth);
last
if $package !~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
}
$$self->log->debug("Query - $sub($line) : $sql");
local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + $depth + 1;
$$self->log->debug("Query - $sql");
}
return length($buf);
}