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 oRandom = New Random()

            Dim oTotal As Integer = oRandom.Next(5, 15)
            For index = 1 To oTotal
                Logger.Info("We are still waiting [{0}/{1}]", index, oTotal)
                LogInfo("We are still waiting [{0}/{1}]", index, oTotal)

                Threading.Thread.Sleep(1000)
            Next

            Return CompleteJob("Finished, not waiting anymore!")
        End Function
    End Class
End Namespace