(Tcl) RSAP Union API - Get Members Status

Demonstrates how to use an OAuth2 access token for the RSAP Union API. Calls the endpoint to get the statuses of all union members.

For more information, see https://app.swaggerhub.com/apis-docs/pderas/RSAP/2.0.1#/Members/getAllUnionMemberStatuses

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]

# Load the access token previously obtained by this example:  RSAP Union OAuth2
set jToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jToken "qa_data/tokens/rsapToken.json"]
if {$success == 0} then {
    puts "Failed to load access token JSON."
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    exit
}

# Adds the "Authorization: Bearer ACCESS_TOKEN" header.
CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jToken "access_token"]

# For authentication, assuming both the client cert and access token are needed???
set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "qa_data/certs_and_keys/union_client_certificate.crt"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    exit
}

set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadAnyFormatFile $privKey "qa_data/certs_and_keys/union_client_certificate.nopass.key" ""]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

# Associate the private key with the cert.
# This will fail if the private key is not actually the correct one that corresponds to the public key stored within the cert.
set success [CkCert_SetPrivateKey $cert $privKey]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

# Tell HTTP to use the cert for client TLS certificate authentication.
set success [CkHttp_SetSslClientCert $http $cert]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    exit
}

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://api-test.rsap.ca/members/status" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkJsonObject $jToken
    delete_CkCert $cert
    delete_CkPrivateKey $privKey
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}


delete_CkHttp $http
delete_CkJsonObject $jToken
delete_CkCert $cert
delete_CkPrivateKey $privKey
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp