imapd: recognize more login error formats

1 files changed, 1 insertions, 1 deletions

diff --git a/imapd b/imapd
index 0d30064..b658181 100644
--- a/imapd
+++ b/imapd
@@ -74,7 +74,7 @@ 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:)?([^\[\]]+)\]$/) ) {
+   } elsif ( (undef,$Host,undef) = ( $ThisLine =~ /^LOGIN FAILED, method=\S+, ip=\[(::ffff:)?([^\[\]]+)\](, .*)?$/) ) {
       $LoginFailed{"$Host"}++;
    } elsif ( ($User, $Host) = ( $ThisLine =~ /^Logout user=(.*?) host=(.*\[.*\])$/) ) {
       $Logout{$User}{$Host}++;