if ($config->get("campaigntransfer_db", fail_soft => 1)) { <br>
my($dbconn, $dbuser, $dbpass, $dbschema) = split(/\s+/, $config->get("campaigntransfer_db"));<br>
my $dbh = DBI->connect("dbi:Pg:dbname=hermes","hermes","",{ RaiseError => 1, PrintError => 0, AutoCommit => 0, ShowErrorStatement => 1 });<br>
my @bannedemails;<br>
$qentry->logger->info("debug Ravish 1st line");<br>
# Check specific emails first, then regex matches
#  Check locale-specific bans before global bans
my $stmt = $dbh->prepare_cached("select regex, email, '['  <br>|| id || case locale when '*' then '*' else '' end || <br>case regex when 't' then '+' else '' end || '] ' || reason as message from ".($dbschema ? "$dbschema." : "")."bannedemails where locale <br>in (?, '*') order by case regex when 't' then 1 else 0 end, case locale when '*' then 1 else 0 end"); <br>
$stmt->execute($qentry->campaign_locale);<br>
        my($is_regex, $pattern, $reason);<br>
$stmt->bind_columns(\$is_regex, \$pattern, \$reason); <br>
        my @regexes;
        my %literal;
        while ($stmt->fetch) { <br>
            my $regex;
            if ($is_regex) { <br>
                push @regexes, [qr{$pattern}i, $reason]; <br>
            }
else {
                $literal{lc($pattern)} = $reason;
            }
        }
        $dbh->disconnect; <br>
$qentry->logger->info("debug Ravish 2nd line");<br>
$qentry->logger->debug1("Fetched ".(scalar @regexes)." regexes and ".(scalar keys %literal)." literal email <br>addresses to blacklist");
        return (\@regexes, \%literal); <br>
    }

    return ([], {}); <br>