Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports ECM.JobRunner.Common

Namespace Scheduler
    Public Class JobHistory
        Inherits BaseClass

        Public ReadOnly Entries As New List(Of HistoryItem)

        Public Sub New(pLogConfig As LogConfig)
            MyBase.New(pLogConfig)
        End Sub

        Public Sub AddSuccess(pName As String, pMessage As String, pSteps As List(Of HistoryItem.HistoryStep))
            Entries.Add(New HistoryItem With {
                .CreatedAt = Now,
                .JobName = pName,
                .Successful = True,
                .ErrorMessage = Nothing,
                .Message = pMessage,
                .Steps = pSteps
            })
        End Sub

        Public Sub AddError(pName As String, ErrorMessage As String, pSteps As List(Of HistoryItem.HistoryStep))
            Entries.Add(New HistoryItem With {
                .CreatedAt = Now,
                .JobName = pName,
                .Successful = False,
                .ErrorMessage = ErrorMessage,
                .Message = "",
                .Steps = pSteps
            })
        End Sub
    End Class
End Namespace