SL/DBConnect.pm

   1 package SL::DBConnect;
   2
   3 use strict;
   4
   5 use DBI;
   6
   7 sub connect {
   8   shift;
   9
  10   return DBI->connect(@_) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
  11
  12   require Log::Log4perl;
  13   require DBIx::Log4perl;
  14
  15   my $filename =  $::lxdebug->file;
  16   my $config   =  $::lx_office_conf{debug}->{dbix_log4perl_config};
  17   $config      =~ s/LXDEBUGFILE/${filename}/g;
  18
  19   Log::Log4perl->init(\$config);
  20   return DBIx::Log4perl->connect(@_);
  21 }
  22
  23 sub get_options {
  24   my $self    = shift;
  25   my $options = {
  26     pg_enable_utf8 => $::locale->is_utf8,
  27     @_
  28   };
  29
  30   return $options;
  31 }
  32
  33 1;