Tcl

Wasabi Upload File

See more Wasabi Examples

Demonstrates how to upload a file to a Wasabi bucket. Tcl

load ./chilkat.dll

set success 0

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

CkHttp_put_AwsEndpoint $http "s3.wasabisys.com"

set bucketName "chilkattest"
set objectName "seahorse.jpg"
set localFilePath "qa_data/jpg/seahorse.jpg"
set contentType "image/jpg"

CkHttp_put_KeepResponseBody $http 1

set success [CkHttp_S3_UploadFile $http $localFilePath $contentType $bucketName $objectName]

if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]

    set xml [new_CkXml]

    CkXml_LoadXml $xml [CkHttp_lastResponseBody $http]
    puts [CkXml_getXml $xml]
} else {
    puts "File uploaded."
}


delete_CkHttp $http
delete_CkXml $xml