Perl

Google Drive Multipart Upload String

See more REST Examples

Demonstrates a file upload to Google Drive where the contents of the file are contained in a string variable. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example will upload a file to Google Drive.
my $success = 1;

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

my $gAuth = Chilkat2::AuthGoogle->new;
$gAuth->Scope('https://www.googleapis.com/auth/drive');
$gAuth->SubEmailAddress('some.user@example.com');
$gAuth->ExpireNumSeconds(3600);

# Obtain an access token as shown in one of the following examples:
# See Get Access Token using a Service Account JSON Key
# See Get Access Token using a P12 File

my $rest = Chilkat2::Rest->new;

# Connect using TLS.
my $bAutoReconnect = 1;
$success = $rest->Connect('www.googleapis.com', 443, 1, $bAutoReconnect);

# Provide the authentication credentials (i.e. the access key)
$success = $rest->SetAuthGoogle($gAuth);

# A multipart upload to Google Drive needs a multipart/related Content-Type
$success = $rest->AddHeader('Content-Type', 'multipart/related');

# Specify each part of the request.

# The 1st part is JSON with information about the file.
$rest->PartSelector('1');
$success = $rest->AddHeader('Content-Type', 'application/json; charset=UTF-8');

my $json = Chilkat2::JsonObject->new;
$success = $json->AddStringAt(-1, 'title', 'helloWorld.txt');
$success = $json->AddStringAt(-1, 'description', 'A simple text file that says Hello World.');
$success = $json->AddStringAt(-1, 'mimeType', 'text/plain');
$success = $rest->SetMultipartBodyString($json->Emit());

# The 2nd part is the file content.
# In this case, we'll upload a simple text file containing "Hello World!"
$rest->PartSelector('2');
$success = $rest->AddHeader('Content-Type', 'text/plain');
$success = $rest->SetMultipartBodyString('Hello World!');

# POST https://www.googleapis.com/upload/drive/v2/files
my $jsonResponse = $rest->FullRequestMultipart('POST', '/upload/drive/v2/files?uploadType=multipart');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Show the JSON response.
print 'Response Status Code: ', $rest->ResponseStatusCode, "\n";
print 'Json Response: ', $jsonResponse, "\n";