generated from smedev/Template-for-SMEServer-Core-Package
Jean-Philippe Pialasse
abba39ab3c
- fix catch-all behaviour [SME: 12382] myorigin now is hostname in case email sent outside by deamon generic rewrite occurs
20 lines
441 B
Plaintext
20 lines
441 B
Plaintext
# SME users
|
|
{
|
|
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 $user ($adb->users)
|
|
{
|
|
#next unless ($pseudo->key =~ /@/); <== aliase to emails or catch-all @domain.com are ok
|
|
$OUT .= $user->key . "\t\t\t".$user->key."\n";
|
|
}
|
|
}
|
|
|