(Visual FoxPro) Auth0 Server-to-Server Access Token (Client Credentials flow)

Demonstrates how to obtain an Auth0 access token using client credentials (client_id and client_secret).

This is just a matter of duplicating this CURL command:

curl --request POST
  --url 'https://chilkat.auth0.com/oauth/token' \
  --header 'content-type: application/json' \
  --data '{"grant_type":"client_credentials","client_id": "xxxx","client_secret": "xxxx","audience": "https://api.example.com/geocoding/v1/"}'

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJson
LOCAL loHttp
LOCAL loResp
LOCAL loJsonResp

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* We want to duplicate this curl command:
* 
* curl --request POST
*   --url 'https://chilkat.auth0.com/oauth/token' \
*   --header 'content-type: application/json' \
*   --data '{"grant_type":"client_credentials","client_id": "my_client_id","client_secret": "my_client_secret","audience": "https://api.example.com/geocoding/v1/"}'

* Build the JSON body of the request.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("grant_type","client_credentials")
loJson.UpdateString("client_id","AUTH0-CLIENT-ID")
loJson.UpdateString("client_secret","AUTH0-CLIENT-SECRET")
loJson.UpdateString("audience","https://api.example.com/geocoding/v1/")

* IMPORTANT: You would use your own url.  You would not use "chilkat.auth0.com".  
* Instead you would use "your_name.auth0.com"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loResp = loHttp.PostJson3("https://chilkat.auth0.com/oauth/token","application/json",loJson)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loJson
    RELEASE loHttp
    CANCEL
ENDIF

* A 200 response status code indicates success.  In the success case, the response body
* contains the JSON access token, such as: 
* {
*   "access_token": "eyJz93a...k4laUWw",
*   "token_type":"Bearer",
*   "expires_in":86400
* }
* 

? "response status code = " + STR(loResp.StatusCode)

* The repsonse is JSON if successful and also JSON for errors.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResp = CreateObject('Chilkat.JsonObject')
loJsonResp.EmitCompact = 0
loJsonResp.Load(loResp.BodyStr)

IF (loResp.StatusCode <> 200) THEN
    * The response body contains error information in JSON format.
    ? loJsonResp.Emit()
    RELEASE loResp

    * An example of an error response:
    * 		{
    * 		  "error": "access_denied",
    * 		  "error_description": "Client is not authorized to access \"https://api.example.com/geocoding/v1/\". You might probably want to create a \"client-grant\" associated to this API. See: https://auth0.com/docs/api/v2#!/Client_Grants/post_client_grants"
    * 		}
    RELEASE loJson
    RELEASE loHttp
    RELEASE loJsonResp
    CANCEL
ENDIF

? "Success!"
? loJsonResp.Emit()

* A successful JSON response body looks like this:

* {
*   "access_token": "eyJz93a...k4laUWw",
*   "token_type":"Bearer",
*   "expires_in":86400
* }

RELEASE loResp

RELEASE loJson
RELEASE loHttp
RELEASE loJsonResp