Konfigurationsoption für Wartezeit nach fehlgeschlagenen Logins

[mfinanz.git] / SL / Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index ed5c84543c8762d017a40aaa78f9e0f09e0f9f3d..52c2dc63de55510ce115ade02d53387d32f82368 100644 (file)
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -194,7 +194,8 @@ sub authenticate {
 }
 
 sub punish_wrong_login {
-  sleep 5;
+  my $failed_login_penalty = ($::lx_office_conf{authentication} || {})->{failed_login_penalty};
+  sleep $failed_login_penalty if $failed_login_penalty;
 }
 
 sub get_stored_password {