MS IDB und WINDREAM
This commit is contained in:
@@ -2,6 +2,7 @@
|
||||
Imports DLLLicenseManager
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.Config
|
||||
Imports DigitalData.Modules.Windream
|
||||
|
||||
Public Class ClassInit
|
||||
Public _lizenzManager As ClassLicenseManager
|
||||
@@ -70,6 +71,23 @@ Public Class ClassInit
|
||||
Else
|
||||
Throw New Exception("Unexpected error while initializing basic-settings. More info in the log.")
|
||||
End If
|
||||
Else
|
||||
If IDB_ACTIVE = False Then
|
||||
Try
|
||||
WINDREAM = New Windream(LOGCONFIG, False, "", "", True, "", "", "", "")
|
||||
If Not IsNothing(WINDREAM) Then
|
||||
If WINDREAM.SessionLoggedin = True Then
|
||||
LOGGER.Debug("windream initialisiert")
|
||||
Else
|
||||
Throw New Exception("Could not create a windream session")
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("CHECKING WMConnectivity: " & ex.Message)
|
||||
Throw New Exception("Unexpected error in CHECKING WMConnectivity")
|
||||
End Try
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -80,12 +98,12 @@ Public Class ClassInit
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(oSql)
|
||||
If DT.Rows.Count = 1 Then
|
||||
GI_withWindream = DT.Rows(0).Item("BIT1")
|
||||
vWLaufwerk = DT.Rows(0).Item("STRING1")
|
||||
|
||||
'vWLaufwerk = DT.Rows(0).Item("STRING1")
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_BasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
@@ -199,36 +217,10 @@ Public Class ClassInit
|
||||
End Sub
|
||||
Public Sub InitUserLogin()
|
||||
Try
|
||||
Dim sql = "SELECT MAX(GUID) FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
|
||||
sql = sql.Replace("@user", Environment.UserName)
|
||||
' LOGGER.Info(">> Username: " & Environment.UserName)
|
||||
Dim oSql As String
|
||||
|
||||
USER_ID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
Try
|
||||
Dim USERID = CInt(USER_ID)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)")
|
||||
LOGGER.Error(ex.Message)
|
||||
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
'Me.Close()
|
||||
START_INCOMPLETE = True
|
||||
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
Dim oUserDatatable As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBDD_USER WHERE GUID = {USER_ID}")
|
||||
If Not IsNothing(oUserDatatable) AndAlso Not IsDBNull(oUserDatatable.Rows.Item(0)) Then
|
||||
Dim oRow As DataRow = oUserDatatable.Rows.Item(0)
|
||||
USER_SHORT_NAME = NotNull(oRow.Item("SHORTNAME"), String.Empty)
|
||||
USER_PRENAME = NotNull(oRow.Item("PRENAME"), String.Empty)
|
||||
USER_SURNAME = NotNull(oRow.Item("NAME"), String.Empty)
|
||||
USER_EMAIL = NotNull(oRow.Item("EMAIL"), String.Empty)
|
||||
USER_USERNAME = NotNull(oRow.Item("USERNAME"), String.Empty)
|
||||
End If
|
||||
|
||||
'Check_User_Exists_in_GIGroups()
|
||||
sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','GLOBIX',{1})", Environment.UserName, 1)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(oSql)
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
|
||||
LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0")
|
||||
START_INCOMPLETE = True
|
||||
@@ -237,7 +229,23 @@ Public Class ClassInit
|
||||
Exit Sub
|
||||
End If
|
||||
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
|
||||
If DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID") = 0 Then
|
||||
LOGGER.Info("User '" & Environment.UserName & "' not configured in Useradministration!")
|
||||
START_INCOMPLETE = True
|
||||
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
|
||||
Exit Sub
|
||||
End If
|
||||
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
|
||||
USER_ID = DT_CHECKUSER_MODULE.Rows(0).Item("USER_ID")
|
||||
USER_SURNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SURNAME"))
|
||||
USER_PRENAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_PRENAME"))
|
||||
USER_SHORTNAME = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_SHORTNAME"))
|
||||
USER_EMAIL = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL")), "", DT_CHECKUSER_MODULE.Rows(0).Item("USER_EMAIL"))
|
||||
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
|
||||
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
|
||||
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
|
||||
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
|
||||
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
|
||||
If USER_IN_MODULE = False Then
|
||||
LOGGER.Info(" - User: " & Environment.UserName & " nicht für Modul freigegben!")
|
||||
START_INCOMPLETE = True
|
||||
@@ -261,22 +269,22 @@ Public Class ClassInit
|
||||
End If
|
||||
USER_LANGUAGE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_LANGUAGE")
|
||||
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(sql)
|
||||
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
|
||||
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
|
||||
UserLoggedin = CInt(anzahl)
|
||||
UserLoggedin += 1
|
||||
If LICENSE_COUNT < UserLoggedin And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
|
||||
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(oSql, True)
|
||||
oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')"
|
||||
ClassDatabase.Execute_non_Query(oSql)
|
||||
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')"
|
||||
' Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
|
||||
'LOGGER.Info(" >> Anzahl Angemeldete User: " & anzahl.ToString)
|
||||
' UserLoggedin = CInt(anzahl)
|
||||
' UserLoggedin += 1
|
||||
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
|
||||
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
|
||||
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
|
||||
If USER_IS_ADMIN = False Then
|
||||
'Anmeldung wieder herausnehmen
|
||||
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
|
||||
ClassDatabase.Execute_non_Query(sql, True)
|
||||
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"
|
||||
ClassDatabase.Execute_non_Query(oSql, True)
|
||||
LOGGER.Info(" - Wieder abgemeldet")
|
||||
START_INCOMPLETE = True
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user