{ 
    use esmith::ConfigDB; 
    
    my $dbh = esmith::ConfigDB->open_ro('spamassassin')
      || die "Unable to open spamassassin configuration dbase.";
    my %wbl = $dbh->get('wbl.global_to')->props;
    
    $OUT = '';
    my $parameter = "";
    my $value = "";
    while (($parameter,$value) = each(%wbl)) {
        if ($parameter eq "type") {next;}
 
        if ($value eq "White") {
            $OUT .= "whitelist_to " . $parameter . "\n";
        } elsif ($value eq "Black") {
            $OUT .= "blacklist_to " . $parameter . "\n";
        }
    } 
} 
