Zooflow: Add Base class to Zooflow Module

Modules.ZooFlow/Base/BaseClass.vb

@@ -0,0 +1,21 @@
+Imports DigitalData.Modules.Logging
+
+Namespace Base
+    ''' <summary>
+    ''' Base Class which supplies a Logger/LogConfig
+    ''' </summary>
+    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
+End Namespace
+
+
+

Modules.ZooFlow/ZooFlow.vbproj

@@ -74,6 +74,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Base\BaseClass.vb" />
     <Compile Include="Constants.vb" />
     <Compile Include="Environment.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />