Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) Amazon Glacier List Tags for VaultLists all the tags attached to a vault. The operation returns an empty map if there are no tags.
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 in the desired region. $bTls = 1; $port = 443; $bAutoReconnect = 1; $success = $rest->Connect("glacier.us-west-2.amazonaws.com",$port,$bTls,$bAutoReconnect); # Provide AWS credentials. $authAws = chilkat::CkAuthAws->new(); $authAws->put_AccessKey("AWS_ACCESS_KEY"); $authAws->put_SecretKey("AWS_SECRET_KEY"); $authAws->put_ServiceName("glacier"); $authAws->put_Region("us-west-2"); $success = $rest->SetAuthAws($authAws); # -------------------------------------------------------------------------- # Note: The above REST connection and setup of the AWS credentials # can be done once. After connecting, any number of REST calls can be made. # The "auto reconnect" property passed to rest.Connect indicates that if # the connection is lost, a REST method call will automatically reconnect # if needed. # -------------------------------------------------------------------------- # # For more information, see Glacier List Tags for Vault Reference Documentation # $rest->AddHeader("x-amz-glacier-version","2012-06-01"); # Get the tags for the "chilkat" vault. $sbResponseBody = chilkat::CkStringBuilder->new(); $success = $rest->FullRequestNoBodySb("GET","/AWS_ACCOUNT_ID/vaults/chilkat/tags",$sbResponseBody); if ($success != 1) { print $rest->lastErrorText() . "\r\n"; exit; } $respStatusCode = $rest->get_ResponseStatusCode(); if ($respStatusCode >= 400) { print "Response Status Code = " . $respStatusCode . "\r\n"; print "Response Header:" . "\r\n"; print $rest->responseHeader() . "\r\n"; print "Response Body:" . "\r\n"; print $sbResponseBody->getAsString() . "\r\n"; exit; } # Success is indicated by a 200 response status with an empty response body. print "response status code = " . $respStatusCode . "\r\n"; $json = chilkat::CkJsonObject->new(); $json->LoadSb($sbResponseBody); $json->put_EmitCompact(0); print $json->emit() . "\r\n"; print "----" . "\r\n"; # jTags is a JsonObject $jTags = $json->ObjectOf("Tags"); $numTags = $jTags->get_Size(); $i = 0; while ($i < $numTags) { print $jTags->nameAt($i) . ": " . $jTags->stringAt($i) . "\r\n"; $i = $i + 1; } # Sample response # # { # "Tags": { # "tagName1": "tagValue1", # "tagName2": "tagValue2" # } # } |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.