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