(Perl) SugarCRM Create a Record List

Create a record list in Sugar consisting of a set of ids.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$rest = chilkat::CkRest->new();

$success = $rest->Connect("your.site.domain",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->AddHeader("Cache-Control","no-cache");
$rest->AddHeader("OAuth-Token","<access_token>");

# The following code creates the JSON request body.
# The JSON created by this code is shown below.
$jsonReq = chilkat::CkJsonObject->new();
$jsonReq->UpdateString("records[0]","f16760a4-3a52-f77d-1522-5703ca28925f");
$jsonReq->UpdateString("records[1]","ec409fbb-2b22-4f32-7fa1-5703caf78dc3");

# The JSON request body created by the above code:

# {
#   "records": [
#     "f16760a4-3a52-f77d-1522-5703ca28925f",
#     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
#   ]
# }

$sbReq = chilkat::CkStringBuilder->new();
$jsonReq->EmitSb($sbReq);

$rest->AddHeader("Content-Type","application/json");

$sbJson = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/rest/v10/Accounts/record_list",$sbReq,$sbJson);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

if ($rest->get_ResponseStatusCode() != 200) {
    print "Received error response code: " . $rest->get_ResponseStatusCode() . "\r\n";
    print "Response body:" . "\r\n";
    print $sbJson->getAsString() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->LoadSb($sbJson);

# The following code parses the JSON response.
# A sample JSON response is shown below the sample code.

$id = $json->stringOf("id");
$assigned_user_id = $json->stringOf("assigned_user_id");
$module_name = $json->stringOf("module_name");
$date_modified = $json->stringOf("date_modified");
$i = 0;
$count_i = $json->SizeOfArray("records");
while ($i < $count_i) {
    $json->put_I($i);
    $strVal = $json->stringOf("records[i]");
    $i = $i + 1;
}

# A sample JSON response body that is parsed by the above code:

# {
#   "id": "ef963176-4845-bc55-b03e-570430b4173c",
#   "assigned_user_id": "1",
#   "module_name": "Accounts",
#   "records": [
#     "f16760a4-3a52-f77d-1522-5703ca28925f",
#     "ec409fbb-2b22-4f32-7fa1-5703caf78dc3"
#   ],
#   "date_modified": "2016-04-05 21:39:19"
# }

print "Example Completed." . "\r\n";