Perl Requires Chilkat v11.0.0+

Activix CRM Create a Communication

See more Activix CRM Examples

Create a communication. Returns the created communication. Perl

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");