{
    use esmith::config;
    use esmith::db;

    $OUT = "";

    #--------------------------------------------------
    # First check for delegate mail server
    #--------------------------------------------------

    if ($DelegateMailServer && ($DelegateMailServer !~ /^\s*$/))
    {
        $OUT .= "$DomainName:[$DelegateMailServer]\n";

        my %domains;
        tie %domains, 'esmith::config', '/home/e-smith/domains';

        my $key;

        foreach $key (db_get(\%domains))
        {
            if (db_get_type(\%domains, $key) eq 'domain')
            {
                $OUT .= "$key:[$DelegateMailServer]\n";
            }
        }
    }
}
