imapd: count failed logins

1 files changed, 3 insertions, 1 deletions

diff --git a/imapd b/imapd
index 24225c0..536552d 100644
--- a/imapd
+++ b/imapd
@@ -74,6 +74,8 @@ while (defined($ThisLine = <STDIN>)) {
 #      $MboxSize{$User} = $LeftSize;
 #   } elsif ( ($User,$Host) = ( $ThisLine =~ /^authentication failed for user (.*?) - (.*)/ ) ) {
 #      $LoginFailed{"$Host ($User)"}++;
+   } elsif ( ($dummy,$Host) = ( $ThisLine =~ /^LOGIN FAILED, method=\S+, ip=\[(::ffff:)?([^\[\]]+)\]$/) ) {
+      $LoginFailed{"$Host"}++;
    } elsif ( ($User, $Host) = ( $ThisLine =~ /^Logout user=(.*?) host=(.*\[.*\])$/) ) {
       $Logout{$User}{$Host}++;
       $Logout2{$User}++;
@@ -125,7 +127,7 @@ while (defined($ThisLine = <STDIN>)) {
 if ( ( $Detail >= 0 ) and (keys %LoginFailed)) {
    print    "\n\n[IMAPd] Login failures:".
             "\n=========================".
-            "\n                                                  Host (user) |          # ".
+            "\n                                                        Host  |          # ".
             "\n------------------------------------------------------------- | -----------";
 
    $ConnCount = 0;