(Tcl) Backblaze S3 Delete Bucket
Demonstrates how to delete a Backblaze bucket.
The Chilkat S3 functions in the HTTP class are compatible with the Backblaze service. However, because of some specific issues, Chilkat v9.5.0.89 or later is needed.
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
# keyID = Access Key ID or Access Key
CkHttp_put_AwsAccessKey $http "access-key"
# applicationKey = Secret Access Key or Secret Key
CkHttp_put_AwsSecretKey $http "secret-key"
# Region is the 2nd part of your S3 Endpoint
CkHttp_put_AwsEndpoint $http "s3.us-west-002.backblazeb2.com"
CkHttp_put_KeepResponseBody $http 1
set success [CkHttp_S3_DeleteBucket $http "chilkat-test"]
if {$success != 1} then {
puts [CkHttp_lastErrorText $http]
# Also examine the error response body from AliCloud:
puts [CkHttp_lastResponseBody $http]
} else {
puts "Bucket deleted."
}
delete_CkHttp $http
|