Perl

SNS List Topics

See more Amazon SNS Examples

List the existing SNS topics.

See SNS List Topics for more information.

Perl

use chilkat();

$success = 0;

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

$rest = chilkat::CkRest->new();

# Connect to the Amazon AWS REST server.
# such as https://sns.us-west-2.amazonaws.com/
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("sns.us-west-2.amazonaws.com",$port,$bTls,$bAutoReconnect);

# Provide AWS credentials for the REST call.
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
# the region should match our URL above..
$authAws->put_Region("us-west-2");
$authAws->put_ServiceName("sns");

$rest->SetAuthAws($authAws);

$rest->AddQueryParam("Action","ListTopics");

$responseXml = $rest->fullRequestNoBody("GET","/");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A successful response will have a status code equal to 200.
if ($rest->get_ResponseStatusCode() != 200) {
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response body: " . $responseXml . "\r\n";
    exit;
}

# Examine the successful XML response (shown below)
$xml = chilkat::CkXml->new();
$xml->LoadXml($responseXml);
print $xml->getXml() . "\r\n";

# To iterate over the TopicArn's
$notUsed = $xml->chilkatPath("ListTopicsResult|Topics|$");
$i = 0;
$numTopics = $xml->get_NumChildren();
while ($i < $numTopics) {
    $xml->GetChild2($i);
    print $xml->getChildContent("TopicArn") . "\r\n";
    $xml->GetParent2();
    $i = $i + 1;
}

$xml->GetRoot2();

# 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>