Visual FoxPro

SugarCRM Authenticate

See more SugarCRM Examples

Demonstrates how to authenticate to the SugarCRM REST v10 API. This is how an OAuth2 access token is obtained. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL loJsonReq
LOCAL loSbReq
LOCAL loSbJson
LOCAL loJson
LOCAL lcAccess_token
LOCAL lnExpires_in
LOCAL lcToken_type
LOCAL lnScope
LOCAL lcRefresh_token
LOCAL lnRefresh_expires_in
LOCAL lcDownload_token

lnSuccess = 0

loRest = CreateObject('Chilkat.Rest')

lnSuccess = loRest.Connect("your.site.domain",443,1,1)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loRest.AddHeader("Cache-Control","no-cache")

* The following code creates the JSON request body.
* The JSON created by this code is shown below.
loJsonReq = CreateObject('Chilkat.JsonObject')
loJsonReq.UpdateString("grant_type","password")
loJsonReq.UpdateString("client_id","sugar")
loJsonReq.UpdateString("client_secret","CLIENT_SECRET")
loJsonReq.UpdateString("username","admin")
loJsonReq.UpdateString("password","password")
loJsonReq.UpdateString("platform","custom_api")

* The JSON request body created by the above code:

* {
*   "grant_type": "password",
*   "client_id": "sugar",
*   "client_secret": "CLIENT_SECRET",
*   "username": "admin",
*   "password": "password",
*   "platform": "custom_api"
* }

loSbReq = CreateObject('Chilkat.StringBuilder')
loJsonReq.EmitSb(loSbReq)

loRest.AddHeader("Content-Type","application/json")

loSbJson = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/rest/v10/oauth2/token",loSbReq,loSbJson)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loJsonReq
    RELEASE loSbReq
    RELEASE loSbJson
    CANCEL
ENDIF

IF (loRest.ResponseStatusCode <> 200) THEN
    ? "Received error response code: " + STR(loRest.ResponseStatusCode)
    ? "Response body:"
    ? loSbJson.GetAsString()
    RELEASE loRest
    RELEASE loJsonReq
    RELEASE loSbReq
    RELEASE loSbJson
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbJson)

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

lcAccess_token = loJson.StringOf("access_token")
lnExpires_in = loJson.IntOf("expires_in")
lcToken_type = loJson.StringOf("token_type")
lnScope = loJson.IsNullOf("scope")
lcRefresh_token = loJson.StringOf("refresh_token")
lnRefresh_expires_in = loJson.IntOf("refresh_expires_in")
lcDownload_token = loJson.StringOf("download_token")

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

* {
*   "access_token": "c6d495c9-bb25-81d2-5f81-533ef6479f9b",
*   "expires_in": 3600,
*   "token_type": "bearer",
*   "scope": null,
*   "refresh_token": "cbc40e67-12bc-4b56-a1d9-533ef62f2601",
*   "refresh_expires_in": 1209600,
*   "download_token": "cc5d1a9f-6627-3349-96e5-533ef6b1a493"
* }

? "Example Completed."

RELEASE loRest
RELEASE loJsonReq
RELEASE loSbReq
RELEASE loSbJson
RELEASE loJson