(Tcl) Xero Delete File (FILES API)
Delete a file via the Xero FILES API.
Note: This example requires Chilkat v9.5.0.64 or greater.
load ./chilkat.dll
# 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.
set rest [new_CkRest]
# 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..
# ------------------------------------------------------------------------------
set fileID "f042e9a3-a31d-4595-b8b3-6030ea6084bb"
set sbPath [new_CkStringBuilder]
CkStringBuilder_Append $sbPath "/files.xro/1.0/Files/{FileId}"
set numReplaced [CkStringBuilder_Replace $sbPath "{FileId}" $fileID]
set jsonResponse [CkRest_fullRequestNoBody $rest "DELETE" [CkStringBuilder_getAsString $sbPath]]
if {$success != 1} then {
puts [CkRest_lastErrorText $rest]
delete_CkRest $rest
delete_CkStringBuilder $sbPath
exit
}
# A 201 response is expected for actual success.
if {[CkRest_get_ResponseStatusCode $rest] != 201} then {
puts "$jsonResponse"
puts "-- Failed."
delete_CkRest $rest
delete_CkStringBuilder $sbPath
exit
}
puts "Xero Delete File was Successful."
delete_CkRest $rest
delete_CkStringBuilder $sbPath
|