(Perl) Xero Delete File (FILES API)
Delete a file via the Xero FILES API.
Note: This example requires Chilkat v9.5.0.64 or greater.
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}");
$numReplaced = $sbPath->Replace("{FileId}",$fileID);
$jsonResponse = $rest->fullRequestNoBody("DELETE",$sbPath->getAsString());
if ($success != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# A 201 response is expected for actual success.
if ($rest->get_ResponseStatusCode() != 201) {
print $jsonResponse . "\r\n";
print "-- Failed." . "\r\n";
exit;
}
print "Xero Delete File was Successful." . "\r\n";
|