Imports System

Imports System.Xml

Imports System.Data

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Console.WriteLine(String.Join("-",new String(50) {}))

        dim results As DataTable = RunSql("history")

        Dim list as New List(Of HistoryItem)

        For Each row As DataRow In results.Rows()

            Try

                list.Add(GetQueuedHistoryItem(row))

            Catch ex As Exception

                Console.WriteLine("Error building queued history item.", ex)

            End Try

        Next

        For Each hi As HistoryItem in list

            Console.Write(hi.ID & " - ")

            Console.Write(hi.Destination & " - ")

            Console.Write(hi.Source & " - ")

            Console.WriteLine(hi.Status & ":")

            For Each li As LogItem in hi.Logs

                Console.WriteLine(li.MessageTail)

            Next

            Console.WriteLine("")

        Next

        Console.WriteLine(String.Join("-",new String(50) {}))

    End Sub

    Private Function GetQueuedHistoryItem(row As DataRow) As HistoryItem

        Dim _historyitem As New HistoryItem()

​

        With _historyitem

            .ID = row("HistoryItemID").ToString()

            .TaskID = row("TaskID").ToString()

            .StartTime = Date.Parse(row("StartTime").ToString())

            .FinishTime = Date.Parse(row("FinishTime").ToString())

            .Type = CInt(row("Type"))

            .Source = row("Source").ToString()

            .Destination = row("Destination").ToString()

            .Status = CInt(row("Status"))

            .Logs = GetQueuedLogs(.ID)

        End With

​

        Return _historyitem

    End Function

    Private Function GetLogItem(row As DataRow) As LogItem

        Dim _logitem As New LogItem

​

        With _logitem

            .MessageCode = CUInt(row("MessageCode"))

            .MessageTail = row("MessageTail").ToString()

            .ModuleName = row("ModuleName").ToString()

            .Time = row("Time").ToString()

        End With

​

        Return _logitem

    End Function

    Private Function GetQueuedLogs(HistoryItemID As String) As List(Of LogItem)

        Try

            Dim result As DataTable = RunSql("logs")

            If result Is Nothing Then Return New List(Of LogItem)

​

            Dim list As New List(Of LogItem)

            For Each row As DataRow In result.Rows()

                Try

                    list.Add(GetLogItem(row))

                Catch ex As Exception

                    LogException(String.Format("Error building LogItem from HistoryItem ID: {0}", HistoryItemID), ex)

                End Try

            Next

​

            Return list

        Catch ex As Exception

            LogException(String.Format("Error getting list of LogItems from HistoryItem ID: {0}", HistoryItemID), ex)

            Return New List(Of LogItem)

        End Try

    End Function

​

    Sub LogException (str As String,ex As Exception)

        Console.WriteLine(str & "---" & ex.Message)

    End Sub

