Perl

Get Google API Access Token using P12 Service Account Key

See more Google APIs Examples

Demonstrates how to get a Google API access token using a P12 service account key. 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.

# --------------------------------------------------------------------------------
# For a step-by-step guide for setting up your Google Workspace service account,
# see Setup Google Workspace Account for Sending SMTP GMail from a Service Account
# --------------------------------------------------------------------------------

# First load the PKCS12 (.p12 / .pfx) into a PFX object.
my $pfx = Chilkat2::Pfx->new;
my $success = $pfx->LoadPfxFile('qa_data/pfx/chilkat25-cbd7b42afbd8.p12', 'notasecret');
if (!$success) {
    print $pfx->LastErrorText, "\n";
    exit;
}

my $gAuth = Chilkat2::AuthGoogle->new;
$success = $gAuth->SetP12($pfx);

# The ISS is your service account email address ending in gserviceaccount.com.
my $iss = 'chilkatsvc@chilkat25.iam.gserviceaccount.com';

# The scope is always the following string:
my $scope = 'https://mail.google.com/';

# The sub is your company email address
my $oauth_sub = 'info@chilkat.xyz';

# The access token is valid for this number of seconds.
my $numSec = 3600;

$gAuth->EmailAddress($iss);
$gAuth->Scope($scope);
$gAuth->ExpireNumSeconds($numSec);
$gAuth->SubEmailAddress($oauth_sub);

# Connect to www.googleapis.com
my $tlsSock = Chilkat2::Socket->new;
$success = $tlsSock->Connect('www.googleapis.com', 443, 1, 5000);
if (!$success) {
    print $tlsSock->LastErrorText, "\n";
    exit;
}

# Send the request to obtain the access token.
$success = $gAuth->ObtainAccessToken($tlsSock);
if (!$success) {
    print $gAuth->LastErrorText, "\n";
    exit;
}

# Examine the access token:
print 'Access Token: ', $gAuth->AccessToken, "\n";