projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Einkaufsrechnung -> Zahlung buchen: sinnlosen Quark gefixt.
[kivitendo-erp.git]
/
SL
/
Auth.pm
diff --git
a/SL/Auth.pm
b/SL/Auth.pm
index
97f1d82
..
af19e71
100644
(file)
--- a/
SL/Auth.pm
+++ b/
SL/Auth.pm
@@
-19,6
+19,8
@@
use SL::Auth::LDAP;
use SL::User;
use SL::DBUtils;
use SL::User;
use SL::DBUtils;
+use strict;
+
sub new {
$main::lxdebug->enter_sub();
sub new {
$main::lxdebug->enter_sub();
@@
-140,7
+142,7
@@
sub dbconnect {
$dsn .= ';port=' . $cfg->{port};
}
$dsn .= ';port=' . $cfg->{port};
}
- $main::lxdebug->message(LXDebug
::
DEBUG1, "Auth::dbconnect DSN: $dsn");
+ $main::lxdebug->message(LXDebug
->
DEBUG1, "Auth::dbconnect DSN: $dsn");
$self->{dbh} = DBI->connect($dsn, $cfg->{user}, $cfg->{password}, { 'AutoCommit' => 0 });
$self->{dbh} = DBI->connect($dsn, $cfg->{user}, $cfg->{password}, { 'AutoCommit' => 0 });
@@
-215,7
+217,7
@@
sub create_database {
$dsn .= ';port=' . $cfg->{port};
}
$dsn .= ';port=' . $cfg->{port};
}
- $main::lxdebug->message(LXDebug
::DEBUG1
, "Auth::create_database DSN: $dsn");
+ $main::lxdebug->message(LXDebug
->DEBUG1()
, "Auth::create_database DSN: $dsn");
my $dbh = DBI->connect($dsn, $params{superuser}, $params{superuser_password});
my $dbh = DBI->connect($dsn, $params{superuser}, $params{superuser_password});
@@
-230,7
+232,7
@@
sub create_database {
my $query = qq|CREATE DATABASE "$cfg->{db}" OWNER "$cfg->{user}" TEMPLATE "$params{template}" ENCODING '$encoding'|;
my $query = qq|CREATE DATABASE "$cfg->{db}" OWNER "$cfg->{user}" TEMPLATE "$params{template}" ENCODING '$encoding'|;
- $main::lxdebug->message(LXDebug
::DEBUG1
, "Auth::create_database query: $query");
+ $main::lxdebug->message(LXDebug
->DEBUG1()
, "Auth::create_database query: $query");
$dbh->do($query);
$dbh->do($query);
@@
-517,9
+519,6
@@
sub expire_sessions {
sub _create_session_id {
$main::lxdebug->enter_sub();
sub _create_session_id {
$main::lxdebug->enter_sub();
- my @secs = gettimeofday();
- srand $secs[1] + $$;
-
my @data;
map { push @data, int(rand() * 255); } (1..32);
my @data;
map { push @data, int(rand() * 255); } (1..32);