(Perl) Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

For more information, see https://www.ehealth.fgov.be/ehealthplatform/nl/data/file/view/6c419e5685327eed7200d1c543c38a55d5387d30?name=AddressBook%20Consultation%20WS%20v.1%20-%20Cookbook%20v.1.11%20dd%2031082023.pdf

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example assumes 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.
# --------------------------------------------------------------------------------

$success = 1;

# Provide a certificate + private key.
# Note: If your certificate + private key is located on a hardware token or smartcard, you can call a different function to load from smartcard..
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("SSIN=12345678.acc.p12","p12_password");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Let's get the SAML Security Token obtained from https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken
# a very short time ago..

# See this example for how we got the SAML security token: eHealth Belgium Request Security Token
$bdSecToken = chilkat::CkBinData->new();
$success = $bdSecToken->LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml");
if ($success == 0) {
    print "Failed to load SAML security token" . "\r\n";
    exit;
}

# The SAML security token is just the part from <Assertion ..> ... </Assertion>
# So let's get just that part..
$startIdx = $bdSecToken->FindString("<Assertion",0,"utf-8");
if ($startIdx < 0) {
    print "Did not find the start of the SAML assertion." . "\r\n";
    exit;
}

$endIdx = $bdSecToken->FindString("</Assertion>",0,"utf-8");
if ($endIdx < 0) {
    print "Did not find the end of the SAML assertion." . "\r\n";
    exit;
}

# Adjust the index to the 1st byte after "</Assertion>"
$endIdx = $endIdx + 12;
$base64_saml_token = $bdSecToken->getEncodedChunk($startIdx,$endIdx - $startIdx,"base64");

print $base64_saml_token . "\r\n";

# Our SOAP request will look like this:

# The SOAP request to search for professionals looks like this:

# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:add="urn:be:fgov:ehealth:addressbook:protocol:v1">
#     <soapenv:Header>
# 	      <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
# 	         <wsse:BinarySecurityToken
# 	            ValueType="http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID"
# 	            EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">BASE64_SAML_TOKEN</wsse:BinarySecurityToken>
# 	      </wsse:Security>
#     </soapenv:Header>
#     <soapenv:Body>
#         <add:SearchProfessionalsRequest Id="bdc38ae62-3e7f-4f80-80f7-c3e745500fa3" IssueInstant="2016-03-23T18:49:26.968+01:00" Offset="0" MaxElements="100">
#             <add:SSIN>74062423769</add:SSIN>
#         </add:SearchProfessionalsRequest>
#     </soapenv:Body>
# </soapenv:Envelope>

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd");
$xml->UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID");
$xml->UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",1,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary");

$xml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",$base64_saml_token);

$xml->UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"Id","bdc38ae62-3e7f-4f80-80f7-c3e745500fa3");

$dt = chilkat::CkDateTime->new();
$dt->SetFromCurrentSystemTime();
$xml->UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"IssueInstant",$dt->getAsTimestamp(1));

$xml->UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"Offset","0");
$xml->UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",1,"MaxElements","100");
$xml->UpdateChildContent("soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN","74062423769");

print $xml->getXml() . "\r\n";

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

$success = $http->SetSslClientCert($cert);
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$http->SetRequestHeader("Content-Type","text/xml");
$http->SetRequestHeader("SOAPAction","urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals");

# resp is a HttpResponse
$resp = $http->PostXml("https://services.ehealth.fgov.be/AddressBook/v1",$xml->getXml(),"utf-8");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $resp->bodyStr() . "\r\n";
print "response status code = " . $resp->get_StatusCode() . "\r\n";