Perl Requires Chilkat v9.5.0.64+

Xero Get File Content (Files API)

Demonstrates how to download the content of a Xero file. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $rest = Chilkat2::Rest->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..

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

my $sbPath = Chilkat2::StringBuilder->new;
$sbPath->Append('/files.xro/1.0/Files/{FileId}/Content');
my $numReplaced = $sbPath->Replace('{FileId}', $fileID);

my $jpgData = Chilkat2::BinData->new;
my $success = $rest->FullRequestNoBodyBd('GET', $sbPath->GetAsString(), $jpgData);
if (!$success) {
    print $rest->LastErrorText, "\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->ResponseStatusCode != 200) {
    my $sbErrorText = Chilkat2::StringBuilder->new;
    $sbErrorText->AppendBd($jpgData, 'utf-8', 0, 0);
    print $sbErrorText->GetAsString(), "\n";
    print "-- Failed.\n";
    exit;
}

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

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