(Perl) Google Calendar -- Generate Event JSON

See more Google Calendar Examples

Demonstrates how to generate the JSON for an event resource. This code can be used as a template for generating JSON to insert new events.

See https://developers.google.com/google-apps/calendar/v3/reference/events#resource for details about the Calender Event Resource JSON.

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

use chilkat();

# This example (below) generates the following JSON:
# Note: Your application code would construct the event JSON using your
# desired subset of members.  For boolean values, you would pass 1 or 0.
# For date or date/time values, you would pass the appropriately formatted date/time string.

# {
#   "kind": "calendar#event",
#   "etag": "some_etag",
#   "id": "string value",
#   "status": "string value",
#   "htmlLink": "string value",
#   "created": "datetime value",
#   "updated": "datetime value",
#   "summary": "string value",
#   "description": "string value",
#   "location": "string value",
#   "colorId": "string value",
#   "creator": {
#     "id": "string value",
#     "email": "string value",
#     "displayName": "string value",
#     "self": true
#   },
#   "organizer": {
#     "id": "string value",
#     "email": "string value",
#     "displayName": "string value",
#     "self": true
#   },
#   "start": {
#     "date": "date value",
#     "dateTime": "datetime value",
#     "timeZone": "string value"
#   },
#   "end": {
#     "date": "date value",
#     "dateTime": "datetime value",
#     "timeZone": "string value"
#   },
#   "endTimeUnspecified": true,
#   "recurrence": [
#     "string value"
#   ],
#   "recurringEventId": "string value",
#   "originalStartTime": {
#     "date": "date value",
#     "dateTime": "datetime value",
#     "timeZone": "string value"
#   },
#   "transparency": "string value",
#   "visibility": "string value",
#   "iCalUID": "string value",
#   "sequence": 1234,
#   "attendees": [
#     {
#       "id": "string value",
#       "email": "string value",
#       "displayName": "string value",
#       "organizer": true,
#       "self": true,
#       "resource": true,
#       "optional": true,
#       "responseStatus": "string value",
#       "comment": "string value",
#       "additionalGuests": 1234
#     },
#     {
#       "id": "string value",
#       "email": "string value",
#       "displayName": "string value",
#       "organizer": true,
#       "self": true,
#       "resource": true,
#       "optional": true,
#       "responseStatus": "string value",
#       "comment": "string value",
#       "additionalGuests": 1234
#     }
#   ],
#   "attendeesOmitted": true,
#   "extendedProperties": {
#     "private": {
#       "someKey": "string value"
#     },
#     "shared": {
#       "someKey": "string value"
#     }
#   },
#   "hangoutLink": "string value",
#   "gadget": {
#     "type": "string value",
#     "title": "string value",
#     "link": "string value",
#     "iconLink": "string value",
#     "width": 1234,
#     "height": 1234,
#     "display": "string value",
#     "preferences": {
#       "someKey": "string value"
#     }
#   },
#   "anyoneCanAddSelf": true,
#   "guestsCanInviteOthers": true,
#   "guestsCanModify": true,
#   "guestsCanSeeOtherGuests": true,
#   "privateCopy": true,
#   "locked": true,
#   "reminders": {
#     "useDefault": true,
#     "overrides": [
#       {
#         "method": "string value",
#         "minutes": 1234
#       }
#     ]
#   },
#   "source": {
#     "url": "string value",
#     "title": "string value"
#   },
#   "attachments": [
#     {
#       "fileUrl": "string value",
#       "title": "string value",
#       "mimeType": "string value",
#       "iconLink": "string value",
#       "fileId": "string value"
#     },
#     {
#       "fileUrl": "string value",
#       "title": "string value",
#       "mimeType": "string value",
#       "iconLink": "string value",
#       "fileId": "string value"
#     }
#   ]
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("kind","calendar#event");
$json->UpdateString("etag","some_etag");
$json->UpdateString("id","string value");
$json->UpdateString("status","string value");
$json->UpdateString("htmlLink","string value");
$json->UpdateString("created","datetime value");
$json->UpdateString("updated","datetime value");
$json->UpdateString("summary","string value");
$json->UpdateString("description","string value");
$json->UpdateString("location","string value");
$json->UpdateString("colorId","string value");
$json->UpdateString("creator.id","string value");
$json->UpdateString("creator.email","string value");
$json->UpdateString("creator.displayName","string value");
$json->UpdateBool("creator.self",1);
$json->UpdateString("organizer.id","string value");
$json->UpdateString("organizer.email","string value");
$json->UpdateString("organizer.displayName","string value");
$json->UpdateBool("organizer.self",1);
$json->UpdateString("start.date","date value");
$json->UpdateString("start.dateTime","datetime value");
$json->UpdateString("start.timeZone","string value");
$json->UpdateString("end.date","date value");
$json->UpdateString("end.dateTime","datetime value");
$json->UpdateString("end.timeZone","string value");
$json->UpdateBool("endTimeUnspecified",1);
$json->UpdateString("recurrence[0]","string value");
$json->UpdateString("recurringEventId","string value");
$json->UpdateString("originalStartTime.date","date value");
$json->UpdateString("originalStartTime.dateTime","datetime value");
$json->UpdateString("originalStartTime.timeZone","string value");
$json->UpdateString("transparency","string value");
$json->UpdateString("visibility","string value");
$json->UpdateString("iCalUID","string value");
$json->UpdateNumber("sequence","1234");

