(Perl) Create Google Photos Album

Demonstrates how to create a Google Photos album.

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

use chilkat();

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

# Get the previously obtained access token.
# See Get Google Photos Access Token.

$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googlePhotos.json");
if ($success == 0) {
    print $jsonToken->lastErrorText() . "\r\n";
    exit;
}

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

$http->put_AuthToken($jsonToken->stringOf("access_token"));

# Create an album named "animals"
$json = chilkat::CkJsonObject->new();
$json->UpdateString("album.title","animals");

# resp is a HttpResponse
$resp = $http->PostJson("https://photoslibrary.googleapis.com/v1/albums",$json->emit());
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Show the response body.
print $resp->bodyStr() . "\r\n";

# Examine the response status code.  Success is indicated by a status code of 200.
print "response status code: " . $resp->get_StatusCode() . "\r\n";

$json->Load($resp->bodyStr());

# Sample response:

# {
#   "id": "AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
#   "title": "animals",
#   "productUrl": "https://photos.google.com/lr/album/AKcbugHaQTvUKSi3M2RQxOhxhdEaLc5mfUcqFoIU_kpQaROyUD70BcFt7_mnz5PcwwsjPKeKnLHN",
#   "isWriteable": true
# }

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$id = $json->stringOf("id");
$title = $json->stringOf("title");
$productUrl = $json->stringOf("productUrl");
$isWriteable = $json->BoolOf("isWriteable");

print "id = " . $id . "\r\n";