projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kosmetik
[kivitendo-erp.git]
/
SL
/
Auth.pm
diff --git
a/SL/Auth.pm
b/SL/Auth.pm
index
4b6f2fa
..
e7f8f7b
100644
(file)
--- a/
SL/Auth.pm
+++ b/
SL/Auth.pm
@@
-1,18
+1,13
@@
package SL::Auth;
package SL::Auth;
-use constant OK => 0;
-use constant ERR_PASSWORD => 1;
-use constant ERR_BACKEND => 100;
-
-use constant SESSION_OK => 0;
-use constant SESSION_NONE => 1;
-use constant SESSION_EXPIRED => 2;
+use DBI;
use Digest::MD5 qw(md5_hex);
use IO::File;
use Time::HiRes qw(gettimeofday);
use List::MoreUtils qw(uniq);
use Digest::MD5 qw(md5_hex);
use IO::File;
use Time::HiRes qw(gettimeofday);
use List::MoreUtils qw(uniq);
+use SL::Auth::Constants qw(:all);
use SL::Auth::DB;
use SL::Auth::LDAP;
use SL::Auth::DB;
use SL::Auth::LDAP;
@@
-829,7
+824,7
@@
sub evaluate_rights_ary {
}
}
}
}
- $main::lxdebug->
enter
_sub(2);
+ $main::lxdebug->
leave
_sub(2);
return $value;
}
return $value;
}
@@
-863,7
+858,7
@@
sub _parse_rights_string {
pop @stack;
if (!@stack) {
pop @stack;
if (!@stack) {
- $main::lxdebug->
enter
_sub(2);
+ $main::lxdebug->
leave
_sub(2);
return 0;
}
return 0;
}
@@
-879,7
+874,7
@@
sub _parse_rights_string {
my $result = ($access || (1 < scalar @stack)) ? 0 : evaluate_rights_ary($stack[0]);
my $result = ($access || (1 < scalar @stack)) ? 0 : evaluate_rights_ary($stack[0]);
- $main::lxdebug->
enter
_sub(2);
+ $main::lxdebug->
leave
_sub(2);
return $result;
}
return $result;
}