Tcl

Create a Google Cloud Storage Bucket

See more Google Cloud Storage Examples

Demonstrates how to create a Google Cloud Storage bucket. Tcl

load ./chilkat.dll

set success 0

# 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"

# In this example, Get Google Cloud Storage OAuth2 Access Token, 
# the service account access token was saved to a text file.  This example fetches the access token from the file..
set sbToken [new_CkStringBuilder]

CkStringBuilder_LoadFile $sbToken "qa_data/tokens/googleCloudStorageAccessToken.txt" "utf-8"

# ---- Step 1
# Create a JSON that contains the following information, replacing [VALUES_IN_BRACKETS] with the appropriate values:

# {
#   "name": "[BUCKET_NAME]",
#   "location": "[BUCKET_LOCATION]",
#   "storageClass": "[STORAGE_CLASS]"
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "name" "chilkat-ocean"
CkJsonObject_UpdateString $json "location" "us"
CkJsonObject_UpdateString $json "storageClass" "multi_regional"

# ---- Step 2
# Send a POST equivalent to this curl command

# curl -X POST --data-binary @[JSON_FILE_NAME].json \
#      -H "Authorization: Bearer [OAUTH2_TOKEN]" \
#      -H "Content-Type: application/json" \
#      "https://www.googleapis.com/storage/v1/b?project=[PROJECT_ID]"

set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkStringBuilder_getAsString $sbToken]

CkHttp_SetUrlVar $http "project_id" "chilkat-176611"
set url "https://www.googleapis.com/storage/v1/b?project={$project_id}"
set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" $url $json "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbToken
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    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_CkStringBuilder $sbToken
    delete_CkJsonObject $json
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

puts "Response code: $responseCode"
puts "Response body"
puts [CkHttpResponse_bodyStr $resp]

# A successful response looks like this:
# Response code: 200
# Response body
# {
#  "kind": "storage#bucket",
#  "id": "chilkat-ocean",
#  "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean",
#  "projectNumber": "933037264567",
#  "name": "chilkat-ocean",
#  "timeCreated": "2017-08-13T12:27:10.811Z",
#  "updated": "2017-08-13T12:27:10.811Z",
#  "metageneration": "1",
#  "location": "US",
#  "storageClass": "MULTI_REGIONAL",
#  "etag": "CAE="
# }
# 

# Parse the JSON response:
set jsonResp [new_CkJsonObject]

CkJsonObject_Load $jsonResp [CkHttpResponse_bodyStr $resp]

puts "name: [CkJsonObject_stringOf $jsonResp name]"
puts "timeCreated: [CkJsonObject_stringOf $jsonResp timeCreated]"

# Parse the date/time created.
set dt [new_CkDateTime]

CkDateTime_SetFromTimestamp $dt [CkJsonObject_stringOf $jsonResp "timeCreated"]
# ...

delete_CkStringBuilder $sbToken
delete_CkJsonObject $json
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkJsonObject $jsonResp
delete_CkDateTime $dt