Perl Requires Chilkat v11.5.0+

Box: Refresh and Save Rotated OAuth Tokens

See more Box Examples

Refresh the user token saved by the authorization example. Box refresh tokens are single-use and expire after 60 days. Serialize refreshes for a token pair and save the replacement immediately; do not run concurrent refresh jobs.

See the Box API guide for setup and the complete workflow.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Requires Chilkat 11.5.0 or later and a previously unlocked Chilkat bundle.
# See Global Unlock Sample.
# Guide: Box API Guide.

my $success = 0;

my $tokens = Chilkat2::JsonObject->new;
$success = $tokens->LoadFile('qa_data/tokens/box_oauth.json');
if (!$success) {
    print $tokens->LastErrorText, "\n";
    exit;
}

my $oauth2 = Chilkat2::OAuth2->new;
$oauth2->TokenEndpoint('https://api.box.com/oauth2/token');
$oauth2->ClientId('BOX_CLIENT_ID');
$oauth2->ClientSecret('BOX_CLIENT_SECRET');
$oauth2->RefreshToken($tokens->StringOf('refresh_token'));
$success = $oauth2->RefreshAccessToken();
if (!$success) {
    print $oauth2->LastErrorText, "\n";
    exit;
}

$success = $tokens->Load($oauth2->AccessTokenResponse);
if (!$success) {
    print $tokens->LastErrorText, "\n";
    exit;
}

# The previous refresh token is now invalid. Preserve this response even if
# your normal token-store write fails. Do not retry with the old refresh token.
$success = $tokens->WriteFile('qa_data/tokens/box_oauth.json');
if (!$success) {
    print $tokens->LastErrorText, "\n";
    exit;
}

print "New access and refresh tokens saved. Do not log their values.\n";