From 5218782131bc73849bcd7adaf3266a435823c787 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Tue, 6 Apr 2021 17:09:55 +0200
Subject: [PATCH] EDMIService: Add Logging to UpdateTraceLogging

---
 Service.EDMIService/WindowsService.vb | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/Service.EDMIService/WindowsService.vb b/Service.EDMIService/WindowsService.vb
index bf0c1f85..26bb05b8 100644
--- a/Service.EDMIService/WindowsService.vb
+++ b/Service.EDMIService/WindowsService.vb
@@ -133,15 +133,25 @@ Public Class WindowsService
     End Sub
 
     Private Sub UpdateTraceLogging()
-        ' Changing Tracelevels programmatically,
-        ' See: https://wcfpro.wordpress.com/2010/11/21/how-to-add-wcf-traces-programmatically/
-        Dim oTraceLevel = SourceLevels.Off
+        Try
+            ' Changing Tracelevels programmatically,
+            ' See: https://wcfpro.wordpress.com/2010/11/21/how-to-add-wcf-traces-programmatically/
+            _Logger.Debug("UpdateTraceLogging running..")
+            _Logger.Debug("SourceLevels is off by default")
 
-        If _ConfigManager.Config.Debug Then
-            oTraceLevel = SourceLevels.Warning
-        End If
+            Dim oTraceLevel = SourceLevels.Off
+
+            _Logger.Debug("Debug is currently set to {0}", _ConfigManager.Config.Debug)
+            If _ConfigManager.Config.Debug Then
+                oTraceLevel = SourceLevels.Warning
+            End If
 
-        WcfTracesController.Instance.LevelController(oTraceLevel)
+            _Logger.Debug("Setting TraceLevel to {0}", oTraceLevel)
+            WcfTracesController.Instance.LevelController(oTraceLevel)
+        Catch ex As Exception
+            _Logger.Warn("TraceLogging could not be updated!")
+            _Logger.Error(ex)
+        End Try
     End Sub
 
     Private Function StartFirebird() As Firebird