update jobrunner

Service.JobRunner/Jobs/ADJob.vb

@@ -0,0 +1,34 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Jobs
+Imports DigitalData.Modules.Logging
+Imports Quartz
+
+Public Class ADJob
+    Implements Quartz.IJob
+
+    Public Function Execute(context As IJobExecutionContext) As Task Implements Quartz.IJob.Execute
+        Dim oJobData = context.MergedJobDataMap
+        Dim oLogConfig As LogConfig = oJobData.Item("LogConfig")
+        Dim oFirebird As Firebird = oJobData.Item("Firebird")
+        Dim oArgs As Dictionary(Of String, String) = oJobData.Item("Args")
+        Dim oADJobArgs = New ADSyncArgs()
+
+        If oArgs.ContainsKey("RootPath") Then
+            oADJobArgs.RootPath = oArgs.Item("RootPath")
+        End If
+
+        If oArgs.ContainsKey("DisableFirebird") AndAlso oArgs.Item("DisableFirebird") = "True" Then
+            oFirebird = Nothing
+        End If
+
+        Dim oMSSQL As MSSQLServer = oJobData.Item("MSSQL")
+        If oArgs.ContainsKey("DisableMSSQL") AndAlso oArgs.Item("DisableMSSQL") = "True" Then
+            oMSSQL = Nothing
+        End If
+
+        Dim oADSyncJob As New ADSyncJob(oLogConfig, oFirebird, oMSSQL)
+        oADSyncJob.Start(oADJobArgs)
+
+        Return Task.FromResult(True)
+    End Function
+End Class