Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Perl) SNS List TopicsList the existing SNS topics. See SNS List Topics for more information.
use chilkat(); # 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> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.