Perl Requires Chilkat v11.0.0+

Activix CRM Create a Phone

See more Activix CRM Examples

Create a phone. Returns the created phone. 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": 7135833,
#    "number": "+15141234455",
#    "type": "home"
#  }

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

$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateInt("lead_id",7135833);
$jsonRequestBody->UpdateString("number","+15141234455");
$jsonRequestBody->UpdateString("type","home");

$url = "https://crm.activix.ca/api/v2/lead-phones";

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

$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");
$dataExtension = $jsonResponse->stringOf("data.extension");
$dataNumber = $jsonResponse->stringOf("data.number");
$dataType = $jsonResponse->stringOf("data.type");
$dataValid = $jsonResponse->BoolOf("data.valid");
$dataValidated = $jsonResponse->stringOf("data.validated");
$dataMobile = $jsonResponse->BoolOf("data.mobile");