Tcl

Wasabi Upload String

See more Wasabi Examples

Demonstrates how to upload the contents of a string to create an object in 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 "orchard.json"
set contentType "application/json"

CkHttp_put_KeepResponseBody $http 1

# Let's say we have JSON in a string and want to upload it to a file in Wasabi..
set jsonStr "{ \"orchard\": \"apple\" }"

# The charset indicates the byte representation of what is uploaded.
# If needed, Chilkat will internally convert to the desired byte representation before uploading.
set charset "utf-8"
set success [CkHttp_S3_UploadString $http $jsonStr $charset $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 "String uploaded."
}


delete_CkHttp $http
delete_CkXml $xml