Perl

Refresh QuickBooks OAuth2 Access Token

See more QuickBooks Examples

Demonstrates how to refresh a QuickBooks OAuth2 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.

# See Get QuickBooks OAuth2 Access Token
# for sample code showing how to obtain a QuickBooks access token for desktop apps.

# This example assumes we previously obtained an OAuth2 access token for QuickBooks.

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

# The access token JSON looks something like this:

# {
#   "expires_in": 3600,
#   "x_refresh_token_expires_in": 8726400,
#   "refresh_token": "L011546037639r ... 3vR2DrbOmg0Sdagw",
#   "access_token": "eyJlbmMiOiJBMTI4Q0 ... oETJEMbeggg",
#   "token_type": "bearer"
# }

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

$oauth2->TokenEndpoint('https://oauth.platform.intuit.com/oauth2/v1/tokens/bearer');

# Replace these with actual values.
$oauth2->ClientId('QUICKBOOKS-CLIENT-ID');
$oauth2->ClientSecret('QUICKBOOKS-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.
# The access + refresh tokens contained in this JSON will be needed for the next refresh.
my $sbJson = Chilkat2::StringBuilder->new;
$jsonToken->EmitCompact(0);

$jsonToken->EmitSb($sbJson);
$sbJson->WriteFile('qa_data/tokens/qb-access-token.json', 'utf-8', 0);

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