06-12-2022

ECM.JobRunner.Windows/WCF/Methods/GetJobStatus.vb

@@ -0,0 +1,37 @@
+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