(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

$http->put_AuthToken("ACCESS_TOKEN");

$http->put_Accept("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

$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateString("lead_id","LEAD_ID");
$jsonRequestBody->UpdateString("method","phone");
$jsonRequestBody->UpdateString("type","outgoing");
$jsonRequestBody->UpdateString("call_status","calling");

$url = "https://crm.activix.ca/api/v2/communications";

# resp is a HttpResponse
$resp = $http->PText("POST",$url,$jsonRequestBody->emit(),"utf-8","application/json",0,0);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($resp->bodyStr());
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

if ($resp->get_StatusCode() >= 300) {
    print "Failed." . "\r\n";

    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": 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"
#   }
# }
# 

$dataId = $jsonResponse->IntOf("data.id");
$dataCreated_at = $jsonResponse->stringOf("data.created_at");
$dataUpdated_at = $jsonResponse->stringOf("data.updated_at");
$dataLead_id = $jsonResponse->IntOf("data.lead_id");
$dataUser_id = $jsonResponse->IntOf("data.user_id");
$dataMethod = $jsonResponse->stringOf("data.method");
$dataType = $jsonResponse->stringOf("data.type");
$dataEmail_subject = $jsonResponse->stringOf("data.email_subject");
$dataEmail_body = $jsonResponse->stringOf("data.email_body");
$dataEmail_client = $jsonResponse->stringOf("data.email_client");
$dataEmail_user = $jsonResponse->stringOf("data.email_user");
$dataCall_duration = $jsonResponse->stringOf("data.call_duration");
$dataCall_phone = $jsonResponse->stringOf("data.call_phone");
$dataCall_status = $jsonResponse->stringOf("data.call_status");