Tcl

Wasabi List Bucket Objects

See more Wasabi Examples

Demonstrates how to download and parse XML for the list of objects in a bucket. Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat HTTP 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"

# Use the endpoint matching the bucket's region.
CkHttp_put_AwsEndpoint $http "s3.us-west-1.wasabisys.com"

set bucketName "chilkattest"

set strXml [CkHttp_s3_ListBucketObjects $http $bucketName]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response status code = [CkHttp_get_LastStatus $http]"

set xml [new_CkXml]

set success [CkXml_LoadXml $xml $strXml]
if {$success != 1} then {
    puts [CkXml_lastErrorText $xml]
    delete_CkHttp $http
    delete_CkXml $xml
    exit
}

# If the response status code was not 200, then the XML response is not a 
# listing of objects, but instead contains error information.
if {[CkHttp_get_LastStatus $http] != 200} then {
    puts [CkXml_getXml $xml]
    puts "Failed."
    delete_CkHttp $http
    delete_CkXml $xml
    exit
}

# A sample response is shown below.
puts [CkXml_getXml $xml]
puts "----"

# Use this online tool to generate parsing code from sample XML: 
# Generate Parsing Code from XML

# <?xml version="1.0" encoding="UTF-8"?>
# <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
#     <Name>chilkattest</Name>
#     <Prefix/>
#     <Marker/>
#     <MaxKeys>1000</MaxKeys>
#     <IsTruncated>false</IsTruncated>
#     <Contents>
#         <Key>orchard.json</Key>
#         <LastModified>2021-10-27T22:58:49.000Z</LastModified>
#         <ETag>&quot;303fb46cf341094fef6274b7789cd6aa&quot;</ETag>
#         <Size>22</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
#     <Contents>
#         <Key>seahorse.jpg</Key>
#         <LastModified>2021-10-27T22:35:29.000Z</LastModified>
#         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
#         <Size>24388</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
#     <Contents>
#         <Key>seahorse2.jpg</Key>
#         <LastModified>2021-10-27T22:03:51.000Z</LastModified>
#         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
#         <Size>24388</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
# </ListBucketResult>

set ListBucketResult_xmlns [CkXml_getAttrValue $xml "xmlns"]
set Name [CkXml_getChildContent $xml "Name"]
set MaxKeys [CkXml_GetChildIntValue $xml "MaxKeys"]
set IsTruncated [CkXml_getChildContent $xml "IsTruncated"]
set i 0
set count_i [CkXml_NumChildrenHavingTag $xml "Contents"]
while {$i < $count_i} {
    CkXml_put_I $xml $i
    set Key [CkXml_getChildContent $xml "Contents[i]|Key"]
    set LastModified [CkXml_getChildContent $xml "Contents[i]|LastModified"]
    set ETag [CkXml_getChildContent $xml "Contents[i]|ETag"]
    set SizeDecimalStr [CkXml_getChildContent $xml "Contents[i]|Size"]
    set ID [CkXml_getChildContent $xml "Contents[i]|Owner|ID"]
    set DisplayName [CkXml_getChildContent $xml "Contents[i]|Owner|DisplayName"]
    set StorageClass [CkXml_getChildContent $xml "Contents[i]|StorageClass"]
    puts "$i: $Key"
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkXml $xml