(Tcl) Activix CRM Create a Communication

Create a communication. Returns the created communication.

For more information, see https://docs.crm.activix.ca/api/resources/communication

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_AuthToken $http "ACCESS_TOKEN"

CkHttp_put_Accept $http "application/json"

# The following JSON is sent in the request body:

# {
#   "lead_id": "LEAD_ID",
#   "method": "phone",
#   "type": "outgoing",
#   "call_status": "calling"
# }

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

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateString $jsonRequestBody "lead_id" "LEAD_ID"
CkJsonObject_UpdateString $jsonRequestBody "method" "phone"
CkJsonObject_UpdateString $jsonRequestBody "type" "outgoing"
CkJsonObject_UpdateString $jsonRequestBody "call_status" "calling"

set url "https://crm.activix.ca/api/v2/communications"

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $url [CkJsonObject_emit $jsonRequestBody] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] >= 300} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $resp

# Sample output...
# (See the parsing code below..)
# 
# Use the this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# {
#   "data": {
#     "id": 5411998,
#     "created_at": "2019-06-10T13:01:40+00:00",
#     "updated_at": "2019-06-10T13:01:40+00:00",
#     "lead_id": 7135833,
#     "user_id": 13705,
#     "method": "phone",
#     "type": "outgoing",
#     "email_subject": null,
#     "email_body": null,
#     "email_client": null,
#     "email_user": null,
#     "call_duration": null,
#     "call_phone": null,
#     "call_status": "calling"
#   }
# }
# 

set dataId [CkJsonObject_IntOf $jsonResponse "data.id"]
set dataCreated_at [CkJsonObject_stringOf $jsonResponse "data.created_at"]
set dataUpdated_at [CkJsonObject_stringOf $jsonResponse "data.updated_at"]
set dataLead_id [CkJsonObject_IntOf $jsonResponse "data.lead_id"]
set dataUser_id [CkJsonObject_IntOf $jsonResponse "data.user_id"]
set dataMethod [CkJsonObject_stringOf $jsonResponse "data.method"]
set dataType [CkJsonObject_stringOf $jsonResponse "data.type"]
set dataEmail_subject [CkJsonObject_stringOf $jsonResponse "data.email_subject"]
set dataEmail_body [CkJsonObject_stringOf $jsonResponse "data.email_body"]
set dataEmail_client [CkJsonObject_stringOf $jsonResponse "data.email_client"]
set dataEmail_user [CkJsonObject_stringOf $jsonResponse "data.email_user"]
set dataCall_duration [CkJsonObject_stringOf $jsonResponse "data.call_duration"]
set dataCall_phone [CkJsonObject_stringOf $jsonResponse "data.call_phone"]
set dataCall_status [CkJsonObject_stringOf $jsonResponse "data.call_status"]

delete_CkHttp $http
delete_CkJsonObject $jsonRequestBody
delete_CkJsonObject $jsonResponse