Visual FoxPro

S3 Find Bucket Region

See more Amazon S3 (new) Examples

Demonstrates how to find out the region of an S3 bucket. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loAuthAws
LOCAL lcStrResult
LOCAL lnResponseStatusCode
LOCAL loXml

lnSuccess = 0

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

loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon AWS REST server using the correct region (in this example, "us-west-2")
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("s3.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* Provide AWS credentials for the REST call.
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "s3"
lnSuccess = loRest.SetAuthAws(loAuthAws)

* The bucket name we want to know about is set in the HOST header.
* In this example, we want to find the region for the "chilkat.qa" bucket.
loRest.Host = "chilkat.qa.s3.amazonaws.com"

* Send the GET request to query the bucket location.
lcStrResult = loRest.FullRequestNoBody("GET","/?location")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

lnResponseStatusCode = loRest.ResponseStatusCode
? "Response status code = " + STR(lnResponseStatusCode)
IF (lnResponseStatusCode <> 200) THEN
    ? loRest.ResponseHeader
    ? lcStrResult
    ? "Failed."
    RELEASE loRest
    RELEASE loAuthAws
    CANCEL
ENDIF

? lcStrResult

* The result contains XML like this:
* <?xml version="1.0" encoding="UTF-8"?>
* <LocationConstraint xmlns="http://s3.amazonaws.com/doc/2006-03-01/">us-west-2</LocationConstraint>

* Get the "us-west-2" from the XML
loXml = CreateObject('Chilkat.Xml')
lnSuccess = loXml.LoadXml(lcStrResult)
? "region = " + loXml.Content

RELEASE loRest
RELEASE loAuthAws
RELEASE loXml