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) Create S3 Bucket in a RegionDemonstrates how to create an S3 bucket in a specified region. This example will create a bucket in the eu-west-2 region.
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. $bTls = 1; $port = 443; $bAutoReconnect = 1; $success = $rest->Connect("s3.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"); $authAws->put_ServiceName("s3"); $success = $rest->SetAuthAws($authAws); # We'll send a PUT request having an XML body such as this: # <CreateBucketConfiguration xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> # <LocationConstraint>BucketRegion</LocationConstraint> # </CreateBucketConfiguration> # Create the XML body specifying the region as "eu-west-2" $xml = chilkat::CkXml->new(); $xml->put_Tag("CreateBucketConfiguration"); $xml->AddAttribute("xmlns","http://s3.amazonaws.com/doc/2006-03-01/"); $xml->UpdateChildContent("LocationConstraint","eu-west-2"); # Set the bucket name via the HOST header. # In this case, the bucket name is "chilkateuwest2". $rest->put_Host("chilkateuwest2.s3.amazonaws.com"); # Make the call to create the bucket. $responseStr = $rest->fullRequestString("PUT","/",$xml->getXml()); if ($rest->get_LastMethodSuccess() != 1) { print $rest->lastErrorText() . "\r\n"; exit; } if ($rest->get_ResponseStatusCode() != 200) { print "status code = " . $rest->get_ResponseStatusCode() . "\r\n"; $responseXml = chilkat::CkXml->new(); $responseXml->LoadXml($responseStr); print $responseXml->getXml() . "\r\n"; print "Failed." . "\r\n"; exit; } print "Bucket in the eu-west-2 region created." . "\r\n"; |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.