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