Perl

Google OAuth2 Refresh Access Token

See more Google APIs Examples

Demonstrates how to refresh a Google Access Token. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# It is assumed we previously obtained an OAuth2 access token.
# This example loads the JSON access token file
# saved by this example: Google OAuth2 Access Token

my $jsonToken = Chilkat2::JsonObject->new;
my $success = $jsonToken->LoadFile('qa_data/tokens/_googleDrive.json');
if (!$success) {
    print "Failed to load _googleDrive.json\n";
    exit;
}

# The access token JSON looks like this:

#     {
#      "access_token": "abac.Ci-ZabcdF37-NUrmSzxbHxTsMbtlN-uPfabcdAQN_2ekzj0s5ofCzRabcdTDMGaa2Q",
#      "token_type": "Bearer",
#      "expires_in": 3600,
#      "refresh_token": "1/lEe5abcdNJ77eOSDBabcdkQGVmDalkwabcdR2Hatbo"
#     }
#

my $oauth2 = Chilkat2::OAuth2->new;

$oauth2->TokenEndpoint('https://www.googleapis.com/oauth2/v4/token');

# Replace these with actual values.
$oauth2->ClientId('GOOGLE_CLIENT_ID');
$oauth2->ClientSecret('GOOGLE_CLIENT_SECRET');

# Get the "refresh_token"
$oauth2->RefreshToken($jsonToken->StringOf('refresh_token'));

# Send the HTTP POST to refresh the access token..
$success = $oauth2->RefreshAccessToken();
if (!$success) {
    print $oauth2->LastErrorText, "\n";
    exit;
}

# The response contains a new access token, but we must keep
# our existing refresh token for when we need to refresh again in the future.
$jsonToken->UpdateString('access_token', $oauth2->AccessToken);

# Save the new JSON access token response to a file.
my $sbJson = Chilkat2::StringBuilder->new;
$jsonToken->EmitCompact(0);
$jsonToken->EmitSb($sbJson);
$sbJson->WriteFile('qa_data/tokens/_googleDrive.json', 'utf-8', 0);

print "OAuth2 authorization granted!\n";
print 'New Access Token = ', $oauth2->AccessToken, "\n";