(Tcl) Isabel Connect Revoke Access Token

See more Ibanity Examples

Revokes an access token.

For more information, see https://documentation.ibanity.com/isabel-connect/api#revoke-refresh-token

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.

set http [new_CkHttp]

# // Implements the following CURL command:
# 
# curl -X POST https://api.ibanity.com/isabel-connect/oauth2/revoke \
# --cert certificate.pem:qwertyuiop1 \
# --key private_key.pem  \
# -H "Content-Type: application/x-www-form-urlencoded" \
# -H "Accept: application/vnd.api+json"  \
# -d token=8787 \
# -d client_id=valid_client_id \
# -d client_secret=valid_client_secret 

# Ibanity provides the certificate + private key in PFX format.  This example will use the .pfx instead of the pair of PEM files.
# (It is also possible to implement using Chilkat with the PEM files, but PFX is easier.)
set cert [new_CkCert]

set success [CkCert_LoadPfxFile $cert "qa_data/pfx/my_ibanity_certificate.pfx" "my_pfx_password"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkHttp $http
    delete_CkCert $cert
    exit
}

set success [CkHttp_SetSslClientCert $http $cert]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkCert $cert
    exit
}

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/isabel-connect/oauth2/revoke"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"

# Load the previously obtained access token.
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/isabel_access_token.json"]
if {$success == 0} then {
    puts "No existing access token."
    delete_CkHttp $http
    delete_CkCert $cert
    delete_CkHttpRequest $req
    delete_CkJsonObject $jsonToken
    exit
}

CkHttpRequest_AddParam $req "token" [CkJsonObject_stringOf $jsonToken "access_token"]

# Note: For sandbox testing, we literally want to use the strings
# "valid_client_id", and "valid_client_secret".
# For the live app, you would replace these with actual values.
CkHttpRequest_AddParam $req "client_id" "valid_client_id"
CkHttpRequest_AddParam $req "client_secret" "valid_client_secret"

CkHttpRequest_AddHeader $req "Accept" "application/vnd.api+json"

# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http "https://api.ibanity.com/isabel-connect/oauth2/revoke" $req]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkCert $cert
    delete_CkHttpRequest $req
    delete_CkJsonObject $jsonToken
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkCert $cert
    delete_CkHttpRequest $req
    delete_CkJsonObject $jsonToken
    delete_CkStringBuilder $sbResponseBody
    exit
}

delete_CkHttpResponse $resp

puts "Response Body:"
puts [CkStringBuilder_getAsString $sbResponseBody]

# If successful, the response status code = 200, and the response body is "{}"

delete_CkHttp $http
delete_CkCert $cert
delete_CkHttpRequest $req
delete_CkJsonObject $jsonToken
delete_CkStringBuilder $sbResponseBody