From f9b4d76995eaf7af073a9480e39e58193d50ce81 Mon Sep 17 00:00:00 2001
From: vfportero <devnull@localhost>
Date: Tue, 16 Aug 2011 10:07:46 +0200
Subject: [PATCH] Add support to "Enabled" and "MaxMailboxSize" properties in a
 MailDomain

---
 .../Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb     | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb b/WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb
index 60f63274..bf3cf03f 100644
--- a/WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb
+++ b/WebsitePanel/Sources/WebsitePanel.Providers.Mail.Merak/Merak.vb
@@ -188,6 +188,9 @@ Public Class Merak
 		domainItem.CatchAllAccount = GetEmailAlias(CStr(domainObjectClass.GetProperty("D_UnknownForwardTo")))
         domainItem.AbuseAccount = ""
 
+        domainItem.Enabled = CInt(domainObjectClass.GetProperty("D_DisableLogin")) = 0
+        domainItem.MaxMailboxSizeInMB = CStr(domainObjectClass.GetProperty("D_UserMailbox"))
+
         'Dim abuseEmail As String = "abuse@" + domainName
 
         'If MailboxExists(abuseEmail) Then
@@ -251,7 +254,9 @@ Public Class Merak
 		Dim apiObject = CreateObject(API_PROGID)
 		apiObject.SetProperty(MerakInterop.C_Config_UseDomainLimits, 1)
 
-		domainObject.SetProperty(MerakInterop.D_DisableLogin, IIf(domain.Enabled, 0, 1))
+        domainObject.SetProperty(MerakInterop.D_DisableLogin, IIf(domain.Enabled, 0, 1))
+        domainObject.SetProperty("D_UnknownUsersType", domain.MaxMailboxSizeInMB)
+
 
 		'create abuse account mailbox
 		'If Not Utils.IsStringNullOrEmpty(domain.AbuseAccount, True) Then