projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Speicherroutine darf nur auf "customer_vendor_edit" testen
[kivitendo-erp.git]
/
SL
/
Auth.pm
diff --git
a/SL/Auth.pm
b/SL/Auth.pm
index
4c50ddf
..
ed5c845
100644
(file)
--- a/
SL/Auth.pm
+++ b/
SL/Auth.pm
@@
-149,7
+149,7
@@
sub authenticate_root {
my ($self, $password) = @_;
my ($self, $password) = @_;
- my $session_root_auth = $self->get_session_value(SESSION_KEY_ROOT_AUTH);
+ my $session_root_auth = $self->get_session_value(SESSION_KEY_ROOT_AUTH
()
);
if (defined $session_root_auth && $session_root_auth == OK) {
$::lxdebug->leave_sub;
return OK;
if (defined $session_root_auth && $session_root_auth == OK) {
$::lxdebug->leave_sub;
return OK;
@@
-164,9
+164,7
@@
sub authenticate_root {
my $admin_password = SL::Auth::Password->hash_if_unhashed(login => 'root', password => $self->{admin_password}->());
my $result = $password eq $admin_password ? OK : ERR_PASSWORD;
my $admin_password = SL::Auth::Password->hash_if_unhashed(login => 'root', password => $self->{admin_password}->());
my $result = $password eq $admin_password ? OK : ERR_PASSWORD;
- $self->set_session_value(SESSION_KEY_ROOT_AUTH ,=> $result);
-
- sleep 5 if $result != OK;
+ $self->set_session_value(SESSION_KEY_ROOT_AUTH() => $result);
$::lxdebug->leave_sub;
return $result;
$::lxdebug->leave_sub;
return $result;
@@
-177,7
+175,7
@@
sub authenticate {
my ($self, $login, $password) = @_;
my ($self, $login, $password) = @_;
- my $session_auth = $self->get_session_value(SESSION_KEY_USER_AUTH);
+ my $session_auth = $self->get_session_value(SESSION_KEY_USER_AUTH
()
);
if (defined $session_auth && $session_auth == OK) {
$::lxdebug->leave_sub;
return OK;
if (defined $session_auth && $session_auth == OK) {
$::lxdebug->leave_sub;
return OK;
@@
-189,14
+187,16
@@
sub authenticate {
}
my $result = $login ? $self->{authenticator}->authenticate($login, $password) : ERR_USER;
}
my $result = $login ? $self->{authenticator}->authenticate($login, $password) : ERR_USER;
- $self->set_session_value(SESSION_KEY_USER_AUTH ,=> $result, login => $login);
-
- sleep 5 if $result != OK;
+ $self->set_session_value(SESSION_KEY_USER_AUTH() => $result, login => $login);
$::lxdebug->leave_sub;
return $result;
}
$::lxdebug->leave_sub;
return $result;
}
+sub punish_wrong_login {
+ sleep 5;
+}
+
sub get_stored_password {
my ($self, $login) = @_;
sub get_stored_password {
my ($self, $login) = @_;