AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

EDMIService: Add Logging to UpdateTraceLogging

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-06 17:09:55 +02:00
parent 33d3af4de8
commit 5218782131
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Service.EDMIService/WindowsService.vb
View File

@ -133,15 +133,25 @@ Public Class WindowsService
End Sub End Sub
Private Sub UpdateTraceLogging() Private Sub UpdateTraceLogging()
Try
' Changing Tracelevels programmatically, ' Changing Tracelevels programmatically,
' See: https://wcfpro.wordpress.com/2010/11/21/how-to-add-wcf-traces-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")
Dim oTraceLevel = SourceLevels.Off Dim oTraceLevel = SourceLevels.Off
_Logger.Debug("Debug is currently set to {0}", _ConfigManager.Config.Debug)
If _ConfigManager.Config.Debug Then If _ConfigManager.Config.Debug Then
oTraceLevel = SourceLevels.Warning oTraceLevel = SourceLevels.Warning
End If End If
_Logger.Debug("Setting TraceLevel to {0}", oTraceLevel)
WcfTracesController.Instance.LevelController(oTraceLevel) WcfTracesController.Instance.LevelController(oTraceLevel)
Catch ex As Exception
_Logger.Warn("TraceLogging could not be updated!")
_Logger.Error(ex)
End Try
End Sub End Sub
Private Function StartFirebird() As Firebird Private Function StartFirebird() As Firebird