$json->UpdateString("attendees[0].id","string value");
$json->UpdateString("attendees[0].email","string value");
$json->UpdateString("attendees[0].displayName","string value");

# Note: We could alternately specify an index using "i", which allows
# for an application to construct using a loop with a variable..
$json->put_I(0);
$json->UpdateBool("attendees[i].organizer",1);
$json->UpdateBool("attendees[i].self",1);
$json->UpdateBool("attendees[i].resource",1);
$json->UpdateBool("attendees[i].optional",1);
$json->UpdateString("attendees[i].responseStatus","string value");
$json->UpdateString("attendees[i].comment","string value");
$json->UpdateNumber("attendees[i].additionalGuests","1234");

$json->put_I(1);
$json->UpdateString("attendees[i].id","string value");
$json->UpdateString("attendees[i].email","string value");
$json->UpdateString("attendees[i].displayName","string value");

$json->UpdateBool("attendees[1].organizer",1);
$json->UpdateBool("attendees[1].self",1);
$json->UpdateBool("attendees[1].resource",1);
$json->UpdateBool("attendees[1].optional",1);
$json->UpdateString("attendees[1].responseStatus","string value");
$json->UpdateString("attendees[1].comment","string value");
$json->UpdateNumber("attendees[1].additionalGuests","1234");

$json->UpdateBool("attendeesOmitted",1);
$json->UpdateString("extendedProperties.private.someKey","string value");
$json->UpdateString("extendedProperties.shared.someKey","string value");
$json->UpdateString("hangoutLink","string value");
$json->UpdateString("gadget.type","string value");
$json->UpdateString("gadget.title","string value");
$json->UpdateString("gadget.link","string value");
$json->UpdateString("gadget.iconLink","string value");
$json->UpdateNumber("gadget.width","1234");
$json->UpdateNumber("gadget.height","1234");
$json->UpdateString("gadget.display","string value");
$json->UpdateString("gadget.preferences.someKey","string value");
$json->UpdateBool("anyoneCanAddSelf",1);
$json->UpdateBool("guestsCanInviteOthers",1);
$json->UpdateBool("guestsCanModify",1);
$json->UpdateBool("guestsCanSeeOtherGuests",1);
$json->UpdateBool("privateCopy",1);
$json->UpdateBool("locked",1);
$json->UpdateBool("reminders.useDefault",1);
$json->UpdateString("reminders.overrides[0].method","string value");
$json->UpdateNumber("reminders.overrides[0].minutes","1234");
$json->UpdateString("source.url","string value");
$json->UpdateString("source.title","string value");
$json->UpdateString("attachments[0].fileUrl","string value");
$json->UpdateString("attachments[0].title","string value");
$json->UpdateString("attachments[0].mimeType","string value");
$json->UpdateString("attachments[0].iconLink","string value");
$json->UpdateString("attachments[0].fileId","string value");
$json->UpdateString("attachments[1].fileUrl","string value");
$json->UpdateString("attachments[1].title","string value");
$json->UpdateString("attachments[1].mimeType","string value");
$json->UpdateString("attachments[1].iconLink","string value");
$json->UpdateString("attachments[1].fileId","string value");

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";