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)

            Logger.Info("I'm a debug Job!")
            Logger.Info("Name: [{0}]", Name)

            Dim oResult = New JobResult() With {
                .Description = $"I'm a debug job and my result was [{Guid.NewGuid}]."
            }

            context.Result = oResult

            CompleteJob("Done!")
            Return Task.FromResult(True)
        End Function
    End Class
End Namespace