(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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.
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "grant_type" "client_credentials"
CkJsonObject_UpdateString $json "client_id" "AUTH0-CLIENT-ID"
CkJsonObject_UpdateString $json "client_secret" "AUTH0-CLIENT-SECRET"
CkJsonObject_UpdateString $json "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"
set http [new_CkHttp]

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://chilkat.auth0.com/oauth/token" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $json
    delete_CkHttp $http
    exit
}

# 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
# }
# 

puts "response status code = [CkHttpResponse_get_StatusCode $resp]"

# The repsonse is JSON if successful and also JSON for errors.
set jsonResp [new_CkJsonObject]

CkJsonObject_put_EmitCompact $jsonResp 0
CkJsonObject_Load $jsonResp [CkHttpResponse_bodyStr $resp]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    # The response body contains error information in JSON format.
    puts [CkJsonObject_emit $jsonResp]
    delete_CkHttpResponse $resp

    # 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"
    # 		}
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkJsonObject $jsonResp
    exit
}

puts "Success!"
puts [CkJsonObject_emit $jsonResp]

# A successful JSON response body looks like this:

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

delete_CkHttpResponse $resp


delete_CkJsonObject $json
delete_CkHttp $http
delete_CkJsonObject $jsonResp