(Tcl) Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

Demonstrates how to retrieve a list of buckets for a given project.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# This example uses a previously obtained access token having permission for the 
# scope "https://www.googleapis.com/auth/cloud-platform"

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googleCloudStorage.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkJsonObject $jsonToken
    exit
}

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# For more info see Cloud Storage Documentation - Buckets: list 
# 
set success [CkHttp_SetUrlVar $http "PROJECT_ID" "chilkattest-1050"]
# resp is a CkHttpResponse
set resp [CkHttp_QuickGetObj $http "https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    exit
}

set responseCode [CkHttpResponse_get_StatusCode $resp]
if {$responseCode == 401} then {
    puts [CkHttpResponse_bodyStr $resp]
    puts "If invalid credentials, then it is likely the access token expired."
    puts "Your app should automatically fetch a new access token and re-try."
    delete_CkHttpResponse $resp

    delete_CkJsonObject $jsonToken
    delete_CkHttp $http
    exit
}

puts "Response code: $responseCode"
puts "Response body"

set json [new_CkJsonObject]

set success [CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]]
delete_CkHttpResponse $resp

CkJsonObject_put_EmitCompact $json 0

puts [CkJsonObject_emit $json]

# A response code = 200 indicates success, and the response body contains JSON such as this:

# {
#   "kind": "storage#buckets",
#   "items": [
#     {
#       "kind": "storage#bucket",
#       "id": "chilkat-bucket",
#       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket",
#       "projectNumber": "5332332985",
#       "name": "chilkat-bucket",
#       "timeCreated": "2018-10-23T00:04:44.507Z",
#       "updated": "2018-10-23T00:04:44.507Z",
#       "metageneration": "1",
#       "iamConfiguration": {
#         "bucketPolicyOnly": {
#           "enabled": false
#         }
#       },
#       "location": "US",
#       "storageClass": "MULTI_REGIONAL",
#       "etag": "CAE="
#     },
#     {
#       "kind": "storage#bucket",
#       "id": "chilkat-images",
#       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images",
#       "projectNumber": "5332332985",
#       "name": "chilkat-images",
#       "timeCreated": "2018-10-23T11:24:43.000Z",
#       "updated": "2018-10-23T11:24:43.000Z",
#       "metageneration": "1",
#       "iamConfiguration": {
#         "bucketPolicyOnly": {
#           "enabled": false
#         }
#       },
#       "location": "US",
#       "storageClass": "MULTI_REGIONAL",
#       "etag": "CAE="
#     }
#   ]
# }

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

set kind [CkJsonObject_stringOf $json "kind"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "items"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set kind [CkJsonObject_stringOf $json "items[i].kind"]
    set id [CkJsonObject_stringOf $json "items[i].id"]
    set selfLink [CkJsonObject_stringOf $json "items[i].selfLink"]
    set projectNumber [CkJsonObject_stringOf $json "items[i].projectNumber"]
    set name [CkJsonObject_stringOf $json "items[i].name"]
    set timeCreated [CkJsonObject_stringOf $json "items[i].timeCreated"]
    set updated [CkJsonObject_stringOf $json "items[i].updated"]
    set metageneration [CkJsonObject_stringOf $json "items[i].metageneration"]
    set iamConfigurationBucketPolicyOnlyEnabled [CkJsonObject_BoolOf $json "items[i].iamConfiguration.bucketPolicyOnly.enabled"]
    set location [CkJsonObject_stringOf $json "items[i].location"]
    set storageClass [CkJsonObject_stringOf $json "items[i].storageClass"]
    set etag [CkJsonObject_stringOf $json "items[i].etag"]
    set i [expr $i + 1]
}

delete_CkJsonObject $jsonToken
delete_CkHttp $http
delete_CkJsonObject $json