TekH
eb533a1dc2
The project `EnvelopeGenerator.Service` has been removed from the solution and replaced with a new project, `EnvelopeGenerator.Service_legacy`. Updated build configuration mappings to reflect the addition of `Service_legacy` and the removal of `Service`. Adjusted project nesting to place `Service_legacy` under the same parent as the removed `Service`.
34 lines
1.3 KiB
VB.net
34 lines
1.3 KiB
VB.net
Imports Quartz.Logging
|
|
|
|
Public Class LogProvider
|
|
Implements ILogProvider
|
|
|
|
Private ReadOnly Logger As DigitalData.Modules.Logging.Logger
|
|
|
|
Public Sub New(Logger As DigitalData.Modules.Logging.Logger)
|
|
MyBase.New()
|
|
Me.Logger = Logger
|
|
End Sub
|
|
|
|
Public Function OpenNestedContext(message As String) As IDisposable Implements ILogProvider.OpenNestedContext
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
Public Function OpenMappedContext(key As String, value As Object, Optional destructure As Boolean = False) As IDisposable Implements ILogProvider.OpenMappedContext
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
Private Function GetLogger(name As String) As Logger Implements ILogProvider.GetLogger
|
|
Return Function(level, func, exception, parameters)
|
|
If exception IsNot Nothing Then
|
|
Logger.Error(exception)
|
|
ElseIf level >= LogLevel.Debug AndAlso func IsNot Nothing Then
|
|
Logger.Debug(func(), parameters)
|
|
ElseIf level >= LogLevel.Info AndAlso func IsNot Nothing Then
|
|
Logger.Info(func(), parameters)
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
End Function
|
|
End Class |