(Tcl) Dropbox: Get Space Usage

Demonstrates how to get the Dropbox space usage information for the current user's account.

For more information, see https://www.dropbox.com/developers/documentation/http/documentation#users-get_space_usage

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 rest [new_CkRest]

# Connect to the www.dropbox.com endpoint.
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "api.dropboxapi.com" $port $bTls $bAutoReconnect]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

CkRest_AddHeader $rest "Authorization" "Bearer DROPBOX-ACCESS-TOKEN"

set responseStr [CkRest_fullRequestNoBody $rest "POST" "/2/users/get_space_usage"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

# Success is indicated by a 200 response status code.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    # Examine the request/response to see what happened.
    puts "response status code = [CkRest_get_ResponseStatusCode $rest]"
    puts "response status text = [CkRest_responseStatusText $rest]"
    puts "response header: [CkRest_responseHeader $rest]"
    puts "response body (if any): $responseStr"
    puts "---"
    puts "LastRequestStartLine: [CkRest_lastRequestStartLine $rest]"
    puts "LastRequestHeader: [CkRest_lastRequestHeader $rest]"
    delete_CkRest $rest
    exit
}

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse $responseStr

CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

# {
#   "used": 3032115,
#   "allocation": {
#     ".tag": "individual",
#     "allocated": 2147483648
#   }
# }
# 

delete_CkRest $rest
delete_CkJsonObject $jsonResponse