(Perl) Get Tasks for User

Demonstrates how to retrieve a list of plannertask objects assigned to a User.

See https://docs.microsoft.com/en-us/graph/api/planneruser-list-tasks?view=graph-rest-1.0 for more information.

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.

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

# The Microsoft Planner REST API requires an OAuth2 token with the Group.ReadWrite.All scope.
# Use your previously obtained access token as shown here:
#    Get Microsoft Graph OAuth2 Access Token with Group.ReadWrite.All scope.

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

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

# Send a GET request to https://graph.microsoft.com/v1.0/me/planner/tasks
$strResponse = $http->quickGetStr("https://graph.microsoft.com/v1.0/me/planner/tasks");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->Load($strResponse);
$json->put_EmitCompact(0);

if ($http->get_LastStatus() != 200) {
    print $json->emit() . "\r\n";
    print "Failed, response status code = " . $http->get_LastStatus() . "\r\n";
    exit;
}

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

# Sample output:
# (See parsing code below..)

# {
#   "value": [
#     {
#       "createdBy": {
#         "user": {
#           "id": "6463a5ce-2119-4198-9f2a-628761df4a62"
#         }
#       },
#       "planId": "xqQg5FS2LkCp935s-FIFm2QAFkHM",
#       "bucketId": "gcrYAaAkgU2EQUvpkNNXLGQAGTtu",
#       "title": "title-value",
#       "orderHint": "9223370609546166567W",
#       "assigneePriority": "90057581\"",
#       "createdDateTime": "2015-03-25T18:36:49.2407981Z",
#       "assignments": {
#         "fbab97d0-4932-4511-b675-204639209557": {
#           "@odata.type": "#microsoft.graph.plannerAssignment",
#           "assignedBy": {
#             "user": {
#               "id": "1e9955d2-6acd-45bf-86d3-b546fdc795eb"
#             }
#           },
#           "assignedDateTime": "2015-03-25T18:38:21.956Z",
#           "orderHint": "RWk1"
#          }
#       },
#       "id":"01gzSlKkIUSUl6DF_EilrmQAKDhh"
#     }
#   ]
# }

$i = 0;
$count_i = $json->SizeOfArray("value");
while ($i < $count_i) {
    $json->put_I($i);
    $createdByUserId = $json->stringOf("value[i].createdBy.user.id");
    $planId = $json->stringOf("value[i].planId");
    $bucketId = $json->stringOf("value[i].bucketId");
    $title = $json->stringOf("value[i].title");
    $orderHint = $json->stringOf("value[i].orderHint");
    $assigneePriority = $json->stringOf("value[i].assigneePriority");
    $createdDateTime = $json->stringOf("value[i].createdDateTime");

    # jsonA is a JsonObject
    $jsonA = $json->ObjectOf("value[i].assignments");
    $userId = $jsonA->nameAt(0);
    # jsonUserA is a JsonObject
    $jsonUserA = $jsonA->ObjectOf($userId);
    $assignments_odataType = $jsonUserA->stringOf('\'@odata.type\'');
    $assignmentsAssignedByUserId = $jsonUserA->stringOf("assignedBy.user.id");
    $assignmentsAssignedDateTime = $jsonUserA->stringOf("assignedDateTime");
    $assignmentsOrderHint = $jsonUserA->stringOf("orderHint");

    $id = $json->stringOf("value[i].id");
    $i = $i + 1;
}

print "Success." . "\r\n";