Tcl 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. Tcl

load ./chilkat.dll

set 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

set http [new_CkHttp]

set req [new_CkHttpRequest]

CkHttpRequest_AddHeader $req "onbehalfof" "C25845632020"

CkHttpRequest_AddParam $req "grant_type" "client_credentials"
CkHttpRequest_AddParam $req "client_id" "YOUR_CLIENT_ID"
CkHttpRequest_AddParam $req "client_secret" "YOUR_CLIENT_SECRET"
CkHttpRequest_AddParam $req "scope" "InvoicingAPI"

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpReq $http "https://preprod-api.myinvois.hasil.gov.my/connect/token" $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    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..

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"
puts "Response Body:"
puts [CkHttpResponse_bodyStr $resp]

#  Here's a sample response:

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

set json [new_CkJsonObject]

CkJsonObject_Load $json [CkHttpResponse_bodyStr $resp]
set access_token [CkJsonObject_stringOf $json "access_token"]
set expires_in [CkJsonObject_IntOf $json "expires_in"]
set token_type [CkJsonObject_stringOf $json "token_type"]
set scope [CkJsonObject_stringOf $json "scope"]

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

delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkHttpResponse $resp
delete_CkJsonObject $json