Revision 22c02125
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/DB.pm | ||
|---|---|---|
| 16 | 16 |
sub dbi_connect {
|
| 17 | 17 |
shift; |
| 18 | 18 |
|
| 19 |
return DBI->connect(@_) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
|
|
| 20 |
|
|
| 21 |
require Log::Log4perl; |
|
| 22 |
require DBIx::Log4perl; |
|
| 23 |
|
|
| 24 |
my $filename = $LXDebug::file_name; |
|
| 25 |
my $config = $::lx_office_conf{debug}->{dbix_log4perl_config};
|
|
| 26 |
$config =~ s/LXDEBUGFILE/${filename}/g;
|
|
| 27 |
|
|
| 28 |
Log::Log4perl->init(\$config); |
|
| 29 |
return DBIx::Log4perl->connect(@_); |
|
| 19 |
return SL::DBConnect->connect(@_); |
|
| 30 | 20 |
} |
| 31 | 21 |
|
| 32 | 22 |
sub create {
|
Auch abrufbar als: Unified diff
Alle Datenbankverbindungen über DBIx::Log4perl laufen lassen, sofern dies in der Konfiguration aktiviert ist