Xbase++

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

See more HTTP Examples

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/"}'

Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL oHttp
LOCAL oResp
LOCAL oJsonResp

nSuccess := 0

//  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.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("grant_type", "client_credentials")
oJson:UpdateString("client_id", "AUTH0-CLIENT-ID")
oJson:UpdateString("client_secret", "AUTH0-CLIENT-SECRET")
oJson: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"
oHttp := CreateObject("Chilkat.Http")
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://chilkat.auth0.com/oauth/token", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oJson:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
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(oResp:StatusCode)

//  The repsonse is JSON if successful and also JSON for errors.
oJsonResp := CreateObject("Chilkat.JsonObject")
oJsonResp:EmitCompact := 0
oJsonResp:Load(oResp:BodyStr)

IF (oResp:StatusCode != 200)
    //  The response body contains error information in JSON format.
    ? oJsonResp:Emit()

    //  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"
    //  		}
    oJson:destroy()
    oHttp:destroy()
    oResp:destroy()
    oJsonResp:destroy()
    RETURN
ENDIF

? "Success!"
? oJsonResp:Emit()

//  A successful JSON response body looks like this:

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

oJson:destroy()
oHttp:destroy()
oResp:destroy()
oJsonResp:destroy()