(Perl) Get Populi Access Key (Token)

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

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.

$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->AddQueryParam("username","POPULI_USERNAME");
$rest->AddQueryParam("password","POPULI_PASSWORD");

$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 = chilkat::CkXml->new();
$xml->LoadXml($responseBody);
print $xml->getXml() . "\r\n";

# 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..
$xml->SaveXml("qa_data/tokens/populi_token.xml");