Base: Add BaseClass

Modules.Base/Base/BaseClass.vb

@@ -0,0 +1,13 @@
+Imports DigitalData.Modules.Logging
+
+Public Class BaseClass
+    Protected LogConfig As LogConfig
+    Protected Logger As Logger
+
+    Public Sub New(LogConfig As LogConfig)
+        Dim oClassName = Me.GetType().Name
+
+        Me.LogConfig = LogConfig
+        Me.Logger = LogConfig.GetLogger(oClassName)
+    End Sub
+End Class