35 lines
1.1 KiB
VB.net
35 lines
1.1 KiB
VB.net
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)
|
|
' This is calling the async function ScheduleJob synchronous, so that we can return a value to the caller
|
|
' This means that the job might or might not be scheduled when this method returns.
|
|
Task.Run(Function() 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
|