(Tcl) Wasabi Delete Bucket
Demonstrates how to delete a new Wasabi bucket.
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]
# Insert your access key here:
CkHttp_put_AwsAccessKey $http "access-key"
# Insert your secret key here:
CkHttp_put_AwsSecretKey $http "secret-key"
# To delete a bucket located in a different region, use the domain for that region, such as "s3.eu-central-1.wasabisys.com"
CkHttp_put_AwsEndpoint $http "s3.wasabisys.com"
CkHttp_put_KeepResponseBody $http 1
set success [CkHttp_S3_DeleteBucket $http "chilkat-wasabi-testbucket"]
if {$success != 1} then {
puts [CkHttp_lastErrorText $http]
# Also examine the error response body from Wasabi:
puts [CkHttp_lastResponseBody $http]
} else {
puts "Bucket deleted."
}
delete_CkHttp $http
|