(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:ser","http://mastercard.com/sd/pc/service");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateChildContent("soapenv:Body|ser:getDataSourcesRequest","");

# We'll need to get our signing RSA key from the PFX (provided by Mastercard)
$pfx = chilkat::CkPfx->new();
$success = $pfx->LoadPfxFile("qa_data/pfx/MCD_Sandbox_chilkat_iccp_API_Keys/chilkat_iccp-sandbox.p12","keystorepassword");
if ($success == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

# privKey is a PrivateKey
$privKey = $pfx->GetPrivateKey(0);
if ($pfx->get_LastMethodSuccess() == 0) {
    print $pfx->lastErrorText() . "\r\n";
    exit;
}

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

$http->put_OAuth1(1);
# Use your own consumer key (this is not a valid consumer key)
$http->put_OAuthConsumerKey("MLBRl0-xxxxxxxxxxxxxxxxxxxxxxxxxx_BUNtu5xxxxx20b!a075a714a5fxxxxxxxxxxxxx59cd02b60000000000000000");
$http->put_OAuthSigMethod("RSA-SHA256");
$success = $http->SetOAuthRsaKey($privKey);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";

    exit;
}

# 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.
$http->put_OAuthBodyHash(1);

# Send the SOAP XML request and get the response.
# Chilkat automaticaly adds the OAuth1 authentication.
# resp is a HttpResponse
$resp = $http->PostXml("https://sandbox.api.mastercard.com/iccp/financial",$xml->getXml(),"utf-8");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Examine the response status code and the XML response body.
print "Response status code = " . $resp->get_StatusCode() . "\r\n";

$respXml = chilkat::CkXml->new();
$resp->GetBodyXml($respXml);

print "Response XML:" . "\r\n";
print $respXml->getXml() . "\r\n";

# 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