(Tcl) MS Graph Create Calendar

Creates a new calendar.

For more details, see https://docs.microsoft.com/en-us/graph/api/user-post-calendars?view=graph-rest-1.0

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Use your previously obtained access token as shown here:
#    Get Microsoft Graph OAuth2 Access Token with Calendars.ReadWrite scope.

set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/msGraphCalendar.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    exit
}

CkHttp_put_AuthToken $http [CkJsonObject_stringOf $jsonToken "access_token"]

# Create a JSON body for the HTTP POST
# {
#   "name": "Work"
# }
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "name" "Work"

# POST the JSON to https://graph.microsoft.com/v1.0/me/calendars
# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://graph.microsoft.com/v1.0/me/calendars" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $json
    exit
}

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $json 0

if {[CkHttpResponse_get_StatusCode $resp] != 201} then {
    puts [CkJsonObject_emit $json]
    puts "Failed, response status code = [CkHttpResponse_get_StatusCode $resp]"
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonToken
    delete_CkJsonObject $json
    exit
}

delete_CkHttpResponse $resp

puts [CkJsonObject_emit $json]

# A sample response:
# {
#   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/calendars/$entity",
#   "id": "AQMkAD...TgAAAA==",
#   "name": "Work",
#   "color": "auto",
#   "changeKey": "5+vF7T...HjDcA==",
#   "canShare": true,
#   "canViewPrivateItems": true,
#   "canEdit": true,
#   "owner": {
#     "name": "...",
#     "address": "outlook_3A33...4CC15@outlook.com"
#   }
# }

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

set odataContext [CkJsonObject_stringOf $json "\"@odata.context\""]
set id [CkJsonObject_stringOf $json "id"]
set name [CkJsonObject_stringOf $json "name"]
set color [CkJsonObject_stringOf $json "color"]
set changeKey [CkJsonObject_stringOf $json "changeKey"]
set canShare [CkJsonObject_BoolOf $json "canShare"]
set canViewPrivateItems [CkJsonObject_BoolOf $json "canViewPrivateItems"]
set canEdit [CkJsonObject_BoolOf $json "canEdit"]
set ownerName [CkJsonObject_stringOf $json "owner.name"]
set ownerAddress [CkJsonObject_stringOf $json "owner.address"]

puts "Success."

delete_CkHttp $http
delete_CkJsonObject $jsonToken
delete_CkJsonObject $json