RecordOrganizer/app/DD-Record-Organizer/Classes/ClassUpdate.vb

Imports System.IO
Public Class ClassUpdate
    Public Shared MyServer_UpdatePath As String

    Public Shared VERSION_SERVER = "1.0.0.0"
    Public Shared VERSION_USER = "1.0.0.0"
    Public Shared FORCE_UPDATE As Boolean = False
    Public Shared UPDATE_ID As Integer
    Public Shared ALL_USERS As Boolean = False
    Public Shared VERSIONS_FOR_FORCE_UPDATE As String = ""
    Public Shared FOLDER_TEMP As String

    Public Shared MY_INSTALL_PATH As String
    Public Shared DT_UPDATE_ITEMS As DataTable
    Public Shared DT_UPDATE As DataTable
    Public Shared ERROR_WHILE_UPDATING As Boolean = False

    Public Shared UPDATE_NECESSARY As Boolean = False
    Public Shared UPDATE_CANCELLED As Boolean = False
    Public Shared UPDATE_ERROR As Boolean = False

    Private Shared RecExe_found As Boolean = False
    Public Shared DT_USER_DATA As DataTable
    Private Shared USER_INFO1, USER_INFO2, USER_INFO3 As String
    Public Shared Function Init()
        Try
            Dim sql = String.Format("SELECT * FROM TBDD_MODULES WHERE UPPER(NAME) = UPPER('Record-Organizer')")
            Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(sql)
            If KONFIG_DT.Rows.Count = 1 Then
                MyServer_UpdatePath = KONFIG_DT.Rows(0).Item("VERSION_UPATE_PATH")
                MIN_REQUIRED_VERSION = KONFIG_DT.Rows(0).Item("MIN_REQUIRED_VERSION")
                Try
                    DBVERSION = KONFIG_DT.Rows(0).Item("DB_VERSION")
                Catch ex As Exception
                    DBVERSION = "No DB Version-Config"
                End Try
            End If
            sql = String.Format("Select * FROM TBDD_VERSION_UPDATE WHERE GUID = (Select MAX(GUID) FROM TBDD_VERSION_UPDATE WHERE UPPER(MODULE_NAME) = UPPER('{0}'))", "Record-Organizer")
            DT_UPDATE = MYDB_ECM.GetDatatable(sql)
            If Not IsNothing(DT_UPDATE) Then
                If DT_UPDATE.Rows.Count = 1 Then
                    UPDATE_ID = DT_UPDATE.Rows(0).Item("GUID")
                    VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO")
                    FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD")
                    VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")
                    ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
                    sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} AND [INFO1] IS NOT NULL ORDER BY GUID", UPDATE_ID)
                    DT_UPDATE_ITEMS = MYDB_ECM.GetDatatable(sql)
                    LOGGER.Info(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString))
                Else
                    LOGGER.Info("No Updates Configured!")
                End If
            End If
            Return True
        Catch ex As Exception
            LOGGER.Warn("Unexpected Error in ClassUpdate - Init: " & ex.Message)
            Return False
        End Try

    End Function
    Public Shared Function InitInstallPath()
        Try
            Dim readValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Digital Data\Record Organizer", "Path", Nothing)
            If Not IsNothing(readValue) Then
                MY_INSTALL_PATH = readValue
                Return True
            Else
                MY_INSTALL_PATH = ""
                For Each s In Directory.GetLogicalDrives()
                    If RecExe_found = False Then
                        DirSearch(s)
                    End If
                Next
                If RecExe_found = False Then
                    LOGGER.Warn("Could not find the path for RecordOrganizer")
                    Return False
                End If
            End If
        Catch ex As Exception
            LOGGER.Warn("Unexpected Error in InitInstallPath: " & ex.Message)
            Return False
        End Try
    End Function
    Private Shared Sub DirSearch(ByVal sDir As String)
        Dim d As String
        Dim f As String
        Try
            For Each d In Directory.GetDirectories(sDir)
                If d.Contains("$Recycle") = False Or d.Contains("System Volume") = False Then
                    If RecExe_found = False Then
                        For Each f In Directory.GetFiles(d, "DD-OrgFlow.exe")
                            RecExe_found = True
                            MY_INSTALL_PATH = Path.GetDirectoryName(f)
                            Exit Sub
                        Next
                    End If
                    If RecExe_found = False Then
                        DirSearch(d)
                    End If
                End If
            Next
        Catch excpt As System.Exception
            LOGGER.Warn("Unexpected Error in DirSearch: " & excpt.Message)
            MY_INSTALL_PATH = ""
        End Try
    End Sub
    Public Shared Function InitUser(Optional _User As String = "")
        Try
            Dim sql = ""
            USER_USERNAME = Environment.UserName
            sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
            Dim USER_DT As DataTable = MYDB_ECM.GetDatatable(sql)
            If USER_DT.Rows.Count = 0 Then
                LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradministration!")
                '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
            Else
                USER_GUID = USER_DT.Rows(0).Item("GUID")
                USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
                sql = String.Format("SELECT UPDATE_PATH,TEMPPATH,INFO1,INFO2,INFO3 FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
                DT_USER_DATA = MYDB_ECM.GetDatatable(sql)
                MyServer_UpdatePath = DT_USER_DATA.Rows(0).Item("UPDATE_PATH")

                sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{3}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MACHINE_NAME) = UPPER('{1}') AND UPPER(MODULE) = UPPER('{2}'))", USER_GUID, Environment.MachineName, "Record-Organizer", VERSION_SERVER)
                VERSION_USER = MYDB_ECM.GetScalarValue(sql)
                If IsNothing(VERSION_USER) Then
                    sql = String.Format("SELECT CASE VERSION_CLIENT WHEN '' THEN '{2}' ELSE VERSION_CLIENT END AS VERSION_CLIENT FROM VWDD_LOGIN_USER_HISTORY WHERE GUID = (select MAX(GUID) from VWDD_LOGIN_USER_HISTORY where USER_ID = {0} AND VERSION_CLIENT <> '' AND UPPER(MODULE) = UPPER('{1}'))", USER_GUID, "Record-Organizer", VERSION_SERVER)
                    VERSION_USER = MYDB_ECM.GetScalarValue(sql)
                    If IsNothing(VERSION_USER) Then
                        VERSION_USER = "1.0.0.0"
                    End If
                End If
                VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
                VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
                Return True
            End If
        Catch ex As Exception
            LOGGER.Warn("Unexpected Error in InitUser_Update_Spec: " & ex.Message)
            Return False
        End Try

    End Function
    Public Shared Sub RUN_UPDATE()
        Dim UPD_VC As Boolean = False
        Dim UPD_RM As Boolean = False
        Dim KEEP_TEMPPATH As Boolean = False
        If DT_USER_DATA.Rows.Count <> 1 Then
            Exit Sub
        Else
            USER_INFO1 = DT_USER_DATA.Rows(0).Item("INFO1")
            USER_INFO2 = DT_USER_DATA.Rows(0).Item("INFO2")
            USER_INFO3 = DT_USER_DATA.Rows(0).Item("INFO3")

            If DT_USER_DATA.Rows(0).Item("TEMPPATH") <> "" Then
                FOLDER_TEMP = DT_USER_DATA.Rows(0).Item("TEMPPATH")
            Else
                For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
                    If Upd_item.Item("ITEM_INFO") = "VERSION_CHECKER.exe" Then
                        If Not USER_INFO1.Contains(Upd_item.Item("INFO2")) Then
                            UPD_VC = True

                        End If
                    ElseIf Upd_item.Item("ITEM_INFO") = "RecordOrganizer_RightManager.exe" Then
                        If Not USER_INFO1.Contains(Upd_item.Item("INFO2")) Then
                            UPD_RM = True
                        End If
                    End If
                    If Not IsDBNull(Upd_item.Item("INFO3")) Then
                        FOLDER_TEMP = Upd_item.Item("INFO3")
                    End If
                Next
            End If
        End If
        If UPD_VC = True Or UPD_RM = True Then
            UPDATE_NECESSARY = True
        End If

        If UPDATE_NECESSARY = False Then
            Exit Sub
        End If

        Dim msg = "Auf dem Server liegt ein Update für ein OrgFlow-AddOn bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
        If USER_LANGUAGE <> "de-DE" Then
            msg = "There is a new release available for an OrgFlow-AddOn!" & vbNewLine & "Would You like to install the update now? This might take some time minute(s)!"
        End If
        Dim result As MsgBoxResult
        result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = MsgBoxResult.No Then
            UPDATE_CANCELLED = True
            Exit Sub
        End If
        'End If

        If FOLDER_TEMP <> String.Empty Then
            If Directory.Exists(FOLDER_TEMP) Then
                ' GetTempFolderGuid()
                ' If FOLDER_TEMP <> String.Empty Then

                Dim error_while_copying = False
                For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
                    LOGGER.Info(String.Format("...working on item {0}: ", Upd_item.Item("ITEM_INFO")))

                    If Upd_item.Item("ITEM_INFO") = "VERSION_CHECKER.exe" Then
                        KEEP_TEMPPATH = Upd_item.Item("BIT3")
                    End If

                    If error_while_copying = True Then
                        Exit For
                    End If
                    Dim tempfilename = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
                    If File.Exists(tempfilename) Then
                        Try
                            Dim error_while_replacing = False

                            Dim BackUpOfFileToReplace As String = MY_INSTALL_PATH & "\" & Upd_item.Item("INFO1") & Upd_item.Item("ITEM_INFO") & ".bac"
                            BackUpOfFileToReplace = BackUpOfFileToReplace.Replace("//", "/")

                            Dim sourcefile = Path.Combine(FOLDER_TEMP, Upd_item.Item("ITEM_INFO"))
                            Dim targetfile
                            If IsDBNull(Upd_item.Item("INFO1")) Then
                                targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
                            Else
                                If Upd_item.Item("INFO1") <> String.Empty Then
                                    targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("INFO1"), Upd_item.Item("ITEM_INFO"))
                                Else
                                    targetfile = Path.Combine(MY_INSTALL_PATH, Upd_item.Item("ITEM_INFO"))
                                End If
                            End If
                            targetfile = targetfile.ToString.Replace("//", "/")
                            LOGGER.Info(String.Format("...replacing targetfile '{0}': ", targetfile))
                            Try
                                ' Replace the file.
                                If File.Exists(targetfile) Then
                                    If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
                                        If File.Exists(BackUpOfFileToReplace) Then
                                            If KEEP_TEMPPATH Then
                                                If CopyFile(sourcefile, targetfile) = True Then
                                                    File_Delete(BackUpOfFileToReplace)
                                                    LOGGER.Warn(String.Format("...targetfile '{0}' was copied! ", targetfile))
                                                    Dim updinfo
                                                    If USER_INFO1 <> "" Then
                                                        updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
                                                    Else
                                                        updinfo = Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
                                                    End If
                                                    Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
                                                    MYDB_ECM.ExecuteNonQuery(_Sql)
                                                End If
                                            Else
                                                If MoveFile(sourcefile, targetfile) = True Then
                                                    File_Delete(BackUpOfFileToReplace)
                                                    LOGGER.Info(String.Format("...targetfile '{0}' was replaced! ", targetfile))
                                                    Dim updinfo
                                                    If USER_INFO1 <> "" Then
                                                        updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
                                                    Else
                                                        updinfo = Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
                                                    End If
                                                    Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
                                                    MYDB_ECM.ExecuteNonQuery(_Sql)
                                                Else
                                                    LOGGER.Warn(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
                                                    'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
                                                    File_Rename(BackUpOfFileToReplace, targetfile)
                                                End If
                                            End If

                                        End If

                                    End If
                                Else

                                End If


                            Catch ex As Exception
                                LOGGER.Warn(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
                                error_while_replacing = True
                                UPDATE_ERROR = True
                            End Try



                        Catch ex As Exception
                            LOGGER.Warn(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
                            UPDATE_ERROR = True
                        End Try
                    End If

                Next

                Dim upd = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET TEMPPATH = '' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
                MYDB_ECM.ExecuteNonQuery(upd)
                Try
                    If KEEP_TEMPPATH = False Then
                        'Delete the tempfolder and all data
                        System.IO.Directory.Delete(FOLDER_TEMP, True)
                    Else
                        LOGGER.Info(String.Format("TEMP FOLDER SHALL BE KEPT..."))
                    End If

                Catch ex As Exception

                End Try
                'Else
                '    Logger.Warn(String.Format("The temporaryFolder could not be created!"))
                'End If
            Else
                LOGGER.Warn(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
            End If
        Else
            LOGGER.Warn(String.Format("NO ACTION: the Updatepath is empty"))
        End If

    End Sub
    Private Shared Function GetTempFolderGuid() As String
        Try
            Dim folder As String = Path.Combine(Path.GetTempPath, Guid.NewGuid.ToString)
            If Not Directory.Exists(folder) Then
                Directory.CreateDirectory(folder)
            End If
            FOLDER_TEMP = folder
        Catch ex As Exception
            LOGGER.Warn(String.Format("Error while Creating tempfolder: " & ex.Message))
        End Try

    End Function
    Private Shared Function File_Rename(targetfile As String, Renamefilestring As String)
        Try
            Renamefilestring = Renamefilestring.Replace("\\", "\")
            If File.Exists(Renamefilestring) Then

                If File_Delete(Renamefilestring) = False Then
                    Return False
                End If
            End If
            Rename(targetfile, Renamefilestring)
            Return True
        Catch ex As Exception
            LOGGER.Warn(String.Format("ClassUpdate - Unexpected Error in File_Rename: " & "OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
            UPDATE_ERROR = True
            Return False
        End Try
    End Function
    Private Shared Function File_Delete(deletefile As String)
        Try
            File.Delete(deletefile)
            Return True
        Catch ex As Exception
            LOGGER.Warn(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
            UPDATE_ERROR = True
            Return False
        End Try
    End Function
    Private Shared Function MoveFile(sourcefile As String, targetfile As String)
        Try
            File.Move(sourcefile, targetfile)
            Return True
        Catch ex As Exception
            LOGGER.Warn(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
            UPDATE_ERROR = True
            Return False
        End Try
    End Function
    Private Shared Function CopyFile(sourcefile As String, destfile As String)
        Try
            File.Copy(sourcefile, destfile, True)
            Return True
        Catch ex As Exception
            LOGGER.Warn(String.Format("Unexpected Error in CopyFile: sourcefile '{0}', destfile '{1}' - ERROR: {2}", sourcefile, destfile, ex.Message))
            UPDATE_ERROR = True
            Return False
        End Try
    End Function
End Class