Perl Google Calendar: Change the Color of an Event

Back to Index

Changes the color of a particular event. The calendar and event are specified by ID. This example changes the color for an event (id = 52e7uk7j7vl5dosj7b25memov0) on the calendar (id = support@chilkatcloud.com).
This changes the event to colorId = "6" which seems to be an orange-ish color..

Documentation: https://developers.google.com/google-apps/calendar/v3/reference/events/patch

use chilkat();

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

#   Provide a previously obtained OAuth2 access token.
$oauth2 = chilkat::CkOAuth2->new();
$oauth2->put_AccessToken("OAUTH2_ACCESS_TOKEN");
$rest->SetAuthOAuth2($oauth2);

$success = $rest->Connect("www.googleapis.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  The following code creates the JSON request body.
#  The JSON created by this code is shown below.
$jsonReq = chilkat::CkJsonObject->new();
$jsonReq->UpdateString("colorId","6");

$sbReq = chilkat::CkStringBuilder->new();
$jsonReq->EmitSb($sbReq);

$rest->AddHeader("Content-Type","application/json");

$sbJson = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("PATCH",'/calendar/v3/calendars/support@chilkatcloud.com/events/52e7uk7j7vl5dosj7b25memov0',$sbReq,$sbJson);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

if ($rest->get_ResponseStatusCode() != 200) {
    print "Received error response code: " . $rest->get_ResponseStatusCode() . "\r\n";
    print "Response body:" . "\r\n";
    print $sbJson->getAsString() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->LoadSb($sbJson);

#  The following code parses the JSON response.
#  A sample JSON response is shown below the sample code.

$kind = $json->stringOf("kind");
$etag = $json->stringOf("etag");
$id = $json->stringOf("id");
$status = $json->stringOf("status");
$htmlLink = $json->stringOf("htmlLink");
$created = $json->stringOf("created");
$updated = $json->stringOf("updated");
$summary = $json->stringOf("summary");
$colorId = $json->stringOf("colorId");
$creatorEmail = $json->stringOf("creator.email");
$creatorSelf = $json->BoolOf("creator.self");
$organizerEmail = $json->stringOf("organizer.email");
$organizerSelf = $json->BoolOf("organizer.self");
$startDateTime = $json->stringOf("start.dateTime");
$endDateTime = $json->stringOf("end.dateTime");
$iCalUID = $json->stringOf("iCalUID");
$sequence = $json->IntOf("sequence");
$hangoutLink = $json->stringOf("hangoutLink");
$remindersUseDefault = $json->BoolOf("reminders.useDefault");

print "Example Completed." . "\r\n";

Sample JSON Request Body

{
    "colorId": "6"
}

Sample JSON Response Body

{
  "kind": "calendar#event",
  "etag": "\"3021538600038000\"",
  "id": "52e7uk7j7vl5dosj7b25memov0",
  "status": "confirmed",
  "htmlLink": "https://www.google.com/calendar/event?eid=NTJlN3VrN2o3dmw1ZG9zajdiMjVtZW1vdjAgc3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t",
  "created": "2017-11-08T21:27:50.000Z",
  "updated": "2017-11-15T18:08:20.019Z",
  "summary": "Dentist Appointment",
  "colorId": "6",
  "creator": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "organizer": {
    "email": "support@chilkatcloud.com",
    "self": true
  },
  "start": {
    "dateTime": "2017-11-27T10:30:00-06:00"
  },
  "end": {
    "dateTime": "2017-11-27T11:30:00-06:00"
  },
  "iCalUID": "52e7uk7j7vl5dosj7b25memov0@google.com",
  "sequence": 1,
  "hangoutLink": "https://plus.google.com/hangouts/_/chilkatcloud.com/support?hceid=c3VwcG9ydEBjaGlsa2F0Y2xvdWQuY29t.52e7uk7j7vl5dosj7b25memov0",
  "reminders": {
    "useDefault": true
  }
}