Xojo Plugin

SugarCRM Logout

See more SugarCRM Examples

Demonstrates how to logout of a session. Xojo Plugin

Dim success As Boolean
success = False

Dim rest As New Chilkat.Rest

success = rest.Connect("your.site.domain",443,True,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

Dim sbReq As New Chilkat.StringBuilder

Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/rest/v10/oauth2/logout",sbReq,sbJson)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

If (rest.ResponseStatusCode <> 200) Then
    System.DebugLog("Received error response code: " + Str(rest.ResponseStatusCode))
    System.DebugLog("Response body:")
    System.DebugLog(sbJson.GetAsString())
    Return
End If

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbJson)

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

success = json.BoolOf("success")

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

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

System.DebugLog("Example Completed.")