--- 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.