Sub JobDone (job As HttpJob)
Dim js As JSONParser
Dim Map1 As Map
Dim Jds As List
Log("JobName = " & job.JobName & ", Success = " & job.Success)
If job.Success = True Then
Dim res As String = job.GetString
If job.JobName="jds" Then
js.Initialize(res)
Map1 = js.NextObject
Jds = Map1.Get("ListItems")
Update.mtimestamp = Map1.Get("timestamp")
For Each item In Jds
' dump to database
Next
Else If job.JobName="segs" Then
Dim Segs As List
js.Initialize(res)
Map1 = js.NextObject
Segs = Map1.Get("Segments")
Update.segtimestamp = Map1.Get("timestamp")
For Each item In Segs
'dump to database
Next
End If
Else
Log("Error: " & job.ErrorMessage)
'ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
End Sub