Lianja

SugarCRM Logout

See more SugarCRM Examples

Demonstrates how to logout of a session. Lianja

llSuccess = .F.

loRest = createobject("CkRest")

llSuccess = loRest.Connect("your.site.domain",443,.T.,.T.)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

loRest.AddHeader("Cache-Control","no-cache")
loRest.AddHeader("OAuth-Token","<access_token>")

loSbReq = createobject("CkStringBuilder")

loSbJson = createobject("CkStringBuilder")
llSuccess = loRest.FullRequestSb("POST","/rest/v10/oauth2/logout",loSbReq,loSbJson)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    release loSbReq
    release loSbJson
    return
endif

if (loRest.ResponseStatusCode <> 200) then
    ? "Received error response code: " + str(loRest.ResponseStatusCode)
    ? "Response body:"
    ? loSbJson.GetAsString()
    release loRest
    release loSbReq
    release loSbJson
    return
endif

loJson = createobject("CkJsonObject")
loJson.LoadSb(loSbJson)

// The following code parses the JSON response.
// A sample JSON response is shown below the sample code.

llSuccess = loJson.BoolOf("success")

// A sample JSON response body that is parsed by the above code:

// {
//   "success": true
// }

? "Example Completed."


release loRest
release loSbReq
release loSbJson
release loJson