(Tcl) Mastercard ICCP Get Data Source with OAuth1

See more Mastercard Examples

Demonstrates OAuth1 authentication with the Mastercard SOAP API's. This example sends a POST to the sandbox endpoint for the "In Control for Commercial Payments" (ICCP) API.

Note: This example requires Chilkat v9.5.0.91 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# --------------------------------------------------------------------------------
# Also see Chilkat's Online WSDL Code Generator
# to generate code and SOAP Request and Response XML for each operation in a WSDL.
# --------------------------------------------------------------------------------

# First build the XML body of the SOAP request:

#     <soapenv:Envelope
# 	    xmlns:ser="http://mastercard.com/sd/pc/service"
# 	    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
# 	    <soapenv:Header>
# 	    </soapenv:Header>
# 	    <soapenv:Body>
# 		    <ser:getDataSourcesRequest></ser:getDataSourcesRequest>
# 	    </soapenv:Body>
#     </soapenv:Envelope>

# Use this online tool to generate code from sample XML: 
# Generate Code to Create XML

set xml [new_CkXml]

CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:ser" "http://mastercard.com/sd/pc/service"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateChildContent $xml "soapenv:Body|ser:getDataSourcesRequest" ""

# We'll need to get our signing RSA key from the PFX (provided by Mastercard)
set pfx [new_CkPfx]

set success [CkPfx_LoadPfxFile $pfx "qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12" "keystorepassword"]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkXml $xml
    delete_CkPfx $pfx
    exit
}

# privKey is a CkPrivateKey
set privKey [CkPfx_GetPrivateKey $pfx 0]
if {[CkPfx_get_LastMethodSuccess $pfx] == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkXml $xml
    delete_CkPfx $pfx
    exit
}

set http [new_CkHttp]

CkHttp_put_OAuth1 $http 1
# Use your own consumer key (this is not a valid consumer key)
CkHttp_put_OAuthConsumerKey $http "MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000"
CkHttp_put_OAuthSigMethod $http "RSA-SHA256"
set success [CkHttp_SetOAuthRsaKey $http $privKey]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkPrivateKey $privKey

    delete_CkXml $xml
    delete_CkPfx $pfx
    delete_CkHttp $http
    exit
}

delete_CkPrivateKey $privKey

# Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
# This property was added in Chilkat v9.5.0.91.
CkHttp_put_OAuthBodyHash $http 1

# Send the SOAP XML request and get the response.
# Chilkat automaticaly adds the OAuth1 authentication.
# resp is a CkHttpResponse
set resp [CkHttp_PostXml $http "https://sandbox.api.mastercard.com/iccp/financial" [CkXml_getXml $xml] "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkXml $xml
    delete_CkPfx $pfx
    delete_CkHttp $http
    exit
}

# Examine the response status code and the XML response body.
puts "Response status code = [CkHttpResponse_get_StatusCode $resp]"

set respXml [new_CkXml]

CkHttpResponse_GetBodyXml $resp $respXml

puts "Response XML:"
puts [CkXml_getXml $respXml]

# If desired, use this online tool to generate parsing code from response XML.
# (Run your code once to get a representative sample response, and then generate the parsing code.)
# Generate Parsing Code from XML

delete_CkHttpResponse $resp


delete_CkXml $xml
delete_CkPfx $pfx
delete_CkHttp $http
delete_CkXml $respXml