From a72763126c1760e5d9a0db8c805acb24fb93f1f9 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 26 Feb 2021 06:04:58 +0100
Subject: imapd: recognize more login error formats

---
 imapd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}++;
-- 
cgit v1.2.3-54-g00ecf