​

    Public Function RunSql(type as String) As DataTable

        Dim dt As new DataTable()

    select type

        case "log":

            dt.Columns.Add("HistoryItemID")

            dt.Columns.Add("Time",Date.Now().GetType())

            dt.Columns.Add("MessageCode",1.GetType())

            dt.Columns.Add("MessageTail")

            dt.Columns.Add("ModuleName")

            dt.Columns.Add("StartTimeTicks")

            dt.Rows.Add("852AAFC9-EC73-4D07-AFCA-8C62AF275677", "22-Jun-2017 01:00:00", 100, "service (build 59) started job by incremental trigger", "service", "636336900000000000")

        case "history": 

            dt.Columns.Add("HistoryItemID")

            dt.Columns.Add("TaskID")

            dt.Columns.Add("StartTime",Date.Now().GetType())

            dt.Columns.Add("FinishTime",Date.Now().GetType())

            dt.Columns.Add("Type",1.GetType())

            dt.Columns.Add("Status",1.GetType())

            dt.Columns.Add("Source")

            dt.Columns.Add("Destination")

            dt.Columns.Add("StartTimeTicks")

            ' Real Test Data From Partner's System

            dt.Rows.Add("852AAFC9-EC73-4D07-AFCA-8C62AF275677","69ABFD36-CC7E-45E5-A3B5-3545AC1A2A31", "2017-06-22 01:00:00", "2017-06-22 01:00:29", 1, 9, " (C:\) NTFS", "\\jccbdr01\ShadowProtect\jccit01\C_VOL-b001-i179.spi", "636336900000000000")

            dt.Rows.Add("4F59E9FE-D9DB-4EA1-A444-B1C4B91F6D9B","69ABFD36-CC7E-45E5-A3B5-3545AC1A2A31", "2017-06-22 01:00:00", "2017-06-22 01:00:29", 1, 9, " (C:\) NTFS", "\\jccbdr01\ShadowProtect\jccit01\C_VOL-b001-i179.spi", "636336900000000000")

            dt.Rows.Add("CC2F7306-0CD9-4296-B3A9-6A6340EEE86A","69ABFD36-CC7E-45E5-A3B5-3545AC1A2A31", "2017-06-22 01:00:00", "2017-06-22 01:00:29", 1, 9, " (C:\) NTFS", "\\jccbdr01\ShadowProtect\jccit01\C_VOL-b001-i179.spi", "636336900000000000")

            dt.Rows.Add("30500F3A-A94E-4C7D-AB29-2838DDA9606C","69ABFD36-CC7E-45E5-A3B5-3545AC1A2A31", "2017-06-22 01:00:00", "2017-06-22 01:00:29", 1, 9, " (C:\) NTFS", "\\jccbdr01\ShadowProtect\jccit01\C_VOL-b001-i179.spi", "636336900000000000")

            dt.Rows.Add("E4F3AA09-5A64-463E-8D60-CBA7431B2FFF","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            dt.Rows.Add("5EBB6536-FC43-47C7-85F9-B37689CE82B7","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            dt.Rows.Add("C4E091EF-8370-4E4C-A2B3-04604B7DF309","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            dt.Rows.Add("6F7C0300-CB7B-4D1D-BF07-AC675D5493CD","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            dt.Rows.Add("8C04DF35-E6C4-422E-AD71-B8CD34C3B603","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            dt.Rows.Add("3C6EA055-4034-4CF5-B5F6-1A0A8D1F1E2D","9D50936F-7C2F-4060-BEC7-A864CA78683C", "2017-06-22 01:00:29", "2017-06-22 01:00:30", 1, 9, "Recovery NTFS", "\\jccbdr01\ShadowProtect\jccit01\Recovery_VOL-b001-i179.spi", "636336900290000000")

            return dt

    end select

    End Function

End Module

​

Public Class HistoryItem

    Property ID As String

    Property TaskID As String

    Property StartTime As Date

    ReadOnly Property StartTimeTicks As Long

        Get

            Return StartTime.Ticks

        End Get

    End Property

    Property FinishTime As Date

    Property Type As Integer

    Property Source As String

    Property Destination As String

    Property Status As Integer

                                    Property Logs As List(Of LogItem)                   

    Public Enum PropertyKeys

        HistoryItemID

        TaskID

        StartTime

        FinishTime

        Type

        Status

        Source

        Destination

        'Logs

        StartTimeTicks

    End Enum

    Private Sub AddDifference(ByRef Differences As Dictionary(Of String, Object), ByVal Key As PropertyKeys, ByVal Data As Object)

        Differences.Add(CInt(Key).ToString(), Data)

    End Sub

    Public Function GetDifferences(NewData As HistoryItem, LogDifferences As List(Of SerializedModel), Optional NewItem As Boolean = False) As Dictionary(Of String, Object)

        Dim differences As New Dictionary(Of String, Object)

​

        If NewItem Then

            For Each SP_Log As LogItem In NewData.Logs

                LogDifferences.Add(New SerializedModel(ActionID.Create, ID, SP_Log.GetDictionary(ID)))

            Next

        Else

​

            'add logs which need to be added, don't add logs which are already there

​

            For Each SP_Log As LogItem In NewData.Logs

                Dim newlog As Boolean = True

                For Each DB_Log As LogItem In Logs

                    'if db_log is the same as sp_log

                    If DB_Log.Equals(SP_Log) Then

                        newlog = False

                        Exit For

                    End If

                Next

                If newlog Then

                    LogDifferences.Add(New SerializedModel(ActionID.Create, ID, SP_Log.GetDictionary(ID)))

                    NewItem = True

                End If

            Next

​

            If TaskID <> NewData.TaskID OrElse

                StartTime <> NewData.StartTime OrElse

                FinishTime <> NewData.FinishTime OrElse

                Type <> NewData.Type OrElse

                Status <> NewData.Status OrElse

                Source <> NewData.Source OrElse

                Destination <> NewData.Destination Then

                NewItem = True

            End If

​

        End If

​

        If NewItem Then

            AddDifference(differences, PropertyKeys.HistoryItemID, NewData.ID)

            AddDifference(differences, PropertyKeys.TaskID, NewData.TaskID)

            AddDifference(differences, PropertyKeys.StartTime, NewData.StartTime)

            AddDifference(differences, PropertyKeys.StartTimeTicks, NewData.StartTimeTicks)

            AddDifference(differences, PropertyKeys.FinishTime, NewData.FinishTime)

            AddDifference(differences, PropertyKeys.Type, NewData.Type)

            AddDifference(differences, PropertyKeys.Status, NewData.Status)

            AddDifference(differences, PropertyKeys.Source, NewData.Source)

            AddDifference(differences, PropertyKeys.Destination, NewData.Destination)

        End If

​

        Return differences

    End Function

End Class

Public Class SerializedModel

​

    Public Sub New()

​

    End Sub

​

    Public Sub New(ActionID As ActionID, ItemID As String, Differences As Dictionary(Of String, Object))

        Me.ActionID = ActionID

        Me.ItemID = ItemID

        Me.Differences = Differences

    End Sub

​

    Property ActionID As ActionID

    Property ItemID As String

    Property Differences As New Dictionary(Of String, Object)()

​

End Class

Public Class LogItem

​

​

    'mirrors l_backuplogtype lookup table

    Enum LogItemType

        Informational = 0

        Warning = 1

        LogError = 2

        Unknown = 3

    End Enum

​

    Property Time As String

    Property MessageCode As UInteger

    Property MessageTail As String

    Property ModuleName As String

    Property HistoryItemID As String

​

    'derived properties

    ReadOnly Property StartTimeTicks As Long

        Get

            Return CType(Time, Date).Ticks

        End Get

    End Property

    ReadOnly Property TimeDate As Date

        Get

            Dim d As Date = Date.MinValue

            Date.TryParse(Time, d)

            Return d

        End Get

    End Property

    ReadOnly Property Type As LogItemType

        Get

            If MessageCode = 0 Then

                Return LogItemType.LogError

            ElseIf MessageCode < 300 Then

                Return LogItemType.Informational

            ElseIf MessageCode < 500 Then

                Return LogItemType.Warning

            ElseIf MessageCode < 600 Then

                Return LogItemType.LogError

            Else

                Return LogItemType.Informational

            End If

        End Get

    End Property

    ReadOnly Property LogItemImage As String

        Get

            Dim iconpath As String

            Select Case Type

                Case LogItemType.Informational

                    iconpath = "/StorageCraftPlugin;component/Resources/Icons/Symbols/16/Information_16.png"

                Case LogItemType.Warning

                    iconpath = "/StorageCraftPlugin;component/Resources/Icons/Symbols/16/Warning_16.png"

                Case LogItemType.LogError

                    iconpath = "/StorageCraftPlugin;component/Resources/Icons/Symbols/16/Delete_16.png"

                Case Else

                    iconpath = "/StorageCraftPlugin;component/Resources/Icons/Symbols/16/Delete_16.png"

            End Select

            Return iconpath

        End Get

    End Property

​

​

    Public Sub New()

​

    End Sub

​

    Public Sub New(message As String, timestamp As String, code As UInteger, name As String)

        Time = timestamp

        MessageTail = message

        MessageCode = code

        ModuleName = name

    End Sub

​

​

    Enum PropertyKeys

        Time

        MessageCode

        MessageTail

        ModuleName

        HistoryItemID

        StartTimeTicks

    End Enum

​

    Private Sub AddDifference(ByRef Differences As Dictionary(Of String, Object), ByVal Key As PropertyKeys, ByVal Data As Object)

        Differences.Add(CInt(Key).ToString(), Data)

    End Sub

​

    Public Function GetDictionary(HistoryItemID As String) As Dictionary(Of String, Object)

        Dim dic As New Dictionary(Of String, Object)

        AddDifference(dic, PropertyKeys.Time, Time)

        AddDifference(dic, PropertyKeys.MessageCode, MessageCode)

        AddDifference(dic, PropertyKeys.MessageTail, MessageTail)

        AddDifference(dic, PropertyKeys.ModuleName, ModuleName)

        AddDifference(dic, PropertyKeys.HistoryItemID, HistoryItemID)

        AddDifference(dic, PropertyKeys.StartTimeTicks, StartTimeTicks)

        Return dic

    End Function

​

    Public Overrides Function Equals(obj As Object) As Boolean

        If obj Is Nothing OrElse Not Me.GetType() Is obj.GetType() Then Return False

        Dim l As LogItem = CType(obj, LogItem)

        If l.TimeDate <> TimeDate Then Return False

        If l.MessageCode <> MessageCode Then Return False

        If l.MessageTail <> MessageTail Then Return False

        If l.ModuleName <> ModuleName Then Return False

        Return True

    End Function

​

​

End Class

​

Public Enum ActionID

    Create = 1

    Update = 2

    Delete = 3

End Enum