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_DEBUG As String = "debugTarget"
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_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 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 _basePath As String = _failSafePath
@ -162,8 +162,9 @@ Public Class LogConfig
''' <returns>A list of log messages</returns>
Public ReadOnly Property Logs As List(Of String)
Get
Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
Return oTarget?.Logs.ToList()
'Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
'Return oTarget?.Logs.ToList()
Return New List(Of String)
End Get
End Property
@ -374,8 +375,8 @@ Public Class LogConfig
''' Clears the internal log
''' </summary>
Public Sub ClearLogs()
Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
oTarget?.Logs.Clear()
'Dim oTarget = _config.FindTargetByName(Of MemoryTarget)(TARGET_MEMORY)
'oTarget?.Logs.Clear()
End Sub
''' <summary>
@ -443,7 +444,7 @@ Public Class LogConfig
_config.AddTarget(TARGET_DEFAULT, GetDefaultLogTarget(_basePath))
_config.AddTarget(TARGET_DEBUG, GetDebugLogTarget(_basePath))
_config.AddTarget(TARGET_TRACE, GetTraceLogTarget(_basePath))
_config.AddTarget(TARGET_MEMORY, GetMemoryDebugTarget())
'_config.AddTarget(TARGET_MEMORY, GetMemoryDebugTarget())
' Add default rules
AddDefaultRules(_config)
@ -460,7 +461,7 @@ Public Class LogConfig
config.AddRuleForOneLevel(LogLevel.Fatal, TARGET_ERROR_EX)
config.AddRuleForOneLevel(LogLevel.Warn, TARGET_DEFAULT)
config.AddRuleForOneLevel(LogLevel.Info, TARGET_DEFAULT)
config.AddRuleForAllLevels(TARGET_MEMORY)
'config.AddRuleForAllLevels(TARGET_MEMORY)
End Sub
''' <summary>
@ -576,15 +577,15 @@ Public Class LogConfig
Return debugLog
End Function
Private Function GetMemoryDebugTarget() As MemoryTarget
Dim memoryLog As New MemoryTarget() With {
.Layout = LOG_FORMAT_DEBUG,
.Name = TARGET_MEMORY,
.OptimizeBufferReuse = True,
.MaxLogsCount = MAX_MEMORY_LOG_COUNT
}
'Private Function GetMemoryDebugTarget() As MemoryTarget
' Dim memoryLog As New MemoryTarget() With {
' .Layout = LOG_FORMAT_DEBUG,
' .Name = TARGET_MEMORY,
' .OptimizeBufferReuse = True,
' .MaxLogsCount = MAX_MEMORY_LOG_COUNT
' }
Return memoryLog
End Function
' Return memoryLog
'End Function
#End Region
End Class