(Perl) Get a Google Calendar

See more Google Calendar Examples

Demonstrates how to get a particular Google Calendar. The calendar can be referenced by the calendar ID, or by the keyword "primary".

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.

# This example uses a previously obtained access token having permission for the 
# Google Calendar scope.

# In this example, Get Google Calendar OAuth2 Access Token, the access
# token was saved to a JSON file.  This example fetches the access token from the file..
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googleCalendar.json");
if ($jsonToken->HasMember("access_token") == 0) {
    print "No access token found." . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();
$http->put_AuthToken($jsonToken->stringOf("access_token"));

# Let's get the primary calendar.
$jsonResponse = $http->quickGetStr("https://www.googleapis.com/calendar/v3/users/me/calendarList/primary");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $jsonResponse . "\r\n";

# A sample response is:

# {
#  "kind": "calendar#calendarListEntry",
#  "etag": "\"1465249947472000\"",
#  "id": "support@chilkatcloud.com",
#  "summary": "support@chilkatcloud.com",
#  "timeZone": "America/Chicago",
#  "colorId": "14",
#  "backgroundColor": "#9fe1e7",
#  "foregroundColor": "#000000",
#  "selected": true,
#  "accessRole": "owner",
#  "defaultReminders": [
#   {
#    "method": "popup",
#    "minutes": 10
#   }
#  ],
#  "notificationSettings": {
#   "notifications": [
#    {
#     "type": "eventCreation",
#     "method": "email"
#    },
#    {
#     "type": "eventChange",
#     "method": "email"
#    },
#    {
#     "type": "eventCancellation",
#     "method": "email"
#    },
#    {
#     "type": "eventResponse",
#     "method": "email"
#    }
#   ]
#  },
#  "primary": true
# }

# It can be parsed like this:
$json = chilkat::CkJsonObject->new();
$json->Load($jsonResponse);

print "kind: " . $json->stringOf("kind") . "\r\n";
print "id: " . $json->stringOf("id") . "\r\n";

# Examine the notification settings, if any..
$numSettings = $json->SizeOfArray("notificationSettings.notifications");
if ($numSettings > 0) {
    $i = 0;
    while ($i < $numSettings) {
        $json->put_I($i);
        print "Notification Type: " . $json->stringOf("notificationSettings.notifications[i].type") . "\r\n";
        print "Notification Method: " . $json->stringOf("notificationSettings.notifications[i].method") . "\r\n";
        $i = $i + 1;
    }

}