EDMIService: First version of GetAccessRight

Service.EDMIService/WindowsService.vb

@@ -60,7 +60,7 @@ Public Class WindowsService
             _Archive = New EDMI.File.Archive(_LogConfig)
             _Filesystem = New Filesystem.File(_LogConfig)
             _Global = New GlobalState(_LogConfig, _MSSQL_IDB, _MSSQL_ECM)
-            _Scheduler = New Scheduler(_LogConfig, _MSSQL_ECM)
+            _Scheduler = New Scheduler(_LogConfig, _MSSQL_ECM, _Global.TableStore)
 
             _Logger.Debug("Loading Objectstores")
             _Global.LoadObjectStores()
@@ -107,15 +107,28 @@ Public Class WindowsService
 
     Private Function StartFirebird() As Firebird
         _Logger.Debug("Connecting to Firebird")
-        Dim oFirebird = New Firebird(
-            _LogConfig,
-            _Config.Firebird_Datasource,
-            _Config.Firebird_DatabaseName,
-            _Config.Firebird_DatabaseUser,
-            _Config.Firebird_DatabasePassword
-        )
-        _Logger.Info("Database connection established.")
-        Return oFirebird
+
+        If _Config.Firebird_Datasource = String.Empty Then
+            _Logger.Info("Firebird database not configured. Skipping.")
+            Return Nothing
+        End If
+
+        Try
+            Dim oFirebird = New Firebird(
+                _LogConfig,
+                _Config.Firebird_Datasource,
+                _Config.Firebird_DatabaseName,
+                _Config.Firebird_DatabaseUser,
+                _Config.Firebird_DatabasePassword
+            )
+
+            _Logger.Info("Database connection established.")
+            Return oFirebird
+        Catch ex As Exception
+            _Logger.Warn("StartFirebird: Could not connect to firebird database.")
+            _Logger.Error(ex)
+            Return Nothing
+        End Try
     End Function
 
     Private Function StartMSSQL_ECM() As MSSQLServer