(Perl) Send XML REST Request, Get Response with No Body (Google Cloud Storage)

Demonstrates sending a RESTful XML request, and receiving a response where the expected response is a header with no body (Content-Length = 0). This example will create a bucket in Google Cloud Storage using the Google Cloud Storage XML API.

See Create a Bucket using the XML API for additional request options.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example will create a bucket in Google Cloud Storage using the XML API.

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

$gAuth = chilkat::CkAuthGoogle->new();
# Obtain an access token as shown in one of the following examples:
# See Get Access Token using a Service Account JSON Key
# See Get Access Token using a P12 File

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

# Connect using TLS.
$bAutoReconnect = 1;
$success = $rest->Connect("www.googleapis.com",443,1,$bAutoReconnect);

# Provide the authentication credentials (i.e. the access key)
$success = $rest->SetAuthGoogle($gAuth);

# Build the XML request body for creating a bucket.
# See https://cloud.google.com/storage/docs/xml-api/put-bucket-create
$xmlReqBody = chilkat::CkXml->new();
$xmlReqBody->put_Tag("CreateBucketConfiguration");
$xmlReqBody->NewChild2("LocationConstraint","us");
$xmlReqBody->NewChild2("StorageClass","STANDARD");

# Show the HTTP request body we'll be sending.
print $xmlReqBody->getXml() . "\r\n";

# There are no query parameters...

# The HOST header must be specified, because it needs to be different than
# the domain previously passed to the Connect method.
# The name of the bucket is the 1st part of the HOST header.
$success = $rest->AddHeader("Host","chilkat-example-bucket.storage.googleapis.com");

# The project ID is specified in an HTTP request header
$success = $rest->AddHeader("x-goog-project-id","chilkattest-1050");

# In this case, the response body is expected to be empty.  We can still
# call FullRequestString.  We expect an empty string to be returned.
$responseStr = $rest->fullRequestString("PUT","/",$xmlReqBody->getXml());
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Check the response status code to make sure it is 200.
$responseStatus = $rest->get_ResponseStatusCode();
print "Response Status Code = " . $responseStatus . "\r\n";