Xbase++

SugarCRM Logout

See more SugarCRM Examples

Demonstrates how to logout of a session. Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL oSbReq
LOCAL oSbJson
LOCAL oJson

nSuccess := 0

oRest := CreateObject("Chilkat.Rest")

nSuccess := oRest:Connect("your.site.domain", 443, 1, 1)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

oRest:AddHeader("Cache-Control", "no-cache")
oRest:AddHeader("OAuth-Token", "<access_token>")

oSbReq := CreateObject("Chilkat.StringBuilder")

oSbJson := CreateObject("Chilkat.StringBuilder")
nSuccess := oRest:FullRequestSb("POST", "/rest/v10/oauth2/logout", oSbReq, oSbJson)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oSbReq:destroy()
    oSbJson:destroy()
    RETURN
ENDIF

IF (oRest:ResponseStatusCode != 200)
    ? "Received error response code: " + Str(oRest:ResponseStatusCode)
    ? "Response body:"
    ? oSbJson:GetAsString()
    oRest:destroy()
    oSbReq:destroy()
    oSbJson:destroy()
    RETURN
ENDIF

oJson := CreateObject("Chilkat.JsonObject")
oJson:LoadSb(oSbJson)

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

nSuccess := oJson:BoolOf("success")

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

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

? "Example Completed."

oRest:destroy()
oSbReq:destroy()
oSbJson:destroy()
oJson:destroy()