(Perl) Google OAuth2 v3 userinfo (https://www.googleapis.com/oauth2/v3/userinfo)

Demonstrates how to get the Google OAuth2 v3 userinfo.

Important: Make sure the OAuth2 access token included "profile" in the list of scopes.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example assumes 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 
# originally obtained by this example: Get Google People API OAuth2 Access Token
# or refreshed by this example: Refresh Google People API OAuth2 Access Token

$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googlePeople.json");
if ($success != 1) {
    print "Failed to load googleContacts.json" . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();

# -------------------------------------------------------------------------------------
# Make sure the access token was obtained with "profile" included in the list of scopes.
# -------------------------------------------------------------------------------------
$http->put_AuthToken($jsonToken->stringOf("access_token"));

$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb("https://www.googleapis.com/oauth2/v3/userinfo",$sbResponseBody);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    print $sbResponseBody->getAsString() . "\r\n";
    exit;
}

# Sample JSON Response

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->Load($sbResponseBody->getAsString());
print $json->emit() . "\r\n";

# Sample response:

# {
#   "sub": "119999690625687999964",
#   "name": "Matt",
#   "given_name": "Matt",
#   "picture": "https://lh3.googleusercontent.com/-b4...eg3Zjo/AAAAAAAAAAI/AAAAAAAAAAA/AMZuu....3RpdA/s96-c/photo.jpg",
#   "locale": "en"
# }
#