X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/540c0b5e9a38158e6f7a6efacd20b2477efad7ac..e14cb525c640cb15bb6b2dfb62ccebbe78cb45cd:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index ed5c84543..52c2dc63d 100644
--- 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 {