Sub JobDone (Job As HttpJob)
b4iMash.HideProgress
If Job.Success = True Then
Select Job.JobName
Case "CheckUser"
' check if user exists using email address
Log(Job.GetString)
Dim lUsers As List = b4iMash.Json2List(Job.GetString)
Dim eUser As Map
Dim uTot As Int
Dim uCnt As Int
uTot = lUsers.Size - 1
For uCnt = 0 To uTot
' get the user map
eUser = lUsers.Get(uCnt)
Log(eUser)
'Dim tl As TwoLines
'tl.First = m.Get("id")
'tl.Second = m.Get("name")
'ListView1.AddTwoLines2(tl.First, tl.Second, tl)
Next
End Select
Else
Msgbox(Job.ErrorMessage, "Error")
End If
Job.Release
End Sub