(Tcl) CallRail API - Update a Call

Updates a call object in the target account. You can use the API to add a Tag or a Note to a call, or to set the call’s lead status.

For more information, see https://apidocs.callrail.com/#updating-a-call

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Implements the following CURL command:

# curl -H "Authorization: Token token={api_token}" \
#      -X PUT \
#      -H "Content-Type: application/json" \
#      -v \
#      -d '{
#            "note": "Call customer back tomorrow",
#            "tags": ["New Client"],
#            "lead_status": "good_lead",
#            "value": "$1.00",
#            "append_tags": true,
#          }' \
#         "https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json"

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "note": "Call customer back tomorrow",
#   "tags": [
#     "New Client"
#   ],
#   "lead_status": "good_lead",
#   "value": "$1.00",
#   "append_tags": true
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "note" "Call customer back tomorrow"
CkJsonObject_UpdateString $json "tags[0]" "New Client"
CkJsonObject_UpdateString $json "lead_status" "good_lead"
CkJsonObject_UpdateString $json "value" "$1.00"
CkJsonObject_UpdateBool $json "append_tags" 1

CkHttp_SetRequestHeader $http "Authorization" "Token token={api_token}"
CkHttp_SetRequestHeader $http "Content-Type" "application/json"

set sbRequestBody [new_CkStringBuilder]

CkJsonObject_EmitSb $json $sbRequestBody

# resp is a CkHttpResponse
set resp [CkHttp_PTextSb $http "PUT" "https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json" $sbRequestBody "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkStringBuilder $sbRequestBody
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody
set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkStringBuilder $sbRequestBody
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

delete_CkHttpResponse $resp

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "answered": false,
#   "business_phone_number": null,
#   "customer_city": "Denver",
#   "customer_country": "US",
#   "customer_name": "RUEGSEGGER SIMO",
#   "customer_phone_number": "+13036231131",
#   "customer_state": "CO",
#   "direction": "inbound",
#   "duration": 4,
#   "id": "CAL8154748ae6bd4e278a7cddd38a662f4f",
#   "recording": "https://api.callrail.com/v3/a/227799611/calls/213472384/recording.json",
#   "recording_duration": "27",
#   "start_time": "2017-01-24T11:27:48.119-05:00",
#   "tracking_phone_number": "+13038163491",
#   "voicemail": false
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set answered [CkJsonObject_BoolOf $jResp "answered"]
set business_phone_number [CkJsonObject_stringOf $jResp "business_phone_number"]
set customer_city [CkJsonObject_stringOf $jResp "customer_city"]
set customer_country [CkJsonObject_stringOf $jResp "customer_country"]
set customer_name [CkJsonObject_stringOf $jResp "customer_name"]
set customer_phone_number [CkJsonObject_stringOf $jResp "customer_phone_number"]
set customer_state [CkJsonObject_stringOf $jResp "customer_state"]
set direction [CkJsonObject_stringOf $jResp "direction"]
set duration [CkJsonObject_IntOf $jResp "duration"]
set id [CkJsonObject_stringOf $jResp "id"]
set recording [CkJsonObject_stringOf $jResp "recording"]
set recording_duration [CkJsonObject_stringOf $jResp "recording_duration"]
set start_time [CkJsonObject_stringOf $jResp "start_time"]
set tracking_phone_number [CkJsonObject_stringOf $jResp "tracking_phone_number"]
set voicemail [CkJsonObject_BoolOf $jResp "voicemail"]

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkStringBuilder $sbRequestBody
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp