20 lines
479 B
Plaintext
20 lines
479 B
Plaintext
{
|
|
$OUT = '';
|
|
|
|
use esmith::DomainsDB;
|
|
my $domainsdb = esmith::DomainsDB->open_ro();
|
|
|
|
for my $domain ($domainsdb->domains)
|
|
{
|
|
my $mail_server = $domain->prop('MailServer')
|
|
|| $DelegateMailServer
|
|
|| 'localhost';
|
|
|
|
next if ( $mail_server ne 'localhost' );
|
|
|
|
$emaildomain = $domain->key;
|
|
my $handler = $domain->prop('EmailTo') || "alias-localdelivery";
|
|
$OUT .= "$emaildomain:$handler\n";
|
|
}
|
|
}
|