EDMI: Add 3-tier database access in DatabaseWithFallback, add client config,

EDMI Service: Version 2.4.0.0
EDMI: API: Version 1.4.0.0

Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigMethod.vb

@@ -0,0 +1,22 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Namespace Methods.Base.GetClientConfig
+    Public Class GetClientConfigMethod
+        Inherits BaseMethod
+
+        Public Sub New(pLogConfig As LogConfig, pDatabaseIDB As MSSQLServer, pDatabaseECM As MSSQLServer, pGlobalState As GlobalState)
+            MyBase.New(pLogConfig, pDatabaseIDB, pDatabaseECM, pGlobalState)
+        End Sub
+
+        Public Function Run() As GetClientConfigResponse
+            Try
+                Return New GetClientConfigResponse(GlobalState.ClientConfig)
+            Catch ex As Exception
+                Logger.Warn("Error occurred while getting client config!")
+                Return New GetClientConfigResponse(ex)
+            End Try
+        End Function
+    End Class
+
+End Namespace

Service.EDMIService/Methods/Base/GetClientConfig/GetClientConfigResponse.vb

@@ -0,0 +1,23 @@
+Imports System.Runtime.Serialization
+
+Namespace Methods.Base.GetClientConfig
+
+    <Serializable>
+    <DataContract>
+    Public Class GetClientConfigResponse
+        Inherits Messages.BaseResponse
+
+        <DataMember>
+        Public Property ClientConfig As Config.ClientConfiguration
+
+        Public Sub New(pConfig As Config.ClientConfiguration)
+            MyBase.New()
+            ClientConfig = pConfig
+        End Sub
+
+        Public Sub New(pException As Exception, Optional pDetails As String = "")
+            MyBase.New(pException, pDetails)
+        End Sub
+    End Class
+
+End Namespace