(Tcl) Populi Search People

Demonstrates the Populi searchPeople task.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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.
set xml [new_CkXml]

set success [CkXml_LoadXmlFile $xml "qa_data/tokens/populi_token.xml"]
set accessKey [CkXml_getChildContent $xml "access_key"]
if {[CkXml_get_LastMethodSuccess $xml] != 1} then {
    puts "Did not find the access_key"
    delete_CkXml $xml
    exit
}

set rest [new_CkRest]

# 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.
set bAutoReconnect 1
set success [CkRest_Connect $rest "yourcollege.populi.co" 443 1 $bAutoReconnect]
if {$success != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkXml $xml
    delete_CkRest $rest
    exit
}

CkRest_put_Authorization $rest $accessKey

CkRest_AddQueryParam $rest "task" "searchPeople"
CkRest_AddQueryParam $rest "search_term" "Robert"
CkRest_AddQueryParam $rest "limit" "10"

set responseBody [CkRest_fullRequestFormUrlEncoded $rest "POST" "/api/index.php"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkXml $xml
    delete_CkRest $rest
    exit
}

# We should expect a 200 response if successful.
if {[CkRest_get_ResponseStatusCode $rest] != 200} then {
    puts "Request Header: "
    puts [CkRest_lastRequestHeader $rest]
    puts "----"
    puts "Response StatusCode = [CkRest_get_ResponseStatusCode $rest]"
    puts "Response StatusLine: [CkRest_responseStatusText $rest]"
    puts "Response Header:"
    puts [CkRest_responseHeader $rest]
    puts "Response Body:"
    puts "$responseBody"
    delete_CkXml $xml
    delete_CkRest $rest
    exit
}

CkXml_LoadXml $xml $responseBody
puts [CkXml_getXml $xml]

# 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>

set i 0
set count_i [CkXml_NumChildrenHavingTag $xml "person"]
while {$i < $count_i} {
    CkXml_put_I $xml $i
    set id [CkXml_GetChildIntValue $xml "person[i]|id"]
    set first_name [CkXml_getChildContent $xml "person[i]|first_name"]
    set last_name [CkXml_getChildContent $xml "person[i]|last_name"]
    set middle_name [CkXml_getChildContent $xml "person[i]|middle_name"]
    set preferred_name [CkXml_getChildContent $xml "person[i]|preferred_name"]
    set is_user [CkXml_GetChildIntValue $xml "person[i]|is_user"]
    set primary_email [CkXml_getChildContent $xml "person[i]|primary_email"]
    set i [expr $i + 1]
}

delete_CkXml $xml
delete_CkRest $rest