(Perl) Populi Search People

Demonstrates the Populi searchPeople task.

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

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# First load the previously obtained API token.
# See Get Populi Access Token for sample code showing how to get the API token.
$xml = chilkat::CkXml->new();
$success = $xml->LoadXmlFile("qa_data/tokens/populi_token.xml");
$accessKey = $xml->getChildContent("access_key");
if ($xml->get_LastMethodSuccess() != 1) {
    print "Did not find the access_key" . "\r\n";
    exit;
}

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

# Connect using TLS.
# A single REST object, once connected, can be used for many Populi REST API calls.
# The auto-reconnect indicates that if the already-established HTTPS connection is closed,
# then it will be automatically re-established as needed.
$bAutoReconnect = 1;
$success = $rest->Connect("yourcollege.populi.co",443,1,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->put_Authorization($accessKey);

$rest->AddQueryParam("task","searchPeople");
$rest->AddQueryParam("search_term","Robert");
$rest->AddQueryParam("limit","10");

$responseBody = $rest->fullRequestFormUrlEncoded("POST","/api/index.php");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# We should expect a 200 response if successful.
if ($rest->get_ResponseStatusCode() != 200) {
    print "Request Header: " . "\r\n";
    print $rest->lastRequestHeader() . "\r\n";
    print "----" . "\r\n";
    print "Response StatusCode = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "Response StatusLine: " . $rest->responseStatusText() . "\r\n";
    print "Response Header:" . "\r\n";
    print $rest->responseHeader() . "\r\n";
    print "Response Body:" . "\r\n";
    print $responseBody . "\r\n";
    exit;
}

$xml->LoadXml($responseBody);
print $xml->getXml() . "\r\n";

# Sample response:
# Use this online tool to generate parsing code from sample XML: 
# Generate Parsing Code from XML

# <?xml version="1.0" encoding="UTF-8"?>
#  <response>
# 	<person>
# 		<id>11111</id>
# 		<first_name>Robert</first_name>
# 		<last_name>McStudent</last_name>
# 		<middle_name>Kensington</middle_name>
# 		<preferred_name>Bobby</preferred_name>
# 		<is_user>1</is_user>
# 		<primary_email>r.mcstudent@myschool.edu</primary_email>
# 	</person>
# 	<person>
# 		<id>2222</id>
# 		<first_name>Robert</first_name>
# 		<last_name>McBoardmember</last_name>
# 		<middle_name/>
# 		<preferred_name/>
# 		<is_user>0</is_user>
# 		<primary_email>robert@gmail.com</primary_email>
# 	</person>
# </response>

$i = 0;
$count_i = $xml->NumChildrenHavingTag("person");
while ($i < $count_i) {
    $xml->put_I($i);
    $id = $xml->GetChildIntValue("person[i]|id");
    $first_name = $xml->getChildContent("person[i]|first_name");
    $last_name = $xml->getChildContent("person[i]|last_name");
    $middle_name = $xml->getChildContent("person[i]|middle_name");
    $preferred_name = $xml->getChildContent("person[i]|preferred_name");
    $is_user = $xml->GetChildIntValue("person[i]|is_user");
    $primary_email = $xml->getChildContent("person[i]|primary_email");
    $i = $i + 1;
}