(Perl) Xero Get File Content (Files API)

Demonstrates how to download the content of a Xero file.

Note: This example requires Chilkat v9.5.0.64 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# Note: Requires Chilkat v9.5.0.64 or greater.

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

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

# Before sending REST API calls, the REST object needs to be
# initialized for OAuth1.
# See Xero 2-Legged OAuth1 Setup for sample code.

# Assuming the REST object's OAuth1 authenticator is setup, and the initial
# connection was made, we may now send REST HTTP requests..

# ------------------------------------------------------------------------------
$fileID = "f042e9a3-a31d-4595-b8b3-6030ea6084bb";

$sbPath = chilkat::CkStringBuilder->new();
$sbPath->Append("/files.xro/1.0/Files/{FileId}/Content");
$numReplaced = $sbPath->Replace("{FileId}",$fileID);

$jpgData = chilkat::CkBinData->new();
$success = $rest->FullRequestNoBodyBd("GET",$sbPath->getAsString(),$jpgData);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A 200 response is expected for actual success.
# If we don't get a 200 response, then the response body was not actually
# the file data, but it was text containing error information.
if ($rest->get_ResponseStatusCode() != 200) {
    $sbErrorText = chilkat::CkStringBuilder->new();
    $sbErrorText->AppendBd($jpgData,"utf-8",0,0);
    print $sbErrorText->getAsString() . "\r\n";
    print "-- Failed." . "\r\n";
    exit;
}

# Save to a local file.
$success = $jpgData->WriteFile("qa_output/xero_penguins.jpg");
if ($success != 1) {
    print "Failed to save to local file." . "\r\n";
}

print "Xero Get File was Successful." . "\r\n";