Revision 22c02125
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
|
use SL::Auth::LDAP;
|
||
|
|
||
|
use SL::User;
|
||
|
use SL::DBConnect;
|
||
|
use SL::DBUpgrade2;
|
||
|
use SL::DBUtils;
|
||
|
|
||
| ... | ... | |
|
sub get_user_dbh {
|
||
|
my ($self, $login) = @_;
|
||
|
my %user = $self->read_user($login);
|
||
|
my $dbh = DBI->connect(
|
||
|
my $dbh = SL::DBConnect->connect(
|
||
|
$user{dbconnect},
|
||
|
$user{dbuser},
|
||
|
$user{dbpasswd},
|
||
| ... | ... | |
|
|
||
|
$main::lxdebug->message(LXDebug->DEBUG1, "Auth::dbconnect DSN: $dsn");
|
||
|
|
||
|
$self->{dbh} = DBI->connect($dsn, $cfg->{user}, $cfg->{password}, { pg_enable_utf8 => $::locale->is_utf8, AutoCommit => 1 });
|
||
|
$self->{dbh} = SL::DBConnect->connect($dsn, $cfg->{user}, $cfg->{password}, { pg_enable_utf8 => $::locale->is_utf8, AutoCommit => 1 });
|
||
|
|
||
|
if (!$may_fail && !$self->{dbh}) {
|
||
|
$main::form->error($main::locale->text('The connection to the authentication database failed:') . "\n" . $DBI::errstr);
|
||
| ... | ... | |
|
my $encoding = $Common::charset_to_db_encoding{$charset};
|
||
|
$encoding ||= 'UNICODE';
|
||
|
|
||
|
my $dbh = DBI->connect($dsn, $params{superuser}, $params{superuser_password}, { pg_enable_utf8 => $charset =~ m/^utf-?8$/i });
|
||
|
my $dbh = SL::DBConnect->connect($dsn, $params{superuser}, $params{superuser_password}, { pg_enable_utf8 => $charset =~ m/^utf-?8$/i });
|
||
|
|
||
|
if (!$dbh) {
|
||
|
$main::form->error($main::locale->text('The connection to the template database failed:') . "\n" . $DBI::errstr);
|
||
| SL/DB.pm | ||
|---|---|---|
|
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(@_);
|
||
|
return SL::DBConnect->connect(@_);
|
||
|
}
|
||
|
|
||
|
sub create {
|
||
| SL/DBConnect.pm | ||
|---|---|---|
|
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;
|
||
| SL/Form.pm | ||
|---|---|---|
|
use SL::Common;
|
||
|
use SL::CVar;
|
||
|
use SL::DB;
|
||
|
use SL::DBConnect;
|
||
|
use SL::DBUtils;
|
||
|
use SL::DO;
|
||
|
use SL::IC;
|
||
| ... | ... | |
|
my ($self, $myconfig) = @_;
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
|
||
|
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
|
||
|
or $self->dberror;
|
||
|
|
||
|
# set db options
|
||
| ... | ... | |
|
my ($self, $myconfig) = @_;
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
|
||
|
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
|
||
|
or $self->dberror;
|
||
|
|
||
|
# set db options
|
||
| SL/User.pm | ||
|---|---|---|
|
use Fcntl qw(:seek);
|
||
|
|
||
|
#use SL::Auth;
|
||
|
use SL::DBConnect;
|
||
|
use SL::DBUpgrade2;
|
||
|
use SL::DBUtils;
|
||
|
use SL::Iconv;
|
||
| ... | ... | |
|
my %myconfig = $main::auth->read_user($self->{login});
|
||
|
|
||
|
# check if database is down
|
||
|
my $dbh =
|
||
|
DBI->connect($myconfig{dbconnect}, $myconfig{dbuser},
|
||
|
$myconfig{dbpasswd})
|
||
|
my $dbh = SL::DBConnect->connect($myconfig{dbconnect}, $myconfig{dbuser}, $myconfig{dbpasswd})
|
||
|
or $self->error($DBI::errstr);
|
||
|
|
||
|
# we got a connection, check the version
|
||
| ... | ... | |
|
$form->{sid} = $form->{dbdefault};
|
||
|
&dbconnect_vars($form, $form->{dbdefault});
|
||
|
|
||
|
my $dbh =
|
||
|
DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
|
||
|
if ($form->{dbdriver} eq 'Pg') {
|
||
| ... | ... | |
|
next if ($db =~ /^template/);
|
||
|
|
||
|
&dbconnect_vars($form, $db);
|
||
|
my $dbh =
|
||
|
DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
|
||
|
$query =
|
||
| ... | ... | |
|
|
||
|
dbconnect_vars($form, $form->{dbdefault});
|
||
|
|
||
|
my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) || $form->dberror();
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) || $form->dberror();
|
||
|
my $query = qq|SELECT pg_encoding_to_char(encoding) FROM pg_database WHERE datname = 'template0'|;
|
||
|
my ($cluster_encoding) = $dbh->selectrow_array($query);
|
||
|
$dbh->disconnect();
|
||
| ... | ... | |
|
$form->{sid} = $form->{dbdefault};
|
||
|
&dbconnect_vars($form, $form->{dbdefault});
|
||
|
my $dbh =
|
||
|
DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
$form->{db} =~ s/\"//g;
|
||
|
my %dbcreate = (
|
||
| ... | ... | |
|
|
||
|
&dbconnect_vars($form, $form->{db});
|
||
|
|
||
|
$dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
$dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
|
||
|
my $db_charset = $Common::db_encoding_to_charset{$form->{encoding}};
|
||
| ... | ... | |
|
|
||
|
$form->{sid} = $form->{dbdefault};
|
||
|
&dbconnect_vars($form, $form->{dbdefault});
|
||
|
my $dbh =
|
||
|
DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
my $query = $dbdelete{$form->{dbdriver}};
|
||
|
do_query($form, $dbh, $query);
|
||
| ... | ... | |
|
map { $form->{$_} = $member->{$_} } qw(dbname dbuser dbpasswd dbhost dbport);
|
||
|
dbconnect_vars($form, $form->{dbname});
|
||
|
|
||
|
my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd});
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd});
|
||
|
|
||
|
next unless $dbh;
|
||
|
|
||
| ... | ... | |
|
$db =~ s/^db//;
|
||
|
&dbconnect_vars($form, $db);
|
||
|
|
||
|
my $dbh =
|
||
|
DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
|
||
|
or $form->dberror;
|
||
|
|
||
|
$dbh->do($form->{dboptions}) if ($form->{dboptions});
|
||
| ... | ... | |
|
$db =~ s/^db//;
|
||
|
&dbconnect_vars($form, $db);
|
||
|
|
||
|
my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) or $form->dberror;
|
||
|
my $dbh = SL::DBConnect->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) or $form->dberror;
|
||
|
|
||
|
$dbh->do($form->{dboptions}) if ($form->{dboptions});
|
||
|
|
||
| ... | ... | |
|
|
||
|
$main::auth->save_user($self->{login}, map { $_, $self->{$_} } config_vars());
|
||
|
|
||
|
my $dbh = DBI->connect($self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd});
|
||
|
my $dbh = SL::DBConnect->connect($self->{dbconnect}, $self->{dbuser}, $self->{dbpasswd});
|
||
|
if ($dbh) {
|
||
|
$self->create_employee_entry($form, $dbh, $self, 1);
|
||
|
$dbh->disconnect();
|
||
Auch abrufbar als: Unified diff
Alle Datenbankverbindungen über DBIx::Log4perl laufen lassen, sofern dies in der Konfiguration aktiviert ist