15 lines
313 B
Plaintext
15 lines
313 B
Plaintext
|
{
|
||
|
|
use esmith::DomainsDB;
|
||
|
|
|
||
|
|
my $ddb = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n";
|
||
|
|
|
||
|
|
my @rcpt_hosts = ( "$SystemName.$DomainName" );
|
||
|
|
|
||
|
|
foreach my $domain ( $ddb->get_all_by_prop( type => "domain" ) )
|
||
|
|
{
|
||
|
|
push @rcpt_hosts, $domain->key;
|
||
|
|
}
|
||
|
|
|
||
|
|
$OUT = join "\n", @rcpt_hosts;
|
||
|
|
}
|