(Tcl) SNS List Topics

List the existing SNS topics.

See SNS List Topics for more information.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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 Amazon AWS REST server.
# such as https://sns.us-west-2.amazonaws.com/
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "sns.us-west-2.amazonaws.com" $port $bTls $bAutoReconnect]

# Provide AWS credentials for the REST call.
set authAws [new_CkAuthAws]

CkAuthAws_put_AccessKey $authAws "AWS_ACCESS_KEY"
CkAuthAws_put_SecretKey $authAws "AWS_SECRET_KEY"
# the region should match our URL above..
CkAuthAws_put_Region $authAws "us-west-2"
CkAuthAws_put_ServiceName $authAws "sns"

CkRest_SetAuthAws $rest $authAws

CkRest_AddQueryParam $rest "Action" "ListTopics"

set responseXml [CkRest_fullRequestNoBody $rest "GET" "/"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

# A successful response will have a status code equal to 200.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body: $responseXml"
    delete_CkRest $rest
    delete_CkAuthAws $authAws
    exit
}

# Examine the successful XML response (shown below)
set xml [new_CkXml]

CkXml_LoadXml $xml $responseXml
puts [CkXml_getXml $xml]

# To iterate over the TopicArn's
set notUsed [CkXml_chilkatPath $xml "ListTopicsResult|Topics|$"]
set i 0
set numTopics [CkXml_get_NumChildren $xml]
while {$i < $numTopics} {
    CkXml_GetChild2 $xml $i
    puts [CkXml_getChildContent $xml TopicArn]
    CkXml_GetParent2 $xml
    set i [expr $i + 1]
}
CkXml_GetRoot2 $xml

# A sample successful response:
# <?xml version="1.0" encoding="utf-8" ?>
# <ListTopicsResponse xmlns="http://sns.amazonaws.com/doc/2010-03-31/">
#     <ListTopicsResult>
#         <Topics>
#             <member>
#                 <TopicArn>arn:aws:sns:us-west-2:957491831129:chilkat</TopicArn>
#             </member>
#             <member>
#                 <TopicArn>arn:aws:sns:us-west-2:957491831129:chilkat123</TopicArn>
#             </member>
#             <member>
#                 <TopicArn>arn:aws:sns:us-west-2:957491831129:chilkatses</TopicArn>
#             </member>
#         </Topics>
#     </ListTopicsResult>
#     <ResponseMetadata>
#         <RequestId>54514f94-b07d-5f0b-9c8a-1ff85ff4ac65</RequestId>
#     </ResponseMetadata>
# </ListTopicsResponse>

delete_CkRest $rest
delete_CkAuthAws $authAws
delete_CkXml $xml