(Perl) Activix CRM Upload a Recording

Upload a recording for an existing 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.

$req = chilkat::CkHttpRequest->new();

$req->put_HttpVerb("POST");
$req->put_Path("/api/v2/communications/COMMUNICATION_ID/recording");
$req->put_ContentType("multipart/form-data");

$req->AddHeader("Accept","application/json");

$pathToFileOnDisk = "qa_data/CantinaBand3.wav";
$success = $req->AddFileForUpload("recording",$pathToFileOnDisk);
if ($success != 1) {
    print $req->lastErrorText() . "\r\n";
    exit;
}

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

# resp is a HttpResponse
$resp = $http->SynchronousRequest("crm.activix.ca",443,1,$req);
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...

# {
#   "message": "Recording uploaded successfully."
# }
#