(Tcl) Azure Blob Service - List all Containers in a Storage Account

Azure Storage Blob Service REST API: Lists all the containers in a storage account.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Azure Blob Service Example: List all of the containers in an account.

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set rest [new_CkRest]

# Connect to the Azure Storage Blob Service
set bTls 1
set port 443
set bAutoReconnect 1
# In this example, the storage account name is "chilkat".
set success [CkRest_Connect $rest "chilkat.blob.core.windows.net" $port $bTls $bAutoReconnect]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

# Provide Azure Cloud credentials for the REST call.
set azAuth [new_CkAuthAzureStorage]

CkAuthAzureStorage_put_AccessKey $azAuth "AZURE_ACCESS_KEY"
# The account name used here should match the 1st part of the domain passed in the call to Connect (above).
CkAuthAzureStorage_put_Account $azAuth "chilkat"
CkAuthAzureStorage_put_Scheme $azAuth "SharedKey"
CkAuthAzureStorage_put_Service $azAuth "Blob"
# This causes the "x-ms-version: 2020-08-04" header to be automatically added.
CkAuthAzureStorage_put_XMsVersion $azAuth "2020-08-04"
set success [CkRest_SetAuthAzureStorage $rest $azAuth]

# URI parameters, such as "maxresults", are added by calling AddQueryParam
set success [CkRest_AddQueryParam $rest "maxresults" "1000"]

# Note: The application does not need to explicitly set the following
# headers: x-ms-date, Authorization.  These headers
# are automatically set by Chilkat.

set responseStr [CkRest_fullRequestNoBody $rest "GET" "/?comp=list"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAzureStorage $azAuth
    exit
}

# When successful, the Azure Storage service will respond with a 200 response code,
# with an XML body.  
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    # Examine the request/response to see what happened.
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body (if any): $responseStr"
    puts "---"
    puts "LastRequestStartLine: [CkRest_lastRequestStartLine $rest]"
    puts "LastRequestHeader: [CkRest_lastRequestHeader $rest]"
    delete_CkRest $rest
    delete_CkAuthAzureStorage $azAuth
    exit
}

# Load the XML response for parsing.
# A sample XML response containing 2 containers is shown below.
set xml [new_CkXml]

set success [CkXml_LoadXml $xml $responseStr]

puts [CkXml_getXml $xml]

# Iterate over the containers, listing some information about each.
set success [CkXml_FindChild2 $xml "Containers"]
set numContainers [CkXml_get_NumChildren $xml]
set i 0
while {$i < $numContainers} {
    set success [CkXml_GetChild2 $xml $i]
    puts "Container Name: [CkXml_getChildContent $xml Name]"
    set lastModDateStr [CkXml_chilkatPath $xml "Properties|Last-Modified|*"]
    puts "Last Modified: $lastModDateStr"
    # The date/time string can be loaded into a CkDateTime object for conversion to other date formats..
    set dateTime [new_CkDateTime]

    set success [CkDateTime_SetFromRfc822 $dateTime $lastModDateStr]

    set leaseState [CkXml_chilkatPath $xml "Properties|LeaseState|*"]
    puts "Lease State: $leaseState"

    set success [CkXml_GetParent2 $xml]
    set i [expr $i + 1]
}
set success [CkXml_GetParent2 $xml]

# Sample XML response:

# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<EnumerationResults ServiceEndpoint="https://chilkat.blob.core.windows.net/">
# 	    <MaxResults>1000</MaxResults>
# 	    <Containers>
# 	        <Container>
# 	            <Name>test</Name>
# 	            <Properties>
# 	                <Last-Modified>Wed, 20 Apr 2016 01:02:25 GMT</Last-Modified>
# 	                <Etag>"0x8D368B77024C583"</Etag>
# 	                <LeaseStatus>unlocked</LeaseStatus>
# 	                <LeaseState>available</LeaseState>
# 	            </Properties>
# 	        </Container>
# 	        <Container>
# 	            <Name>test2</Name>
# 	            <Properties>
# 	                <Last-Modified>Tue, 03 May 2016 17:13:01 GMT</Last-Modified>
# 	                <Etag>"0x8D373762EB6AC85"</Etag>
# 	                <LeaseStatus>unlocked</LeaseStatus>
# 	                <LeaseState>available</LeaseState>
# 	            </Properties>
# 	        </Container>
# 	    </Containers>
# 	    <NextMarker />
# 	</EnumerationResults>

delete_CkRest $rest
delete_CkAuthAzureStorage $azAuth
delete_CkXml $xml
delete_CkDateTime $dateTime