WIP: cleanup, work on doc result form

Modules.ZooFlow/State/ModuleState.vb

@@ -0,0 +1,7 @@
+Namespace State
+    Public Class ModuleState
+        Public Property HasAccess As Boolean
+        Public Property IsAdmin As Boolean
+        Public Property LoggedIn As Integer
+    End Class
+End Namespace

Modules.ZooFlow/State/ServiceState.vb

@@ -0,0 +1,6 @@
+Namespace State
+    Public Class ServiceState
+        Public Property Online As Boolean = True
+        Public Property LastChecked As DateTime = DateTime.Now
+    End Class
+End Namespace

Modules.ZooFlow/State/SettingsState.vb

@@ -0,0 +1,5 @@
+Namespace State
+    Public Class SettingsState
+        Public GdPictureKey As String = String.Empty
+    End Class
+End Namespace

Modules.ZooFlow/State/UserState.vb

@@ -0,0 +1,28 @@
+Imports System.Threading
+
+Namespace State
+    ''' <summary>
+    ''' Helper Class to hold User State
+    ''' </summary>
+    Public Class UserState
+        Public Property UserId As Integer
+        Public Property UserName As String
+        Public Property Surname As String
+        Public Property GivenName As String
+        Public Property ShortName As String
+        Public Property Email As String
+        Public Property MachineName As String
+        Public Property DateFormat As String
+        Public Property Language As String
+
+        ''' <summary>
+        ''' Initialize user object with values that can be read from the environment
+        ''' </summary>
+        Public Sub New()
+            Language = Thread.CurrentThread.CurrentCulture.Name
+            UserName = System.Environment.UserName
+            MachineName = System.Environment.MachineName
+        End Sub
+    End Class
+End Namespace
+