diff --git a/GBM/Managers/mgrBackup.vb b/GBM/Managers/mgrBackup.vb index df1b449..0946e2f 100644 --- a/GBM/Managers/mgrBackup.vb +++ b/GBM/Managers/mgrBackup.vb @@ -129,7 +129,7 @@ Public Class mgrBackup If File.Exists(sOldBackup) Then mgrCommon.DeleteFile(sOldBackup) End If - RaiseEvent UpdateLog(mgrCommon.FormatString(mgrBackup_BackupLimitExceeded, New String() {oGame.Name, oGame.BackupLimit, Path.GetFileName(sOldBackup)}), False, ToolTipIcon.Info, True) + RaiseEvent UpdateLog(mgrCommon.FormatString(mgrBackup_BackupLimitExceeded, Path.GetFileName(sOldBackup)), False, ToolTipIcon.Info, True) Next End If End Sub diff --git a/GBM/Managers/mgrManifest.vb b/GBM/Managers/mgrManifest.vb index a7a15ee..4952af5 100644 --- a/GBM/Managers/mgrManifest.vb +++ b/GBM/Managers/mgrManifest.vb @@ -1,5 +1,36 @@ Public Class mgrManifest + Private Shared Function MapToObject(ByVal dr As DataRow) As clsBackup + Dim oBackupItem As clsBackup + + oBackupItem = New clsBackup + oBackupItem.ID = CStr(dr("ManifestID")) + oBackupItem.Name = CStr(dr("Name")) + oBackupItem.FileName = CStr(dr("FileName")) + oBackupItem.RestorePath = CStr(dr("RestorePath")) + oBackupItem.AbsolutePath = CBool(dr("AbsolutePath")) + oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated")) + oBackupItem.UpdatedBy = CStr(dr("UpdatedBy")) + If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum")) + + Return oBackupItem + End Function + + Private Shared Function SetCoreParameters(ByVal oBackupItem As clsBackup) As Hashtable + Dim hshParams As New Hashtable + + hshParams.Add("ID", oBackupItem.ID) + hshParams.Add("Name", oBackupItem.Name) + hshParams.Add("FileName", oBackupItem.FileName) + hshParams.Add("Path", oBackupItem.TruePath) + hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath) + hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix) + hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy) + hshParams.Add("CheckSum", oBackupItem.CheckSum) + + Return hshParams + End Function + Public Shared Function ReadFullManifest(ByVal iSelectDB As mgrSQLite.Database) As SortedList Dim oDatabase As New mgrSQLite(iSelectDB) Dim oData As DataSet @@ -11,15 +42,7 @@ oData = oDatabase.ReadParamData(sSQL, New Hashtable) For Each dr As DataRow In oData.Tables(0).Rows - oBackupItem = New clsBackup - oBackupItem.ID = CStr(dr("ManifestID")) - oBackupItem.Name = CStr(dr("Name")) - oBackupItem.FileName = CStr(dr("FileName")) - oBackupItem.RestorePath = CStr(dr("RestorePath")) - oBackupItem.AbsolutePath = CBool(dr("AbsolutePath")) - oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated")) - oBackupItem.UpdatedBy = CStr(dr("UpdatedBy")) - If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum")) + oBackupItem = MapToObject(dr) slList.Add(oBackupItem.ID, oBackupItem) Next @@ -38,15 +61,7 @@ oData = oDatabase.ReadParamData(sSQL, New Hashtable) For Each dr As DataRow In oData.Tables(0).Rows - oBackupItem = New clsBackup - oBackupItem.ID = CStr(dr("ManifestID")) - oBackupItem.Name = CStr(dr("Name")) - oBackupItem.FileName = CStr(dr("FileName")) - oBackupItem.RestorePath = CStr(dr("RestorePath")) - oBackupItem.AbsolutePath = CBool(dr("AbsolutePath")) - oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated")) - oBackupItem.UpdatedBy = CStr(dr("UpdatedBy")) - If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum")) + oBackupItem = MapToObject(dr) slList.Add(oBackupItem.Name, oBackupItem) Next @@ -71,15 +86,7 @@ oData = oDatabase.ReadParamData(sSQL, hshParams) For Each dr As DataRow In oData.Tables(0).Rows - oBackupItem = New clsBackup - oBackupItem.ID = CStr(dr("ManifestID")) - oBackupItem.Name = CStr(dr("Name")) - oBackupItem.FileName = CStr(dr("FileName")) - oBackupItem.RestorePath = CStr(dr("RestorePath")) - oBackupItem.AbsolutePath = CBool(dr("AbsolutePath")) - oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated")) - oBackupItem.UpdatedBy = CStr(dr("UpdatedBy")) - If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum")) + oBackupItem = MapToObject(dr) oList.Add(oBackupItem) Next @@ -102,15 +109,7 @@ oData = oDatabase.ReadParamData(sSQL, hshParams) For Each dr As DataRow In oData.Tables(0).Rows - oBackupItem = New clsBackup - oBackupItem.ID = CStr(dr("ManifestID")) - oBackupItem.Name = CStr(dr("Name")) - oBackupItem.FileName = CStr(dr("FileName")) - oBackupItem.RestorePath = CStr(dr("RestorePath")) - oBackupItem.AbsolutePath = CBool(dr("AbsolutePath")) - oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated")) - oBackupItem.UpdatedBy = CStr(dr("UpdatedBy")) - If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum")) + oBackupItem = MapToObject(dr) Next Return oBackupItem @@ -186,18 +185,11 @@ Public Shared Sub DoManifestAdd(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database) Dim oDatabase As New mgrSQLite(iSelectDB) Dim sSQL As String - Dim hshParams As New Hashtable + Dim hshParams As Hashtable sSQL = "INSERT INTO manifest VALUES (@ID, @Name, @FileName, @Path, @AbsolutePath, @DateUpdated, @UpdatedBy, @CheckSum)" - hshParams.Add("ID", oBackupItem.ID) - hshParams.Add("Name", oBackupItem.Name) - hshParams.Add("FileName", oBackupItem.FileName) - hshParams.Add("Path", oBackupItem.TruePath) - hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath) - hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix) - hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy) - hshParams.Add("CheckSum", oBackupItem.CheckSum) + hshParams = SetCoreParameters(oBackupItem) oDatabase.RunParamQuery(sSQL, hshParams) End Sub @@ -205,18 +197,12 @@ Public Shared Sub DoManifestUpdateByName(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database) Dim oDatabase As New mgrSQLite(iSelectDB) Dim sSQL As String - Dim hshParams As New Hashtable + Dim hshParams As Hashtable sSQL = "UPDATE manifest SET Name = @Name, FileName = @FileName, RestorePath = @Path, AbsolutePath = @AbsolutePath, " sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE Name = @QueryName" - hshParams.Add("Name", oBackupItem.Name) - hshParams.Add("FileName", oBackupItem.FileName) - hshParams.Add("Path", oBackupItem.TruePath) - hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath) - hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix) - hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy) - hshParams.Add("CheckSum", oBackupItem.CheckSum) + hshParams = SetCoreParameters(oBackupItem) hshParams.Add("QueryName", oBackupItem.Name) oDatabase.RunParamQuery(sSQL, hshParams) @@ -225,18 +211,12 @@ Public Shared Sub DoManifestUpdateByID(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database) Dim oDatabase As New mgrSQLite(iSelectDB) Dim sSQL As String - Dim hshParams As New Hashtable + Dim hshParams As Hashtable sSQL = "UPDATE manifest SET Name = @Name, FileName = @FileName, RestorePath = @Path, AbsolutePath = @AbsolutePath, " sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE ManifestID = @QueryID" - hshParams.Add("Name", oBackupItem.Name) - hshParams.Add("FileName", oBackupItem.FileName) - hshParams.Add("Path", oBackupItem.TruePath) - hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath) - hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix) - hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy) - hshParams.Add("CheckSum", oBackupItem.CheckSum) + hshParams = SetCoreParameters(oBackupItem) hshParams.Add("QueryID", oBackupItem.ID) oDatabase.RunParamQuery(sSQL, hshParams) @@ -268,27 +248,6 @@ oDatabase.RunParamQuery(sSQL, hshParams) End Sub - Public Shared Sub DoManifestNameUpdate(ByVal sOriginalName As String, ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database) - Dim oDatabase As New mgrSQLite(iSelectDB) - Dim sSQL As String - Dim hshParams As New Hashtable - - sSQL = "UPDATE manifest SET Name = @Name, FileName = @FileName, RestorePath = @Path, AbsolutePath = @AbsolutePath, " - sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE ManifestID = @QueryID" - - hshParams.Add("Name", oBackupItem.Name) - hshParams.Add("FileName", oBackupItem.FileName) - hshParams.Add("Path", oBackupItem.TruePath) - hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath) - hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix) - hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy) - hshParams.Add("CheckSum", oBackupItem.CheckSum) - hshParams.Add("QueryName", sOriginalName) - - oDatabase.RunParamQuery(sSQL, hshParams) - - End Sub - Public Shared Sub DoManifestHashWipe() Dim oLocalDatabase As New mgrSQLite(mgrSQLite.Database.Local) Dim oRemoteDatabase As New mgrSQLite(mgrSQLite.Database.Remote) diff --git a/GBM/Managers/mgrSQLite.vb b/GBM/Managers/mgrSQLite.vb index 843687e..d9c6b6f 100644 --- a/GBM/Managers/mgrSQLite.vb +++ b/GBM/Managers/mgrSQLite.vb @@ -589,7 +589,7 @@ Public Class mgrSQLite sSQL &= "DROP TABLE manifest; ALTER TABLE manifest_new RENAME TO manifest;" 'Add backup limit field - sSQL = "ALTER TABLE monitorlist ADD COLUMN BackupLimit INTEGER NOT NULL DEFAULT 2;" + sSQL = "ALTER TABLE monitorlist ADD COLUMN BackupLimit INTEGER NOT NULL DEFAULT 5;" sSQL &= "PRAGMA user_version=98" diff --git a/GBM/My Project/Resources.Designer.vb b/GBM/My Project/Resources.Designer.vb index cac209b..c553bbb 100644 --- a/GBM/My Project/Resources.Designer.vb +++ b/GBM/My Project/Resources.Designer.vb @@ -4385,7 +4385,7 @@ Namespace My.Resources End Property ''' - ''' Looks up a localized string similar to [PARAM] backup limit ([PARAM]) exceeded. [PARAM] was automatically removed.. + ''' Looks up a localized string similar to [PARAM] was automatically removed.. ''' Friend ReadOnly Property mgrBackup_BackupLimitExceeded() As String Get diff --git a/GBM/My Project/Resources.resx b/GBM/My Project/Resources.resx index 96d9992..4993a9d 100644 --- a/GBM/My Project/Resources.resx +++ b/GBM/My Project/Resources.resx @@ -1715,7 +1715,7 @@ Backup Limit - [PARAM] backup limit ([PARAM]) exceeded. [PARAM] was automatically removed. + [PARAM] was automatically removed. &All Files