(Perl) Activix CRM Update a Phone

Updates a phone and returns the updated phone.

For more information, see https://docs.crm.activix.ca/api/resources/phone

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:

# {
#   "number": "+15141234459",
#   "type": "home",
#   "mobile": true
# }

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

$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateString("number","+15141234459");
$jsonRequestBody->UpdateString("type","home");
$jsonRequestBody->UpdateBool("mobile",1);

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

# resp is a HttpResponse
$resp = $http->PText("PUT",$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": 34566,
#         "created_at": "2018-04-09T18:05:00+00:00",
#         "updated_at": "2018-04-09T18:07: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->BoolOf("data.validated");
$dataMobile = $jsonResponse->BoolOf("data.mobile");