22 lines
581 B
VB.net
22 lines
581 B
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class BaseClass
|
|
Friend LogConfig As LogConfig
|
|
Friend Logger As Logger
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
LogConfig = pLogConfig
|
|
Logger = pLogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Sub LogAndThrow(pMessage As String)
|
|
Logger.Warn(pMessage)
|
|
Throw New ApplicationException(pMessage)
|
|
End Sub
|
|
|
|
Public Sub LogAndThrow(pException As Exception, pMessage As String)
|
|
Logger.Error(pException)
|
|
Throw New ApplicationException(pMessage, pException)
|
|
End Sub
|
|
End Class
|