38 lines
1.1 KiB
VB.net
38 lines
1.1 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.Runtime.Serialization
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports ECM.JobRunner.Common
|
|
Imports ECM.JobRunner.Windows.Scheduler
|
|
|
|
Public Class GetJobStatus
|
|
Public Class GetJobStatusMethod
|
|
Inherits Base.BaseMethod
|
|
|
|
Private ReadOnly Scheduler As JobScheduler
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State, pScheduler As JobScheduler)
|
|
MyBase.New(pLogConfig, pDatabase, pState)
|
|
Scheduler = pScheduler
|
|
End Sub
|
|
|
|
Public Function Run() As GetJobStatusResponse
|
|
Return New GetJobStatusResponse With {
|
|
.HistoryItems = State.JobHistory.Entries,
|
|
.StatusItems = State.JobStatus.Entries
|
|
}
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class GetJobStatusResponse
|
|
Inherits Base.BaseResponse
|
|
|
|
<DataMember>
|
|
Public Property HistoryItems As List(Of HistoryItem)
|
|
|
|
<DataMember>
|
|
Public Property StatusItems As List(Of StatusItem)
|
|
End Class
|
|
End Class
|