MS IDB und WINDREAM

Global_Indexer/ClassParamRefresh.vb

@@ -0,0 +1,53 @@
+Public Class ClassParamRefresh
+    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
+        If DT_CHECKUSER.Rows.Count = 1 Then
+            USERCOUNT_LOGGED_IN = DT_CHECKUSER.Rows(0).Item("USERCOUNT_LOGGED_IN")
+            Try
+                WORKING_MODE = DT_CHECKUSER.Rows(0).Item("WORKING_MODE")
+            Catch ex As Exception
+                WORKING_MODE = ""
+            End Try
+            'Try
+            '    ADDITIONAL_TITLE = DT_CHECKUSER.Rows(0).Item("ADDITIONAL_TITLE")
+            '    If ADDITIONAL_TITLE = String.Empty Then
+            '        ADDITIONAL_TITLE = My.Application.Info.ProductName
+            '    End If
+            'Catch ex As Exception
+            '    ADDITIONAL_TITLE = My.Application.Info.ProductName
+            'End Try
+
+            Dim oSplitWorkMode As String() = WORKING_MODE.Split("#")
+
+            ' Use For Each loop over words and display them.
+            Dim oMode As String
+            For Each oMode In oSplitWorkMode
+                LOGGER.Debug($"oWorkingMode Parameter: {oMode}")
+                If oMode.StartsWith("IDB_CONID!") Then
+                    Dim CON_ID = oMode.Replace("GLOBIX.IDB_CONID!", "")
+                    Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
+                    CONNECTION_STRING_IDB = oConString
+                    Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE"
+                    Dim oDT As DataTable = ClassDatabase.Return_Datatable_CS(oSQL, CONNECTION_STRING_IDB)
+                    If Not IsNothing(oDT) Then
+                        If oDT.Rows.Count > 0 Then
+                            IDB_ACTIVE = True
+                        Else
+                            LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DTAttribute.Row.Count is [{oDT.Rows.Count}]!!")
+                        End If
+                    Else
+                        LOGGER.Warn($"Got an IDB-ConnID [{CON_ID}] but check DT Attribute is Nothing!!")
+                    End If
+                ElseIf oMode.StartsWith("IDB.LOG_INDEX") Then
+                    IDB_LOG_INDEX = oMode.Replace("IDB.LOG_INDEX!", "")
+                    'ElseIf oMode.StartsWith("PM.COLORSCHEME") Then
+                    '    Dim oColorScheme = oMode.Replace("PM.COLORSCHEME=", "")
+                    '    RIBBON_COLOR_SCHEME = oColorScheme.ToUpper
+
+                Else
+                    LOGGER.Info($"Wrong oMode: {oMode}")
+                End If
+            Next
+
+        End If
+    End Sub
+End Class