(Tcl) Xero Get Full Set of Tenants

Check the full set of tenants you've been authorized to access

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://developer.xero.com/documentation/oauth2/auth-flow

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/xero-access-token.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

CkHttp_put_Accept $http "application/json"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://api.xero.com/connections" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jarr [new_CkJsonArray]

CkJsonArray_Load $jarr [CkHttpResponse_bodyStr $resp]
CkJsonArray_put_EmitCompact $jarr 0
puts [CkJsonArray_emit $jarr]

if {[CkHttpResponse_get_StatusCode $resp] != 200} then {
    puts "Failed."
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkHttpResponse $resp
    delete_CkJsonArray $jarr
    exit
}

# Sample response
# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# [
#     {
#         "id": "c869f3b7-6435-4c7e-8cb2-122721b04a69",
#         "tenantId": "45e4708e-d862-4111-ab3a-dd8cd03913e1",
#         "tenantType": "ORGANISATION",
#         "createdDateUtc": "2020-02-02T19:17:58.1117990",
#         "updatedDateUtc": "2020-02-02T19:17:58.1117990"
#     },
#     {
#         "id": "74305bf3-12e0-45e2-8dc8-e3ec73e3b1f9",
#         "tenantId": "c3d5e782-2153-4cda-bdb4-cec791ceb90d",
#         "tenantType": "ORGANISATION",
#         "createdDateUtc": "2020-01-30T01:33:36.2717380",
#         "updatedDateUtc": "2020-02-02T19:21:08.5739590"
#     }
# ]

# json is a CkJsonObject

set i 0
set count_i [CkJsonArray_get_Size $jarr]
while {$i < $count_i} {
    set json [CkJsonArray_ObjectAt $jarr $i]
    set id [CkJsonObject_stringOf $json "id"]
    set tenantId [CkJsonObject_stringOf $json "tenantId"]
    set tenantType [CkJsonObject_stringOf $json "tenantType"]
    set createdDateUtc [CkJsonObject_stringOf $json "createdDateUtc"]
    set updatedDateUtc [CkJsonObject_stringOf $json "updatedDateUtc"]
    delete_CkJsonObject $json

    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkHttpResponse $resp
delete_CkJsonArray $jarr