initial commit of file from CVS for e-smith-qmail on Wed 12 Jul 09:06:46 BST 2023

This commit is contained in:
Brian Read
2023-07-12 09:06:46 +01:00
parent 522798702f
commit 2d08981b2a
67 changed files with 2072 additions and 2 deletions

View File

@@ -0,0 +1,17 @@
{
$OUT = "";
use esmith::DomainsDB;
my $ddb = esmith::DomainsDB->open_ro();
for my $domain ( $ddb->domains )
{
my $mail_server = $domain->prop('MailServer')
|| $DelegateMailServer
|| 'localhost';
next if ( $mail_server eq 'localhost' );
$OUT .= $domain->key . ":$mail_server\n";
}
}