Perl Google Drive: List Changes to a TeamDrive

Back to Index

Download a list of changes to a teamdrive. This example lists the changes for the team drive having id = "0AEd3EhGff2SaUk9PVA". The "pageToken" is obtained from a previous call to /drive/v3/changes/startPageToken or from the "nextPageToken" member of the previous call to list changes.

Documentation: https://developers.google.com/drive/v3/reference/changes/list

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;
}

$rest->AddQueryParam("teamDriveId","0AEd3EhGff2SaUk9PVA");
$rest->AddQueryParam("pageToken","13");
$rest->AddQueryParam("includeTeamDriveItems","true");
$rest->AddQueryParam("supportsTeamDrives","true");

$sbJson = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestNoBodySb("GET","/drive/v3/changes",$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");
$newStartPageToken = $json->stringOf("newStartPageToken");
$i = 0;
$count_i = $json->SizeOfArray("changes");
while ($i < $count_i) {
    $json->put_I($i);
    $kind = $json->stringOf("changes[i].kind");
    $type = $json->stringOf("changes[i].type");
    $time = $json->stringOf("changes[i].time");
    $removed = $json->BoolOf("changes[i].removed");
    $fileId = $json->stringOf("changes[i].fileId");
    $fileKind = $json->stringOf("changes[i].file.kind");
    $fileId = $json->stringOf("changes[i].file.id");
    $fileName = $json->stringOf("changes[i].file.name");
    $fileMimeType = $json->stringOf("changes[i].file.mimeType");
    $fileTeamDriveId = $json->stringOf("changes[i].file.teamDriveId");
    $i = $i + 1;
}

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

Sample JSON Response Body

{
  "kind": "drive#changeList",
  "newStartPageToken": "16",
  "changes": [
    {
      "kind": "drive#change",
      "type": "file",
      "time": "2017-11-13T17:04:47.470Z",
      "removed": false,
      "fileId": "1lT4TbeSSMtxgB2MmwE7-5i7vQaxhr6Ze",
      "file": {
        "kind": "drive#file",
        "id": "1lT4TbeSSMtxgB2MmwE7-5i7vQaxhr6Ze",
        "name": "starfish2.jpg",
        "mimeType": "image/jpeg",
        "teamDriveId": "0AEd3EhGff2SaUk9PVA"
      }
    },
    {
      "kind": "drive#change",
      "type": "file",
      "time": "2017-11-13T17:05:01.095Z",
      "removed": false,
      "fileId": "16MsxSRSz6ISRx1D_PXyA5Sj6aNFSEd4e",
      "file": {
        "kind": "drive#file",
        "id": "16MsxSRSz6ISRx1D_PXyA5Sj6aNFSEd4e",
        "name": "seahorse.jpg",
        "mimeType": "image/jpeg",
        "teamDriveId": "0AEd3EhGff2SaUk9PVA"
      }
    }
  ]
}