Tcl

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