Perl Requires Chilkat v11.0.0+

MyInvois Malaysia Login as Intermediary System

See more Malaysia MyInvois Examples

Demonstrates how to get an OAuth2 access token with an intermediary that is representing a taxpayer (acting on behalf of a specific taxpayer). The OAuth2 access token can then be used to access MyInvois protected APIs. Perl

use chilkat();

$success = 0;

#  This example requires the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

#  Sends the following HTTP POST to get a MyInvois OAUth2 access token using client_credentials

#  POST /connect/token HTTP/1.1
#  Host: preprod-api.myinvois.hasil.gov.my
#  Accept: */*
#  Content-Length: <<variable>>
#  Content-Type: application/x-www-form-urlencoded
#  onbehalfof: C25845632020
#  
#  client_id={YOUR_CLIENT_ID}&client_secret={YOUR_CLIENT_SECRET}&grant_type=client_credentials&scope=InvoicingAPI

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

$req = chilkat::CkHttpRequest->new();

$req->AddHeader("onbehalfof","C25845632020");

$req->AddParam("grant_type","client_credentials");
$req->AddParam("client_id","YOUR_CLIENT_ID");
$req->AddParam("client_secret","YOUR_CLIENT_SECRET");
$req->AddParam("scope","InvoicingAPI");

$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("https://preprod-api.myinvois.hasil.gov.my/connect/token",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  Note: The returned access token is valid for a short amount of time.  Perhaps 1 hour.
#  The access token is used in the "Authorization: Bearer <access_token>" header in subsequent requests until it expires.
#  Your application would then need to get a new access token, and so on..

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";
print "Response Body:" . "\r\n";
print $resp->bodyStr() . "\r\n";

#  Here's a sample response:

#  {
#    "access_token": "eyJhbGciOiJSUzI1...",
#    "expires_in": 3600,
#    "token_type": "Bearer",
#    "scope": "InvoicingAPI"
#  }

$json = chilkat::CkJsonObject->new();
$json->Load($resp->bodyStr());
$access_token = $json->stringOf("access_token");
$expires_in = $json->IntOf("expires_in");
$token_type = $json->stringOf("token_type");
$scope = $json->stringOf("scope");

#  To use an access token in a MyInvois API call, see Using a MyInvois Access Token in an API Request