* Fix LMTP and DELIVERY parsing in config file while trying to get control credits

diff --git a/rspamc.pl.in b/rspamc.pl.in
index 8caeb28a386ca59cf7eee30ce7eda2fec082ecc4..c8d7f07d0ca4935b2ffb7a72baf088454ee7fd64 100755 (executable)
--- a/rspamc.pl.in
+++ b/rspamc.pl.in
@@ -31,15 +31,21 @@ sub parse_config {
 
     open CONF, "< $cfg{'conf_file'}" or die "config file $cfg{'conf_file'} cannot be opened";
 
-    my $ctrl = 0;
+    my $ctrl = 0, $skip = 0;
     while (<CONF>) {
-        if ($_ =~ /control\s*{/i || $_ =~ /lmtp\s*{/i || $_ =~ /delivery\s*{/i) {
+        if ($_ =~ /control\s*{/i) {
             $ctrl = 1;
         }
         if ($ctrl && $_ =~ /}/) {
             $ctrl = 0;
         }
-        if (((!$is_ctrl && !$ctrl) || ($ctrl && $is_ctrl))
+        if ($_ =~ /lmtp\s*{/i || $_ =~ /delivery\s*{/i) {
+            $skip = 1;
+        }
+        if ($skip && $_ =~ /}/) {
+            $skip = 0;
+        }
+        if (!$skip && ((!$is_ctrl && !$ctrl) || ($ctrl && $is_ctrl))
                 && $_ =~ /^\s*bind_socket\s*=\s*((([^:]+):(\d+))|(\/\S*))/i) {
             if ($3 && $4) {
                 $cfg{'host'} = $3;