Perl Requires Chilkat v11.5.0+

Box: Authorize a User with OAuth 2.0

See more Box Examples

Interactive local-development example using a browser and a loopback callback. Register exactly http://localhost:3017/ in the Box User app. Run this in a trusted environment that can hold the client secret. A deployed web app must handle its registered HTTPS callback on the server.

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 $oauth2 = Chilkat2::OAuth2->new;
$oauth2->ListenPort(3017);
$oauth2->AuthorizationEndpoint('https://account.box.com/api/oauth2/authorize');
$oauth2->TokenEndpoint('https://api.box.com/oauth2/token');
$oauth2->ClientId('BOX_CLIENT_ID');
$oauth2->ClientSecret('BOX_CLIENT_SECRET');
# Use Box's documented confidential-client authorization-code flow.
$oauth2->CodeChallenge(0);
my $url = $oauth2->StartAuth();
if (!$oauth2->LastMethodSuccess) {
    print $oauth2->LastErrorText, "\n";
    exit;
}

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

my $elapsedMs = 0;
while (($elapsedMs < 120000) && ($oauth2->AuthFlowState < 3)) {
    $oauth2->SleepMs(100);
    $elapsedMs = $elapsedMs + 100;
}

if ($oauth2->AuthFlowState < 3) {
    $oauth2->Cancel();
    print "Authorization timed out.\n";
    exit;
}

if ($oauth2->AuthFlowState != 3) {
    print 'Authorization was denied or failed. State: ', $oauth2->AuthFlowState, "\n";
    exit;
}

# Retain both tokens in your application's protected token store.
# The variables below are deliberately not printed.
my $accessToken = $oauth2->AccessToken;
my $refreshToken = $oauth2->RefreshToken;
# For this local-development example only, save in a directory restricted to this user.
# Create qa_data/tokens before running; never put this file under a web root.
my $tokens = Chilkat2::JsonObject->new;
$success = $tokens->Load($oauth2->AccessTokenResponse);
if (!$success) {
    print $tokens->LastErrorText, "\n";
    exit;
}

$success = $tokens->WriteFile('qa_data/tokens/box_oauth.json');
if (!$success) {
    print $tokens->LastErrorText, "\n";
    exit;
}

print "Authorization complete; token response saved in the protected local token file.\n";