EDMI Service: WIP

Service.EDMIService/AppConfig.vb

@@ -8,6 +8,7 @@ Public Class AppConfig
     Public Shared ContainerPath As String
     Public Shared ContainerPassword As String
     Public Shared DatastorePath As String
+    Public Shared MSSQLConnectionString As String
 
     Public Shared Sub Load()
         With ConfigurationManager.AppSettings
@@ -15,9 +16,22 @@ Public Class AppConfig
             FirebirdDatabase = .Item("FIREBIRD_DATABASE_NAME")
             FirebirdUser = .Item("FIREBIRD_DATABASE_USER")
             FirebirdPassword = .Item("FIREBIRD_DATABASE_PASS")
+
+            MSSQLConnectionString = .Item("MSSQL_CONNECTION_STRING")
+
             ContainerPath = .Item("CONTAINER_PATH")
             ContainerPassword = .Item("CONTAINER_PASSWORD")
+
             DatastorePath = .Item("DATASTORE_PATH")
         End With
     End Sub
+
+    Public Shared Function IsFirebirdConfigured() As Boolean
+        Dim oProps As New List(Of String) From {FirebirdDataSource, FirebirdDatabase, FirebirdUser, FirebirdPassword}
+        Return Not oProps.Any(Function(Prop) String.IsNullOrWhiteSpace(Prop))
+    End Function
+
+    Public Shared Function IsMSSQLConfigured() As Boolean
+        Return Not String.IsNullOrWhiteSpace(MSSQLConnectionString)
+    End Function
 End Class