Perl
Perl
Activix CRM Create a Communication
See more Activix CRM Examples
Create a communication. Returns the created communication.Chilkat Perl Downloads
use chilkat();
$success = 0;
# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST",$url,$jsonRequestBody,"application/json",$resp);
if ($success == 0) {
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");