Perl

Example: Http.SetAuthTokenSb method

Demonstrates the SetAuthTokenSb method. Perl

use chilkat();

$success = 0;

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

$oauth2_access_token = "ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ";

$sbAccessToken = chilkat::CkStringBuilder->new();
$sbAccessToken->Append($oauth2_access_token);

# Causes the "Authorization: Bearer <access_token>" header to be added to all HTTP requests.
$http->SetAuthTokenSb($sbAccessToken);

$responseText = $http->quickGetStr("https://chilkatsoft.com/helloWorld.txt");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# See the HTTP request header that was sent.
print $http->lastHeader() . "\r\n";

# Output:
# 
# GET /helloWorld.txt HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip
# Authorization: Bearer ya39.Ci-XA_C5bGgRDC3UaD-h0_NeL-DVIQnI2gHtBBBHkZzrwlARkwX6R3O0PCDEzRlfaQ

# Note: Starting in v11.2.0, the information that should be kept secret in the Authorization header
# will be redacted.  Thus, in Chilkat v11.2.0 and later, the LastHeader property will show the following:

# Authorization: Bearer ****