Lua Requires Chilkat v11.0.0+

Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API. Lua

local chilkat = require("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.
-- --------------------------------------------------------------------------------

-- 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..
local cert = chilkat.Cert.new()
local success = cert:load_pfx_file("SSIN=12345678.acc.p12", "p12_password")
if not success then
    print(cert.last_error_text)
    return
end

-- 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
local bdSecToken = chilkat.BinData.new()
success = bdSecToken:load_file("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
if not success then
    print("Failed to load SAML security token")
    return
end

-- The SAML security token is just the part from <Assertion ..> ... </Assertion>
-- So let's get just that part..
local startIdx = bdSecToken:find_string("<Assertion", 0, "utf-8")
if startIdx < 0 then
    print("Did not find the start of the SAML assertion.")
    return
end

local endIdx = bdSecToken:find_string("</Assertion>", 0, "utf-8")
if endIdx < 0 then
    print("Did not find the end of the SAML assertion.")
    return
end

-- Adjust the index to the 1st byte after "</Assertion>"
endIdx = endIdx + 12
local base64_saml_token = bdSecToken:get_encoded_chunk(startIdx, endIdx - startIdx, "base64")

print(base64_saml_token)

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

local xml = chilkat.Xml.new()
xml.tag = "soapenv:Envelope"
xml:update_attr_at("soapenv:Header|wsse:Security", true, "xmlns:wsse", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
xml:update_attr_at("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", true, "ValueType", "http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID")
xml:update_attr_at("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", true, "EncodingType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary")

xml:update_child_content("soapenv:Header|wsse:Security|wsse:BinarySecurityToken", base64_saml_token)

xml:update_attr_at("soapenv:Body|add:SearchProfessionalsRequest", true, "Id", "bdc38ae62-3e7f-4f80-80f7-c3e745500fa3")

local dt = chilkat.DateTime.new()
dt:set_from_current_system_time()
xml:update_attr_at("soapenv:Body|add:SearchProfessionalsRequest", true, "IssueInstant", dt:get_as_timestamp(true))

xml:update_attr_at("soapenv:Body|add:SearchProfessionalsRequest", true, "Offset", "0")
xml:update_attr_at("soapenv:Body|add:SearchProfessionalsRequest", true, "MaxElements", "100")
xml:update_child_content("soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN", "74062423769")

print(xml:get_xml())

local http = chilkat.Http.new()

success = http:set_ssl_client_cert(cert)
if not success then
    print(http.last_error_text)
    return
end

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

local xmlStr = xml:get_xml()
local resp = chilkat.HttpResponse.new()
success = http:http_str("POST", "https://services.ehealth.fgov.be/AddressBook/v1", xmlStr, "utf-8", "application/xml", resp)
if not success then
    print(http.last_error_text)
    return
end

print(resp.body_str)
print("response status code = " .. resp.status_code)