(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.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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 {[expr $success != 1]} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStringBuilder $sbPath
    exit
}

#  A 201 response is expected for actual success.
if {[expr [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