(Perl) GeoOp Exchange Refresh Token for New Access Token

Demonstrates how to use the /oauth2/token endpoint to exchange it for a new access token once the current access token has expired.

Note: This example requires Chilkat v9.5.0.65 or greater.

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.

# This example also assumes that OAuth2 access and refresh tokens were previously fetched.
# and saved in a JSON file.  

# First get our previously obtained refresh token.
# { .... "refresh_token":"e6dqdG....mzjpT04w==", .... }
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/geoop.json");

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

# Connect to GeoOp...
$bAutoReconnect = 1;
$success = $rest->Connect("login.geoop.com",443,1,$bAutoReconnect);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Set the X-Version header.
$rest->AddHeader("X-Version","1.0");

# Provide the required form params to get the new access token
print "refresh_token = " . $jsonToken->stringOf("refresh_token") . "\r\n";
$rest->AddQueryParam("refresh_token",$jsonToken->stringOf("refresh_token"));
$rest->AddQueryParam("grant_type","refresh_token");
$rest->AddQueryParam("client_id","GEOOP-CLIENT-ID");
$rest->AddQueryParam("client_secret","GEOOP-CLIENT-SECRET");

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

# If the response status code did not indicate success, then see what happened..
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 $responseBody . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->Load($responseBody);

# Show the full JSON response.  It should contain the new access token...
print $json->emit() . "\r\n";