File pop-before-smtp-1.42-SuSE.patch of Package pop-before-smtp

Index: pop-before-smtp-conf.pl
===================================================================
--- pop-before-smtp-conf.pl.orig
+++ pop-before-smtp-conf.pl
@@ -27,21 +27,21 @@ use vars qw(
 #$flock = 0;
 
 # Set $debug to output some extra log messages (if logging is enabled).
-#$debug = 1;
+#$debug = 0;
 #$logto = '-'; # Log to stdout.
-#$logto = '/var/log/pop-before-smtp';
+$logto = '/var/log/pop-before-smtp';
 
 # Override the DB hash file we will create/update (".db" gets appended).
-#$dbfile = '/etc/postfix/pop-before-smtp';
+$dbfile = '/etc/postfix/pop-before-smtp';
 
 # Override the value that gets put into the DB hash.
-#$dbvalue = 'ok';
+$dbvalue = 'ok';
 
 # A 30-minute grace period before the IP address is expired.
-#$grace = 30*60;
+$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/mail';
 #$file_tail{'name'} = '/Library/Logs/MailService/AppleMailServer.IMAP.log';
 
 # ... or we'll try to figure it out for you.
@@ -65,11 +65,11 @@ if (!-f $file_tail{'name'}) {
 # the File::Tail pod (run "perldoc File::Tail" to find out details).
 # These commented-out values are the ones Daniel Roesen prefers.
 
-#$file_tail{'maxinterval'} = 2;
-#$file_tail{'interval'} = 1;
-#$file_tail{'adjustafter'} = 3;
-#$file_tail{'resetafter'} = 30;
-#$file_tail{'tail'} = -1;
+$file_tail{'maxinterval'} = 2;
+$file_tail{'interval'} = 1;
+$file_tail{'adjustafter'} = 3;
+$file_tail{'resetafter'} = 30;
+$file_tail{'tail'} = -1;
 
 =cut #============================ syslog =============================START=
 # If you want to output a log file of what pop-before-smtp is doing, you have
@@ -350,7 +350,7 @@ sub tie_NDBM
 }
 =cut #----------------------- Postfix NDBM_File -------------------------END-
 
-=cut #====================== Postfix BerkeleyDB =======================START=
+#====================== Postfix BerkeleyDB =======================START=
 # If you comment-out (or remove) the two surrounding =cut lines, we'll use
 # BerkeleyDB instead of DB_File.
 
@@ -375,7 +375,7 @@ sub sync_BerkeleyDB
 {
     $dbh->db_sync and die "$0: sync $dbfile: $!\n";
 }
-=cut #====================== Postfix BerkeleyDB =========================END=
+#====================== Postfix BerkeleyDB =========================END=
 
 =cut #------------------------ qmail tcprules -------------------------START-
 # If you comment-out (or remove) the two surrounding =cut lines, we'll use