27 lines
752 B
VB.net
27 lines
752 B
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports Quartz
|
|
|
|
Namespace Scheduler.Jobs
|
|
Public Class DebugJob
|
|
Inherits BaseJob
|
|
Implements IJob
|
|
|
|
Private Function IJob_Execute(context As IJobExecutionContext) As Task Implements IJob.Execute
|
|
Dim oArgs = MyBase.InitializeJob(context)
|
|
Dim oArg1 = oArgs.Item("Arg1")
|
|
|
|
Logger.Info("I'm a debug Job!")
|
|
Logger.Info("Arg1: [{0}]", oArg1)
|
|
|
|
Dim oResult = New JobResult() With {
|
|
.Description = $"I'm a debug job and my result was [{Guid.NewGuid}]."
|
|
}
|
|
|
|
context.Result = oResult
|
|
|
|
CompleteJob()
|
|
Return Task.FromResult(True)
|
|
End Function
|
|
End Class
|
|
End Namespace
|