{
    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";
	    }
	}
    }
}
