(Perl) 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 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.

$rest = chilkat::CkRest->new();

# Connect to the www.dropbox.com endpoint.
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("api.dropboxapi.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->AddHeader("Authorization","Bearer DROPBOX-ACCESS-TOKEN");

$responseStr = $rest->fullRequestNoBody("POST","/2/users/get_space_usage");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Success is indicated by a 200 response status code.
if ($rest->get_ResponseStatusCode() != 200) {
    # Examine the request/response to see what happened.
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response body (if any): " . $responseStr . "\r\n";
    print "---" . "\r\n";
    print "LastRequestStartLine: " . $rest->lastRequestStartLine() . "\r\n";
    print "LastRequestHeader: " . $rest->lastRequestHeader() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($responseStr);

$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

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