X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a3339fc75fd7c2fd1328e5444dcde255e4034f95..540c0b5e9a38158e6f7a6efacd20b2477efad7ac:/bin/mozilla/admin.pl?ds=sidebyside

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 42971fac5..4409505c1 100755
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -96,6 +96,7 @@ sub run {
 
   if ($form->{action}) {
     if ($auth->authenticate_root($form->{'{AUTH}admin_password'}) != $auth->OK()) {
+      $auth->punish_wrong_login;
       $form->{error_message} = $locale->text('Incorrect Password!');
       $auth->delete_session_value('admin_password');
       adminlogin();