Perl

Create a Google Cloud Storage Bucket

See more Google Cloud Storage Examples

Demonstrates how to create a Google Cloud Storage bucket. Perl

use chilkat();

$success = 0;

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

# This example uses a previously obtained access token having permission for the 
# scope "https://www.googleapis.com/auth/cloud-platform"

# In this example, Get Google Cloud Storage OAuth2 Access Token, 
# the service account access token was saved to a text file.  This example fetches the access token from the file..
$sbToken = chilkat::CkStringBuilder->new();
$sbToken->LoadFile("qa_data/tokens/googleCloudStorageAccessToken.txt","utf-8");

# ---- Step 1
# Create a JSON that contains the following information, replacing [VALUES_IN_BRACKETS] with the appropriate values:

# {
#   "name": "[BUCKET_NAME]",
#   "location": "[BUCKET_LOCATION]",
#   "storageClass": "[STORAGE_CLASS]"
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("name","chilkat-ocean");
$json->UpdateString("location","us");
$json->UpdateString("storageClass","multi_regional");

# ---- Step 2
# Send a POST equivalent to this curl command

# curl -X POST --data-binary @[JSON_FILE_NAME].json \
#      -H "Authorization: Bearer [OAUTH2_TOKEN]" \
#      -H "Content-Type: application/json" \
#      "https://www.googleapis.com/storage/v1/b?project=[PROJECT_ID]"

$http = chilkat::CkHttp->new();
$http->put_AuthToken($sbToken->getAsString());

$http->SetUrlVar("project_id","chilkat-176611");
$url = "https://www.googleapis.com/storage/v1/b?project={$project_id}";
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST",$url,$json,"application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$responseCode = $resp->get_StatusCode();
if ($responseCode == 401) {
    print $resp->bodyStr() . "\r\n";
    print "If invalid credentials, then it is likely the access token expired." . "\r\n";
    print "Your app should automatically fetch a new access token and re-try." . "\r\n";
    exit;
}

print "Response code: " . $responseCode . "\r\n";
print "Response body" . "\r\n";
print $resp->bodyStr() . "\r\n";

# A successful response looks like this:
# Response code: 200
# Response body
# {
#  "kind": "storage#bucket",
#  "id": "chilkat-ocean",
#  "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-ocean",
#  "projectNumber": "933037264567",
#  "name": "chilkat-ocean",
#  "timeCreated": "2017-08-13T12:27:10.811Z",
#  "updated": "2017-08-13T12:27:10.811Z",
#  "metageneration": "1",
#  "location": "US",
#  "storageClass": "MULTI_REGIONAL",
#  "etag": "CAE="
# }
# 

# Parse the JSON response:
$jsonResp = chilkat::CkJsonObject->new();
$jsonResp->Load($resp->bodyStr());

print "name: " . $jsonResp->stringOf("name") . "\r\n";
print "timeCreated: " . $jsonResp->stringOf("timeCreated") . "\r\n";

# Parse the date/time created.
$dt = chilkat::CkDateTime->new();
$dt->SetFromTimestamp($jsonResp->stringOf("timeCreated"));
# ...