Tcl

Belgium eHealth Platform - checkConnection

See more Belgian eHealth Platform Examples

Demonstrates the first operation of PlatformIntegrationConsumerTest (checkConnection), which has no message-level security and therefore no wsse:Security block in the SOAP header. You test the SSL/TLS connection to the SOA platform. Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

set success [CkHttp_SetSslClientCertPfx $http "SSIN=12345678.acc.p12" "p12_password"]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

# Create the following XML
# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:be:fgov:ehealth:platformintegrationconsumertest:v1"
# xmlns:urn1="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
#     <soapenv:Header/>
#     <soapenv:Body>
#         <urn:CheckConnectionRequest>
#             <urn1:Message>Hello World</urn1:Message>
#             <urn1:Timestamp>2014-12-30T15:29:03.157+01:00</urn1:Timestamp>
#         </urn:CheckConnectionRequest>
#     </soapenv:Body>
# </soapenv:Envelope>

set xml [new_CkXml]

CkXml_put_Tag $xml "soapenv:Envelope"
CkXml_AddAttribute $xml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $xml "xmlns:urn" "urn:be:fgov:ehealth:platformintegrationconsumertest:v1"
CkXml_AddAttribute $xml "xmlns:urn1" "urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1"
CkXml_UpdateChildContent $xml "soapenv:Header" ""
CkXml_UpdateChildContent $xml "soapenv:Body|urn:CheckConnectionRequest|urn1:Message" "Hello World"

# Create a timestamp with the current date/time in the following format: 2014-12-30T15:29:03.157+01:00
set dt [new_CkDateTime]

CkDateTime_SetFromCurrentSystemTime $dt

CkXml_UpdateChildContent $xml "soapenv:Body|urn:CheckConnectionRequest|urn1:Timestamp" [CkDateTime_getAsTimestamp $dt 1]

CkHttp_SetRequestHeader $http "Content-Type" "text/xml"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://services-acpt.ehealth.fgov.be/PlatformIntegrationConsumerTest/v1" [CkXml_getXml $xml] "utf-8" "application/xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkXml $xml
    delete_CkDateTime $dt
    delete_CkHttpResponse $resp
    exit
}

puts [CkHttpResponse_bodyStr $resp]
puts "response status code = [CkHttpResponse_get_StatusCode $resp]"

# A successful response is a 200 status code, with this sample response:
# 
# <?xml version="1.0"?>
# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#    <soapenv:Header xmlns:v1="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:v11="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1"/>
#    <soapenv:Body xmlns:v1="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:v11="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
#       <ic:CheckConnectionResponse xmlns:ic="urn:be:fgov:ehealth:platformintegrationconsumertest:v1" xmlns:type="urn:be:fgov:ehealth:platformintegrationconsumertest:types:v1">
#          <type:Message>Hello World</type:Message>
#          <type:Timestamp>2023-09-28T21:24:32.925+02:00</type:Timestamp>
#          <type:AuthenticatedConsumer>anonymous</type:AuthenticatedConsumer>
#       </ic:CheckConnectionResponse>
#    </soapenv:Body>
# </soapenv:Envelope>

delete_CkHttp $http
delete_CkXml $xml
delete_CkDateTime $dt
delete_CkHttpResponse $resp