(Tcl) GeoOp - Find Account ID by Name

Finds an account ID by name.

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.

# This example also assumes an OAuth2 access token was previously fetched.
# and saved in a JSON file.  

# First get our previously obtained access token.
# {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236}
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/geoop.json"]

# This example assumes we previously obtained an access token
set oauth2 [new_CkOAuth2]

CkOAuth2_put_AccessToken $oauth2 [CkJsonObject_stringOf $jsonToken "access_token"]

set rest [new_CkRest]

# Connect to GeoOp and send the following GET request:

# GET /users HTTP/1.1
# Host: api.geoop.com
set bAutoReconnect 1
set success [CkRest_Connect $rest "api.geoop.com" 443 1 $bAutoReconnect]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkJsonObject $jsonToken
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

# Provide the authentication credentials (i.e. the access token)
CkRest_SetAuthOAuth2 $rest $oauth2

# Set the X-Version header.
CkRest_AddHeader $rest "X-Version" "1.0"

set responseBody [CkRest_fullRequestNoBody $rest "GET" "/accounts"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkJsonObject $jsonToken
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

# If the response status code did not indicate success, then see what happened..
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "Request Header: "
    puts [CkRest_lastRequestHeader $rest]
    puts "----"
    puts "Response StatusCode = [CkRest_get_ResponseStatusCode $rest]"
    puts "Response StatusLine: [CkRest_responseStatusText $rest]"
    puts "Response Header:"
    puts [CkRest_responseHeader $rest]
    puts "$responseBody"
    delete_CkJsonObject $jsonToken
    delete_CkOAuth2 $oauth2
    delete_CkRest $rest
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0
CkJsonObject_Load $json $responseBody
# Show the full JSON response.  (see the sample response at the bottom of this example)
puts [CkJsonObject_emit $json]

# To find the account id for a given company name:
set caseSensitive 0
set accountId [CkJsonObject_findRecordString $json "accounts" "companyName" "Chilkat Software, Inc." $caseSensitive "id"]
if {[CkJsonObject_get_LastMethodSuccess $json] != 1} then {
    puts "Account not found."
} else {
    puts "The account ID is: $accountId"
}

# Find the account ID for the 1st company matching "Chilkat*"
set accountId [CkJsonObject_findRecordString $json "accounts" "companyName" "Chilkat*" $caseSensitive "id"]
if {[CkJsonObject_get_LastMethodSuccess $json] != 1} then {
    puts "Account not found."
} else {
    puts "The account ID is: $accountId"
}

# The full JSON response for GET /accounts looks like this:

# 	{
# 	  "result": "success",
# 	  "accounts": [
# 	    {
# 	      "id": 39409,
# 	      "companyName": "Chilkat Software, Inc.",
# 	      "licenses": 999,
# 	      "countryCode": 1
# 	    }
# 	  ],
# 	  "metadata": {
# 	    "page": 1,
# 	    "pagesCount": 1,
# 	    "recordsPerPage": 20,
# 	    "recordsCount": 1
# 	  }
# 	}
# 

delete_CkJsonObject $jsonToken
delete_CkOAuth2 $oauth2
delete_CkRest $rest
delete_CkJsonObject $json