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

# --------------------------------------------------------------------------------
# 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
}

set privKey [new_CkPrivateKey]

set success [CkPfx_PrivateKeyAt $pfx 0 $privKey]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkXml $xml
    delete_CkPfx $pfx
    delete_CkPrivateKey $privKey
    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_CkXml $xml
    delete_CkPfx $pfx
    delete_CkPrivateKey $privKey
    delete_CkHttp $http
    exit
}

# Tell Chilkat to automatically calculate and add the oauth_body_hash field when sending the request.
CkHttp_put_OAuthBodyHash $http 1

# Send the SOAP XML request and get the response.
# Chilkat automaticaly adds the OAuth1 authentication.
set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://sandbox.api.mastercard.com/iccp/financial" [CkXml_getXml $xml] "utf-8" "application/xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkXml $xml
    delete_CkPfx $pfx
    delete_CkPrivateKey $privKey
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    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_CkXml $xml
delete_CkPfx $pfx
delete_CkPrivateKey $privKey
delete_CkHttp $http
delete_CkHttpResponse $resp
delete_CkXml $respXml