Perl Requires Chilkat v11.0.0+

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

use chilkat();

$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

$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 = chilkat::CkPrivateKey->new();
$success = $pfx->PrivateKeyAt(0,$privKey);
if ($success == 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.
$http->put_OAuthBodyHash(1);

#  Send the SOAP XML request and get the response.
#  Chilkat automaticaly adds the OAuth1 authentication.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST","https://sandbox.api.mastercard.com/iccp/financial",$xml->getXml(),"utf-8","application/xml",$resp);
if ($success == 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