Tcl Requires Chilkat v11.0.0+

Activix CRM Create a Phone

See more Activix CRM Examples

Create a phone. Returns the created phone. Tcl

load ./chilkat.dll

set success 0

#  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": 7135833,
#    "number": "+15141234455",
#    "type": "home"
#  }

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

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateInt $jsonRequestBody "lead_id" 7135833
CkJsonObject_UpdateString $jsonRequestBody "number" "+15141234455"
CkJsonObject_UpdateString $jsonRequestBody "type" "home"

set url "https://crm.activix.ca/api/v2/lead-phones"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" $url $jsonRequestBody "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    delete_CkHttpResponse $resp
    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_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    delete_CkHttpResponse $resp
    delete_CkJsonObject $jsonResponse
    exit
}

#  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": 34566,
#          "created_at": "2018-04-09T18:05:00+00:00",
#          "updated_at": "2018-04-09T18:05:00+00:00",
#          "lead_id": 3466512,
#          "number": "+15141234455",
#          ...
#      }
#  }

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 dataExtension [CkJsonObject_stringOf $jsonResponse "data.extension"]
set dataNumber [CkJsonObject_stringOf $jsonResponse "data.number"]
set dataType [CkJsonObject_stringOf $jsonResponse "data.type"]
set dataValid [CkJsonObject_BoolOf $jsonResponse "data.valid"]
set dataValidated [CkJsonObject_stringOf $jsonResponse "data.validated"]
set dataMobile [CkJsonObject_BoolOf $jsonResponse "data.mobile"]

delete_CkHttp $http
delete_CkJsonObject $jsonRequestBody
delete_CkHttpResponse $resp
delete_CkJsonObject $jsonResponse