(Tcl) Google Drive Insert Permission

This example demonstrates how to insert a permission for a file (see https://developers.google.com/drive/v2/reference/permissions/insert)

The impetus for creating this example was a need to be able to view files uploaded using a service account key in the Google Drive web interface. When using a service account access token, the files your application will see are those for the service account, and not the files for your main account. For example, the Google Account I use for testing has a username of "support@chilkatcloud.com". (Don't send email to support@chilkatcloud.com, it's just use for testing and not interactively read.) I use "support@chilkatcloud.com" when I log into Google interactively to view files in Google Drive at https://drive.google.com/drive/my-drive.

The files I upload to Google Drive using a service account key won't be visible in the browser UI. To make them visible, you need to insert a permission for the file so that the main user account, which in this case is "support@chilkatcloud.com", is a reader. After the permission is inserted, the file will be visible under "Shared with me" -- as if another Google Drive account shared the file with you.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 1

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

# This example uses a previously obtained access token having permission for the 
# Google Drive scope.

set gAuth [new_CkAuthGoogle]

CkAuthGoogle_put_AccessToken $gAuth "GOOGLE-DRIVE-ACCESS-TOKEN"

set rest [new_CkRest]

# Connect using TLS.
set bAutoReconnect 1
set success [CkRest_Connect $rest "www.googleapis.com" 443 1 $bAutoReconnect]

# Provide the authentication credentials (i.e. the access token)
CkRest_SetAuthGoogle $rest $gAuth

CkRest_AddHeader $rest "Content-Type" "application/json; charset=UTF-8"

set json [new_CkJsonObject]

CkJsonObject_AppendString $json "role" "reader"
CkJsonObject_AppendString $json "type" "user"
CkJsonObject_AppendString $json "value" "support@chilkatcloud.com"

# A note from a Chilkat customer:
# 
#   My coding attempt was frustrated because I tried a role of "owner".
#   Even when providing the extra parameter of ...?transferOwnership=true
#   that approach fails (400, Bad Request).
# 

# This example is inserting a permission for the file whose fileId is "0By-hrxCCDzSQUGxJY0hzNUFpNmc".
set jsonResponse [CkRest_fullRequestString $rest "POST" "/drive/v2/files/0By-hrxCCDzSQUGxJY0hzNUFpNmc/permissions" [CkJsonObject_emit $json]]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkAuthGoogle $gAuth
    delete_CkRest $rest
    delete_CkJsonObject $json
    exit
}

# A successful response will have a status code equal to 200.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response JSON: $jsonResponse"
    delete_CkAuthGoogle $gAuth
    delete_CkRest $rest
    delete_CkJsonObject $json
    exit
}

# Show the JSON response.
CkJsonObject_Load $json $jsonResponse

# Show the full JSON response.
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

puts "Success."

delete_CkAuthGoogle $gAuth
delete_CkRest $rest
delete_CkJsonObject $json