(Perl) Google Drive Refresh Access Token

Demonstrates how to automatically refresh the access token when it expires.

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

use chilkat();

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

$success = 1;

# This example uses a previously obtained access token having permission for the 
# Google Drive scope.

# The access token (and refresh token) was previously saved to a JSON file with this format:
# See Get Google Drive OAuth2 Access Token

# {
#   "access_token": "ya29.Gls-BsdxTWuenChv ... yzVIrXikkLxu5T6dy4I6GjADFardoz4Lruw",
#   "expires_in": 3600,
#   "refresh_token": "1/tMBJ ... 27D-Hk6rpQYBA",
#   "scope": "https://www.googleapis.com/auth/drive",
#   "token_type": "Bearer"
# }

$json = chilkat::CkJsonObject->new();
$tokenFilePath = "qa_data/tokens/googleDrive.json";
$json->LoadFile($tokenFilePath);

$oauth2 = chilkat::CkOAuth2->new();
$oauth2->put_AccessToken($json->stringOf("access_token"));
$oauth2->put_RefreshToken($json->stringOf("refresh_token"));

$oauth2->put_AuthorizationEndpoint("https://accounts.google.com/o/oauth2/v2/auth");
$oauth2->put_TokenEndpoint("https://www.googleapis.com/oauth2/v4/token");

#  Replace these with actual values.
$oauth2->put_ClientId("GOOGLE-CLIENT-ID");
$oauth2->put_ClientSecret("GOOGLE-CLIENT-SECRET");
$oauth2->put_Scope("https://www.googleapis.com/auth/drive");

# Use OAuth2 to refresh the access token.
$success = $oauth2->RefreshAccessToken();
if ($success != 1) {
    print $oauth2->lastErrorText() . "\r\n";
    exit;
}

print $oauth2->accessTokenResponse() . "\r\n";

# Save the new access token to our JSON file (so we can refresh it again when needed).
$json->UpdateString("access_token",$oauth2->accessToken());

$fac = chilkat::CkFileAccess->new();
$fac->WriteEntireTextFile($tokenFilePath,$json->emit(),"utf-8",0);

print "Access Token Refreshed!" . "\r\n";