Sub LoginUser(aUser As UserInfo)
Private job As HttpJob
Private jgen As JSONGenerator
Private s As String
Private mp As Map
mp.Initialize
mp.Put("emailaddress",aUser.Email)
mp.Put("password",aUser.Password)
jgen.Initialize(mp)
s = jgen.ToString
job.Initialize("a",Me)
job.PostString(Starter.gURLLoginUser,s)
job.GetRequest.SetHeader("Accept","application/json")
job.GetRequest.SetHeader("Authorization",Starter.AuthKey)
job.GetRequest.SetContentType("application/json")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Private t As String = job.GetString
ParseLoginReturn(t,aUser)
Else
#if B4i
Private hr As HttpResponse = job.Response
private t as string =hr.GetString
Log("Headers" & hr.GetHeaders)
Log("Status Code " & hr.StatusCode)
Log("return t = " & t)
#else
private t as string = job.getstring
#end if
If (t.Length > 1 And t.SubString2(0,1) = "{" And t.EndsWith("}")) Then
ParseErrorReturn(t)
Else
Msgbox("Problem with login."&CRLF & job.ErrorMessage,Starter.gstrApplicationTitle)
End If
End If
job.Release
End Sub