# 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"; } }