Tcl

Delete a Google Cloud Storage Bucket

See more Google Cloud Storage Examples

Demonstrates how to delete 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"

# Send a DELETE equivalent to this curl command

# curl -X DELETE -H "Authorization: Bearer [OAUTH2_TOKEN]" \
#     "https://www.googleapis.com/storage/v1/b/[BUCKET_NAME]"
# 
set http [new_CkHttp]

CkHttp_put_AuthToken $http [CkStringBuilder_getAsString $sbToken]

CkHttp_SetUrlVar $http "bucket_name" "chilkat-ocean"
set url "https://www.googleapis.com/storage/v1/b/{$bucket_name}"

set responseBody [CkHttp_quickDeleteStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkStringBuilder $sbToken
    delete_CkHttp $http
    exit
}

set responseCode [CkHttp_get_LastStatus $http]
if {$responseCode == 401} then {
    puts "$responseBody"
    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_CkHttp $http
    exit
}

# A 204 response code indicates success..
# If not success, then examine the response code and response body..
if {$responseCode != 204} then {
    puts "Response code: $responseCode"
    puts "Response body"
    puts "$responseBody"
} else {
    puts "Success."
}


delete_CkStringBuilder $sbToken
delete_CkHttp $http