Private Sub JobDone(Job As HttpJob)
Dim callModuleRef As Object
Select Job.JobName.ToUpperCase
Case "DOWNLOADPICTURES"
callModuleRef = Main
Case "GETINFO"
callModuleRef = Main
Case "SENDSIGNUP"
callModuleRef = scSignup
Case "REQUESTORDERID"
callModuleRef = scConfirmation
Case "SENDORDER"
callModuleRef = scConfirmation
End Select
If Job.Success Then
Dim httpAns As String = Job.GetString
If Utils.isValidJSON(httpAns) = False Then
ReturnSub2(callModuleRef, "Server", Job.JobName, False, emptyMap)
Else
ReturnSub2(callModuleRef, "Server", Job.JobName, True, Utils.json2map(httpAns))
End If
Return
End If
ReturnSub2(callModuleRef, "Server", Job.JobName, False, emptyMap)
Job.Release
End Sub
Private Sub ReturnSub2(mCallback As Object, mEventName As String, SubName As String, Arg1 As Boolean, Arg2 As Map)
If SubExists(mCallback, mEventName & "_" & SubName) Then
CallSubDelayed3(mCallback, mEventName & "_" & SubName, Arg1, Arg2)
End If
End Sub