Logging von Datenbankzugriffen auch von Rose via Log::Log4perl und DBIx::Log4perl...

diff --git a/SL/DB.pm b/SL/DB.pm
index b48a49e70bb4a708775a35487f4fe4da28ff42d3..f90a9c6371a72710287499afbbe3c12384d2abd6 100644 (file)
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -13,6 +13,22 @@ __PACKAGE__->use_private_registry;
 
 my (%_db_registered, %_initial_sql_executed);
 
 
 my (%_db_registered, %_initial_sql_executed);
 

+sub dbi_connect {
+  shift;
+
+  return DBI->connect(@_) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
+
+  require Log::Log4perl;
+  require DBIx::Log4perl;
+
+  my $filename =  $LXDebug::file_name;
+  my $config   =  $::lx_office_conf{debug}->{dbix_log4perl_config};
+  $config      =~ s/LXDEBUGFILE/${filename}/g;
+
+  Log::Log4perl->init(\$config);
+  return DBIx::Log4perl->connect(@_);
+}
+

 sub create {
   my $domain = shift || SL::DB->default_domain;
   my $type   = shift || SL::DB->default_type;
 sub create {
   my $domain = shift || SL::DB->default_domain;
   my $type   = shift || SL::DB->default_type;

diff --git a/config/lx_office.conf.default b/config/lx_office.conf.default
index 10cf54c67450a81156712122842b7041dd5f2f4c..cd230d2236361a6f040047742d3bc1edded7da4a 100644 (file)
--- a/config/lx_office.conf.default
+++ b/config/lx_office.conf.default
@@ -28,3 +28,21 @@ login = demo
 
 # location of history file for permanent history
 history_file = users/console_history
 
 # location of history file for permanent history
 history_file = users/console_history

+
+[debug]
+# Use DBIx::Log4perl for logging DBI calls. The string LXDEBUGFILE
+# will be replaced by the file name configured for $::lxdebug.
+dbix_log4perl = 0
+dbix_log4perl_config = log4perl.logger = FATAL, LOGFILE
+                     = log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
+                     = log4perl.appender.LOGFILE.filename=LXDEBUGFILE
+                     = log4perl.appender.LOGFILE.mode=append
+                     = log4perl.appender.LOGFILE.Threshold = ERROR
+                     = log4perl.appender.LOGFILE.layout=PatternLayout
+                     = log4perl.appender.LOGFILE.layout.ConversionPattern=[%r] %F %L %c - %m%n
+                     = log4perl.logger.DBIx.Log4perl=DEBUG, A1
+                     = log4perl.appender.A1=Log::Log4perl::Appender::File
+                     = log4perl.appender.A1.filename=LXDEBUGFILE
+                     = log4perl.appender.A1.mode=append
+                     = log4perl.appender.A1.layout=Log::Log4perl::Layout::PatternLayout
+                     = log4perl.appender.A1.layout.ConversionPattern=%d %p> %F{1}:%L %M - %m%n