Group :: Rede/E-Mail
RPM: pop-before-smtp
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
Patch: pop-before-smtp-alt-config.patch
Download
Download
--- 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.