X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ae9df702a214320e75e7a9fd0cd8af85ce904c32..22c021254b5dcf3367d95d48cea3e1f7412ef369:/SL/DBConnect.pm

diff --git a/SL/DBConnect.pm b/SL/DBConnect.pm
new file mode 100644
index 000000000..fbcf1d5a1
--- /dev/null
+++ b/SL/DBConnect.pm
@@ -0,0 +1,23 @@
+package SL::DBConnect;
+
+use strict;
+
+use DBI;
+
+sub 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(@_);
+}
+
+1;