--- pop-before-smtp-conf.pl.orig	2005-03-30 10:51:44 +0400
+++ pop-before-smtp-conf.pl	2005-03-30 15:51:06 +0400
@@ -39,7 +39,7 @@
 #$grace = 30*60;
 
 # Set the log file we will watch for pop3d/imapd records.
-#$file_tail{'name'} = '/var/log/maillog';
+$file_tail{'name'} = '/var/log/maillog';
 #$file_tail{'name'} = '/Library/Logs/MailService/AppleMailServer.IMAP.log';
 
 # ... or we'll try to figure it out for you.
@@ -203,6 +203,9 @@
 #$pat = '^(... .. ..:..:..) \S+ (?:dovecot: )? (?:imap|pop3)-login: ' .
 #    'Login: \S+ \[(\d+\.\d+\.\d+\.\d+)\]';
 
+# Simplified, but works for pop3s by dovecot in ALTLinux Master 2.4.
+$pat = '^(... .. ..:..:..) \S+ pop3-login: Login: \S+ \[(\d+\.\d+\.\d+\.\d+)\]';
+
 # For Apple IMAP MAIL Server
 #$pat = '^(... .. .... ..:..:..).* IMAP ' .
 #    'User "[^"]+" log on successful from (\d+\.\d+\.\d+\.\d+)';
@@ -220,7 +223,7 @@
 my $pat2 = '... define an extra pattern here ...';
 
 # Add as many patterns to the @match array as you like:
-my @match = ( $pat, $pat2 );
+my @match = ( $pat );
 
 $_ = qr/$_/ foreach @match; # Pre-compile the regular expressions.