ClipboardWatcher/app/DD_Clipboard_Searcher/ClassInit.vb

Imports System.ComponentModel
Imports DD_LIB_Standards
Imports System.IO

Public Class ClassInit
    Public _lizenzManager As clsLicenseManager
    Public Sub InitLogger()
        Try
            ' legt den Speicherort fest
            Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\Clipboard Searcher\Log"))
            If IO.Directory.Exists(f.ToString) = False Then
                IO.Directory.CreateDirectory(f.ToString)
            End If
         
            Dim logfilename As String = f.ToString & "\" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
            LOGGER_FILEPATH = logfilename
            clsLogger.LOGFILE_PATH = LOGGER_FILEPATH
        Catch ex As Exception
            MsgBox("Unexpected Error while initializing Logger: " & ex.Message, MsgBoxStyle.Critical)
        End Try
       
    End Sub
    Public Function InitDatabase()
        Dim dbResult As Boolean
        clsDatabase.GUI = True
        If MyConnectionString <> String.Empty Then
            dbResult = clsDatabase.Init(MyConnectionString)
        Else
            MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information)
            ERROR_INIT = "NO DB-CONNECTION"
            frmConfig_Basic.ShowDialog()
            dbResult = clsDatabase.Init(MyConnectionString)
            InitBasics()
        End If
        If dbResult = False Then
            ERROR_INIT = "FAILED DBCONNECTION"
            MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
            Return False
        Else
            Return True
        End If
    End Function
    Public Function InitBasics()
        Dim configResult As Boolean
        configResult = LoadMyConfig()
        If configResult = False Then
            Throw New Exception("Unexpected error inm Initialisieren der Basis-Einstellungen. Weitere Informationen finden Sie in der Logdatei.")
        Else
            Return False
        End If
    End Function
    Public Shared Function InitUserLogin(Optional _User As String = "")
        Try
            If _User = "" Then
                USER_USERNAME = Environment.UserName
            Else
                USER_USERNAME = _User
            End If
            Try
                DT_CLIENT_USER = clsDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName), False)
                If DT_CLIENT_USER.Rows.Count > 1 Then
                    frmClientLogin.ShowDialog()
                ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
                    CLIENT_SELECTED = DT_CLIENT_USER.Rows(0).Item("CLIENT_ID")
                Else
                    clsLogger.Add("User '" & USER_USERNAME & "' not related to a client", True)
                    ERROR_INIT = "NO CLIENT"
                    'ERROR_STATE = "NO CLIENT"
                    Return False
                End If
            Catch ex As Exception
                clsLogger.Add("Unexpected error in checking CLIENT: " & ex.Message)
                CLIENT_SELECTED = 1
            End Try

            'ClassLogger.Add(">> Username: " & USER_USERNAME, False)
            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
            Dim DT_CHECKUSER_MODULE As DataTable = clsDatabase.Return_Datatable(sql)
            If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                clsLogger.Add("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
                'ERROR_STATE = "NO USER"
                MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
                Return False
            End If
            If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
                clsLogger.Add(">> Login Username: " & USER_USERNAME, False)
                clsLogger.Add(">> Login time: " & Now.ToString, False)
                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")


            Else
                clsLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
                'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                'Me.Close()
                Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
                MsgBox(msg, MsgBoxStyle.Exclamation)
                Return False
            End If

            If USER_IN_MODULE = False Then
                If USER_IS_ADMIN = False Then
                    clsLogger.Add(" - User: " & USER_USERNAME & " not related to module!", False)
                    Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systemadministrator in Verbindung!")

                    If USER_LANGUAGE <> "de-DE" Then
                        msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
                    End If
                    MsgBox(msg, MsgBoxStyle.Exclamation, "Attention:")
                    Return False
                End If
            End If
            'Am System anmelden
            clsLicense.Refresh_Licence(DT_CLIENT_USER.Rows(0).Item("CLIENT_ID"))
            'Am System anmelden
            ' sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_ID)
            'clsDatabase.Execute_non_Query(sql)
            sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Clipboard-Watcher'"
            clsDatabase.Execute_non_Query(sql, True)

            sql = String.Format("INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,CLIENT_ID,MODULE,VERSION_CLIENT,MACHINE_NAME) VALUES ({0},{1},'Clipboard-Watcher','{2}','{3}')", USER_ID, 0, My.Application.Info.Version.ToString, Environment.MachineName)
            clsDatabase.Execute_non_Query(sql)

            If USER_IS_ADMIN = True Then
                If ESC_Hidden = True Then
                    'frmLoginUserSelect.ShowDialog()
                    ESC_Hidden = False
                    If USER_USERNAME <> "" Then
                        InitUserLogin(USER_USERNAME)
                    End If

                End If
                '    'Admin
                '    pageAdmin.Visible = True
            End If

            WD_UNICODE = clsDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBCW_CONFIGURATION WHERE GUID = 1")

            If LogErrorsOnly = False Then clsLogger.Add(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
            If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
                Dim msg = String.Format("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!")

                If USER_LANGUAGE <> "de-DE" Then
                    msg = String.Format("The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine &
                                                "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
                End If
                MsgBox(msg, MsgBoxStyle.Exclamation)
                clsLogger.Add(" >> The number of logged Users (" & USERCOUNT_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
                If USER_IS_ADMIN = False Then
                    'Anmeldung wieder herausnehmen
                    sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Clipboard-Watcher'"
                    clsDatabase.Execute_non_Query(sql, True)
                    clsLogger.Add(" - logged out the user", False)
                    Return False
                End If
            End If
            Return True


        Catch ex As Exception
            clsLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
            MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try

    End Function


End Class