(Tcl) Get Populi Access Key (Token)

Demonstrates how to authenticate and obtain an access key using a username and password.

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.

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_CkRest $rest
    exit
}

CkRest_AddQueryParam $rest "username" "POPULI_USERNAME"
CkRest_AddQueryParam $rest "password" "POPULI_PASSWORD"

set responseBody [CkRest_fullRequestFormUrlEncoded $rest "POST" "/api/index.php"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    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_CkRest $rest
    exit
}

set xml [new_CkXml]

CkXml_LoadXml $xml $responseBody
puts [CkXml_getXml $xml]

# Sample response:
# <?xml version="1.0" encoding="ISO-8859-1"?>
# <response>
# <access_key>63481e36023b5d ... 76d0dbc314</access_key>
#     <accountid>19999999</accountid>
#     <accounttype>PERSON</accounttype>
# </response>

# Save the XML to a file for subsequent requests..
CkXml_SaveXml $xml "qa_data/tokens/populi_token.xml"

delete_CkRest $rest
delete_CkXml $xml