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

Logging: Deactivate Memory target

Browse Source
This commit is contained in:
Jonathan Jenne 2022-04-22 13:40:22 +02:00
parent 70807ee06f
commit 90cd6ce469
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
Modules.Logging/LogConfig.vb
View File

@ -81,7 +81,7 @@ Public Class LogConfig
Private Const TARGET_ERROR As String = "errorTarget" Private Const TARGET_ERROR As String = "errorTarget"
Private Const TARGET_DEBUG As String = "debugTarget" Private Const TARGET_DEBUG As String = "debugTarget"
Private Const TARGET_TRACE As String = "traceTarget" Private Const TARGET_TRACE As String = "traceTarget"
Private Const TARGET_MEMORY As String = "memoryTarget" 'Private Const TARGET_MEMORY As String = "memoryTarget"
Private Const LOG_FORMAT_BASE As String = "${time}|${logger:shortName=True}|${level:uppercase=true}" Private Const LOG_FORMAT_BASE As String = "${time}|${logger:shortName=True}|${level:uppercase=true}"
Private Const LOG_FORMAT_CALLSITE As String = "${callsite:className=false:fileName=true:includeSourcePath=false:methodName=true}" Private Const LOG_FORMAT_CALLSITE As String = "${callsite:className=false:fileName=true:includeSourcePath=false:methodName=true}"
@ -95,7 +95,7 @@ Public Class LogConfig
Private Const FOLDER_NAME_LOG = "Log" Private Const FOLDER_NAME_LOG = "Log"
Private Const FILE_KEEP_RANGE As Integer = 30 Private Const FILE_KEEP_RANGE As Integer = 30
Private Const MAX_MEMORY_LOG_COUNT As Integer = 1000 'Private Const MAX_MEMORY_LOG_COUNT As Integer = 1000
Private ReadOnly _failSafePath As String = Path.GetTempPath() Private ReadOnly _failSafePath As String = Path.GetTempPath()
Private ReadOnly _basePath As String = _failSafePath Private ReadOnly _basePath As String = _failSafePath
@ -162,8 +162,9 @@ Public Class LogConfig
''' <returns>A list of log messages</returns> ''' <returns>A list of log messages</returns>
Public ReadOnly Property Logs As List(Of String) Public ReadOnly Property Logs As List(Of String)
Get Get
Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY) 'Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
Return oTarget?.Logs.ToList() 'Return oTarget?.Logs.ToList()
Return New List(Of String)
End Get End Get
End Property End Property
@ -374,8 +375,8 @@ Public Class LogConfig
''' Clears the internal log ''' Clears the internal log
''' </summary> ''' </summary>
Public Sub ClearLogs() Public Sub ClearLogs()
Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY) 'Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
oTarget?.Logs.Clear() 'oTarget?.Logs.Clear()
End Sub End Sub
''' <summary> ''' <summary>
@ -443,7 +444,7 @@ Public Class LogConfig
_config.AddTarget(TARGET_DEFAULT, GetDefaultLogTarget(_basePath)) _config.AddTarget(TARGET_DEFAULT, GetDefaultLogTarget(_basePath))
_config.AddTarget(TARGET_DEBUG, GetDebugLogTarget(_basePath)) _config.AddTarget(TARGET_DEBUG, GetDebugLogTarget(_basePath))
_config.AddTarget(TARGET_TRACE, GetTraceLogTarget(_basePath)) _config.AddTarget(TARGET_TRACE, GetTraceLogTarget(_basePath))
_config.AddTarget(TARGET_MEMORY, GetMemoryDebugTarget()) '_config.AddTarget(TARGET_MEMORY, GetMemoryDebugTarget())
' Add default rules ' Add default rules
AddDefaultRules(_config) AddDefaultRules(_config)
@ -460,7 +461,7 @@ Public Class LogConfig
config.AddRuleForOneLevel(LogLevel.Fatal, TARGET_ERROR_EX) config.AddRuleForOneLevel(LogLevel.Fatal, TARGET_ERROR_EX)
config.AddRuleForOneLevel(LogLevel.Warn, TARGET_DEFAULT) config.AddRuleForOneLevel(LogLevel.Warn, TARGET_DEFAULT)
config.AddRuleForOneLevel(LogLevel.Info, TARGET_DEFAULT) config.AddRuleForOneLevel(LogLevel.Info, TARGET_DEFAULT)
config.AddRuleForAllLevels(TARGET_MEMORY) 'config.AddRuleForAllLevels(TARGET_MEMORY)
End Sub End Sub
''' <summary> ''' <summary>
@ -576,15 +577,15 @@ Public Class LogConfig
Return debugLog Return debugLog
End Function End Function
Private Function GetMemoryDebugTarget() As MemoryTarget 'Private Function GetMemoryDebugTarget() As MemoryTarget
Dim memoryLog As New MemoryTarget() With { ' Dim memoryLog As New MemoryTarget() With {
.Layout = LOG_FORMAT_DEBUG, ' .Layout = LOG_FORMAT_DEBUG,
.Name = TARGET_MEMORY, ' .Name = TARGET_MEMORY,
.OptimizeBufferReuse = True, ' .OptimizeBufferReuse = True,
.MaxLogsCount = MAX_MEMORY_LOG_COUNT ' .MaxLogsCount = MAX_MEMORY_LOG_COUNT
} ' }
Return memoryLog ' Return memoryLog
End Function 'End Function
#End Region #End Region
End Class End Class