(Tcl) OSS List Bucket Objects (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to list the objects in a bucket.

The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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 AccessKey ID here:
CkHttp_put_AwsAccessKey $http "access-key"

# Insert your AccessKey Secret here:
CkHttp_put_AwsSecretKey $http "secret-key"

# To list objects in a bucket located in a different region, use the endpoint for that region, such as "oss-cn-hangzhou.aliyuncs.com 	"
# See Alibaba Object Storage Service Regions and Endpoints
CkHttp_put_AwsEndpoint $http "oss-us-east-1.aliyuncs.com"

set bucketName "chilkat"

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>chilkat</Name>
#     <Prefix/>
#     <Marker/>
#     <MaxKeys>1000</MaxKeys>
#     <IsTruncated>false</IsTruncated>
#     <Contents>
#         <Key>orchard.json</Key>
#         <LastModified>2021-10-29T16:58:12.000Z</LastModified>
#         <ETag>"303FB46CF341094FEF6274B7789CD6AA"</ETag>
#         <Size>22</Size>
#         <StorageClass>STANDARD</StorageClass>
#         <Owner>
#             <ID>5035535379748121</ID>
#             <DisplayName>5035535379748121</DisplayName>
#         </Owner>
#     </Contents>
#     <Contents>
#         <Key>seahorse.jpg</Key>
#         <LastModified>2021-10-29T16:52:01.000Z</LastModified>
#         <ETag>"A8551F0A5437F43A796FCA7623EE9232"</ETag>
#         <Size>24388</Size>
#         <StorageClass>STANDARD</StorageClass>
#         <Owner>
#             <ID>5035535379748121</ID>
#             <DisplayName>5035535379748121</DisplayName>
#         </Owner>
# 
#     </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 StorageClass [CkXml_getChildContent $xml "Contents[i]|StorageClass"]
    set ID [CkXml_getChildContent $xml "Contents[i]|Owner|ID"]
    set DisplayName [CkXml_getChildContent $xml "Contents[i]|Owner|DisplayName"]
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkXml $xml