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