# SME pseudonyms
{
    return "#/!\\=============> DelegateMailServer is set" if ($DelegateMailServer && ($DelegateMailServer !~ /^\s*$/));
    return "#/!\\=============> no virtual domain" if $mydomains =~ /^\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;
			}
      if ($pseudo->key =~ /^@/) 
      {
          $OUT .= '/^[^@]*'.$pseudo->key.'$/'."\t\t\t$account\n";
      }
      elsif ($pseudo->key =~ /@/)
      {
          $OUT .= '/^'.$pseudo->key.'$/'."\t\t\t$account\n";
      }
      else
      {
			    $OUT .= '/^'.$pseudo->key.'@('.$mydomains.')$/'."\t\t\t$account\n";
      }
    }
}
