generated from smedev/Template-for-SMEServer-Core-Package
Jean-Philippe Pialasse
aa8479eaa9
- listen only via sockets - use both unix user and virtual users - groups and pseudonyms implemented in virtual maps - support smarthost with and without auth - support global and per domain delegated mail server - support ssl - uses qmail - recipient delimiter in left part of email. - all domains set as local domains in mydestination - message_size_limit - local and remote concurency limit
28 lines
679 B
Plaintext
28 lines
679 B
Plaintext
# SME pseudonyms
|
|
{
|
|
my $dms = $DelegateMailServer;
|
|
|
|
return "# DelegateMailServer is set" if ($dms && ($dms !~ /^\s*$/));
|
|
|
|
$OUT = "";
|
|
|
|
use esmith::AccountsDB;
|
|
|
|
my $adb = esmith::AccountsDB->open_ro or die "Couldn't open AccountsDB";
|
|
|
|
for my $pseudo ($adb->pseudonyms)
|
|
{
|
|
#next unless ($pseudo->key =~ /@/);
|
|
|
|
my $account = $pseudo->prop("Account");
|
|
$account = "admin" and warn $pseudo->prop("Account") . " is not a valid account, default to admin " unless $adb->get($account);
|
|
my $acct = $adb->get($account);
|
|
if ($acct->prop('type') eq "group")
|
|
{
|
|
$account =~ s/\./:/g;
|
|
}
|
|
|
|
$OUT .= $pseudo->key . "\t\t\t$account\n";
|
|
}
|
|
}
|