projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fxsellprice auf sellprice setzen
[kivitendo-erp.git]
/
SL
/
Auth
/
DB.pm
diff --git
a/SL/Auth/DB.pm
b/SL/Auth/DB.pm
index
cc264ca
..
2ad131a
100644
(file)
--- a/
SL/Auth/DB.pm
+++ b/
SL/Auth/DB.pm
@@
-1,10
+1,10
@@
package SL::Auth::DB;
package SL::Auth::DB;
-use DBI;
-
-use SL::Auth;
+use SL::Auth::Constants qw(:all);
use SL::DBUtils;
use SL::DBUtils;
+use strict;
+
sub new {
$main::lxdebug->enter_sub();
sub new {
$main::lxdebug->enter_sub();
@@
-32,7
+32,7
@@
sub authenticate {
if (!$dbh) {
$main::lxdebug->leave_sub();
if (!$dbh) {
$main::lxdebug->leave_sub();
- return
SL::Auth::
ERR_BACKEND;
+ return ERR_BACKEND;
}
my $query = qq|SELECT password FROM auth."user" WHERE login = ?|;
}
my $query = qq|SELECT password FROM auth."user" WHERE login = ?|;
@@
-43,7
+43,7
@@
sub authenticate {
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
- return $password eq $stored_password ?
SL::Auth::OK : SL::Auth::
ERR_PASSWORD;
+ return $password eq $stored_password ?
OK :
ERR_PASSWORD;
}
sub can_change_password {
}
sub can_change_password {
@@
-62,7
+62,7
@@
sub change_password {
if (!$dbh) {
$main::lxdebug->leave_sub();
if (!$dbh) {
$main::lxdebug->leave_sub();
- return
SL::Auth::ERR_BACKEND
+ return
ERR_BACKEND;
}
$password = crypt $password, substr($login, 0, 2) if (!$is_crypted);
}
$password = crypt $password, substr($login, 0, 2) if (!$is_crypted);