(Perl) Upload String to Dropbox

Uploads a string to a file on Dropbox. This example can upload content up to 150MB, assuming a 150MB string fits in memory for your app. Larger files must be uploaded with an upload session (upload_session/start).

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.

# A Dropbox access token should have been previously obtained.
# Dropbox access tokens do not expire.
# See Dropbox Access Token.

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

# Connect to Dropbox
$success = $rest->Connect("content.dropboxapi.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Add request headers.
$rest->AddHeader("Content-Type","application/octet-stream");
$rest->AddHeader("Authorization","Bearer DROPBOX_ACCESS_TOKEN");

# The upload "parameters" contained in JSON passed in an HTTP request header.
# This is the JSON to be added in this example:
# { 
#    "path": "/jack.txt",
#    "mode": "add",
#    "autorename": true,
#    "mute": false
# }

# This will be the content of the file created in Dropbox.
$content = "All work and no play makes Jack a dull boy";

$json = chilkat::CkJsonObject->new();
$json->AppendString("path","/jack.txt");
$json->AppendString("mode","add");
$json->AppendBool("autorename",1);
$json->AppendBool("mute",0);
$rest->AddHeader("Dropbox-API-Arg",$json->emit());

# Do the upload.  The URL is https://content.dropboxapi.com/2/files/upload.
# We already connected to content.dropboxapi.com using TLS (i.e. HTTPS),
# so now we only need to specify the path "/2/files/upload".

$responseStr = $rest->fullRequestString("POST","/2/files/upload",$content);
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# When successful, Dropbox responds with a 200 response 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;
}

print "LastRequestHeader: " . $rest->lastRequestHeader() . "\r\n";

# The response is JSON.
$jsonResp = chilkat::CkJsonObject->new();
$jsonResp->put_EmitCompact(0);
$jsonResp->Load($responseStr);

# Show the JSON response.
print $jsonResp->emit() . "\r\n";

# Returns JSON that looks like this:
# { 
#  "name": "jack.txt",
#  "path_lower": "/jack.txt",
#  "path_display": "/jack.txt",
#  "id": "id:yqx4-tE_NKAAAAAAAAAAAQ",
#  "client_modified": "2016-06-02T20:42:11Z",
#  "server_modified": "2016-06-02T20:42:11Z",
#  "rev": "8482db15f",
#  "size": 42
# }

# Sample code to get data from the JSON response:
$size = $jsonResp->IntOf("size");
print "size = " . $size . "\r\n";

$rev = $jsonResp->stringOf("rev");
print "rev = " . $rev . "\r\n";

$clientModified = $jsonResp->stringOf("client_modified");
$ckdt = chilkat::CkDateTime->new();
$ckdt->SetFromTimestamp($clientModified);
$bLocalTime = 1;
# dt is a DtObj
$dt = $ckdt->GetDtObj($bLocalTime);
print $dt->get_Day() . "/" . $dt->get_Month() . "/" . $dt->get_Year() . " " . $dt->get_Hour() . ":"
     . $dt->get_Minute() . "\r\n";