09-12-2022

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

@@ -0,0 +1,31 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports ECM.JobRunner.Windows.Scheduler
+Imports System.Runtime.Serialization
+
+Public Class RunJob
+    Public Class RunJobMethod
+        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 Async Function Run(pData As RunJobRequest) As Task(Of RunJobResponse)
+            Await Scheduler.ScheduleJob(pData.JobId)
+            Return New RunJobResponse()
+        End Function
+
+    End Class
+
+    Public Class RunJobRequest
+        Public Property JobId As Integer
+    End Class
+
+    Public Class RunJobResponse
+        Inherits Base.BaseResponse
+    End Class
+End Class