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: /) { if ($buf =~ /\ABinding parameters: /) {
my $sql = $buf; my $sql = $buf;
$sql =~ s/\ABinding parameters: //; $sql =~ s/\ABinding parameters: //;
my $sub; my $depth;
my $line; for ( $depth = 1; caller($depth); $depth++) {
for ( my $i = 0; caller($i); $i++) { my $package = caller($depth);
(my $package, undef, $line) = caller($i); last
next if $package !~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
if $package =~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
($sub) = (caller($i + 1))[3];
last;
} }
$$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); return length($buf);
} }