{
    $OUT = '';

    use esmith::DomainsDB;
    my $domainsdb = esmith::DomainsDB->open_ro();
    


    for my $domain ($domainsdb->get_all)
    {  
        
        my $mail_server = $domain->prop('MailServer')
                          || $DelegateMailServer
                          || 'localhost';

        if ( $mail_server ne 'localhost' )
        {
					 my ($dest,$port) = split(':',$mail_server);
					 $port = ( $port  =~ /^\d+$/)? $port : "25";
           $emaildomain = $domain->key;
           $OUT .= "$emaildomain\t smtp:[$dest]:$port\n";
        }
				else
				{
					$emaildomain = $domain->key;
					$OUT .= "$emaildomain\t local:\$myhostname\n";
				}

    }
    
}
