Sample code for 30+ languages & platforms
Tcl

POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submission

See more HTTP Misc Examples

Demonstrates how to POST a GovTalk XML message to https://vrep1-t.cssz.cz/VREP/submission

PDF Documentation is at http://www.cssz.cz/NR/rdonlyres/0ACDBB35-F78A-4B1A-8258-7249B55C788E/0/csszpodavacidotazovaciprotokol20110608.pdf

Chilkat Tcl Downloads

Download Chilkat for Tcl
Tcl 

load ./chilkat.dll

set success 0

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

# First prepare the XML body that is to be GZip compressed and then encrypted.
# Build the following XML..

# Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
# to generate the XML creation code that follows this XML.

# <?xml version="1.0" encoding="utf-8" ?>
# <pvpoj xmlns="http://schemas.cssz.cz/POJ/PVPOJ2016">
#     <prehled verze="2016.0" typPrehledu="N">
#         <okres>
#             <kodOSSZ>119</kodOSSZ>
#             <nazevOSSZ>Praha 9</nazevOSSZ>
#         </okres>
#         <obdobi>
#             <mesic>1</mesic>
#             <rok>2018</rok>
#         </obdobi>
#         <zamestnavatel>
#             <vs>9992002999</vs>
#             <IC>49710999</IC>
#             <nazev>SIT &amp; KHASO v.o.s.</nazev>
#             <adresa>
#                 <ulice>Na sp�leni�ti</ulice>
#                 <cisloDomu>517</cisloDomu>
#                 <obec>Praha 9</obec>
#                 <PSC>19032</PSC>
#                 <stat>CZ</stat>
#             </adresa>
#         </zamestnavatel>
#         <pojistne>
#             <uhrnVymerovacichZakladu>1104</uhrnVymerovacichZakladu>
#             <pojistneZamestnance>175</pojistneZamestnance>
#             <pojistneZamestnavatele>2826</pojistneZamestnavatele>
#             <pojistneCelkem>4301</pojistneCelkem>
#         </pojistne>
#         <platebniUdaje>
#             <bankaCisloUctu>012345789/0800</bankaCisloUctu>
#         </platebniUdaje>
#         <pracovnik>
#             <jmeno>Matt</jmeno>
#             <prijmeni>Smith</prijmeni>
#             <telefon>606796999</telefon>
#             <email>admin@chilkatsoft.com</email>
#         </pracovnik>
#         <datumVyplneni>2018-03-02</datumVyplneni>
#         <poznamka />
#     </prehled>
# </pvpoj>

set xml [new_CkXml]

CkXml_put_Tag $xml "pvpoj"
CkXml_AddAttribute $xml "xmlns" "http://schemas.cssz.cz/POJ/PVPOJ2016"
CkXml_UpdateAttrAt $xml "prehled" 1 "verze" "2016.0"
CkXml_UpdateAttrAt $xml "prehled" 1 "typPrehledu" "N"
CkXml_UpdateChildContent $xml "prehled|okres|kodOSSZ" "119"
CkXml_UpdateChildContent $xml "prehled|okres|nazevOSSZ" "Praha 9"
CkXml_UpdateChildContent $xml "prehled|obdobi|mesic" "1"
CkXml_UpdateChildContent $xml "prehled|obdobi|rok" "2018"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|vs" "9992002999"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|IC" "49710999"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|nazev" "SIT & KHASO v.o.s."
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|adresa|ulice" "Na sp�leni�ti"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|adresa|cisloDomu" "517"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|adresa|obec" "Praha 9"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|adresa|PSC" "19032"
CkXml_UpdateChildContent $xml "prehled|zamestnavatel|adresa|stat" "CZ"
CkXml_UpdateChildContent $xml "prehled|pojistne|uhrnVymerovacichZakladu" "1104"
CkXml_UpdateChildContent $xml "prehled|pojistne|pojistneZamestnance" "175"
CkXml_UpdateChildContent $xml "prehled|pojistne|pojistneZamestnavatele" "2826"
CkXml_UpdateChildContent $xml "prehled|pojistne|pojistneCelkem" "4301"
CkXml_UpdateChildContent $xml "prehled|platebniUdaje|bankaCisloUctu" "012345789/0800"
CkXml_UpdateChildContent $xml "prehled|pracovnik|jmeno" "Matt"
CkXml_UpdateChildContent $xml "prehled|pracovnik|prijmeni" "Smith"
CkXml_UpdateChildContent $xml "prehled|pracovnik|telefon" "606796999"
CkXml_UpdateChildContent $xml "prehled|pracovnik|email" "admin@chilkatsoft.com"
CkXml_UpdateChildContent $xml "prehled|datumVyplneni" "2018-03-02"
CkXml_UpdateChildContent $xml "prehled|poznamka" ""

CkXml_put_EmitCompact $xml 1
CkXml_put_EmitXmlDecl $xml 0

# Emit the XML into bd.
set bd [new_CkBinData]

CkBinData_AppendString $bd [CkXml_getXml $xml] "utf-8"

# GZip compress the bd contents.
set gzip [new_CkGzip]

# The Filename is not an actual file on disk, but is just the filename string stored in the gzip compressed format.
CkGzip_put_Filename $gzip "pvpoj.xml"
CkGzip_CompressBd $gzip $bd

# Encrypt the contents using the government provided cert.
set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "qa_data/govs/czech/pvpoj/DISCSSZ2019.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkXml $xml
    delete_CkBinData $bd
    delete_CkGzip $gzip
    delete_CkCert $cert
    exit
}

set crypt [new_CkCrypt2]

CkCrypt2_put_CryptAlgorithm $crypt "pki"

CkCrypt2_put_Pkcs7CryptAlg $crypt "aes"
CkCrypt2_put_KeyLength $crypt 256

set success [CkCrypt2_SetEncryptCert $crypt $cert]
if {$success == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkXml $xml
    delete_CkBinData $bd
    delete_CkGzip $gzip
    delete_CkCert $cert
    delete_CkCrypt2 $crypt
    exit
}

set success [CkCrypt2_EncryptBd $crypt $bd]
if {$success == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkXml $xml
    delete_CkBinData $bd
    delete_CkGzip $gzip
    delete_CkCert $cert
    delete_CkCrypt2 $crypt
    exit
}

# At this point, bd contains the gzip compressed / encrypted XML.

# Build the following GovTalkMessage XML:

# <?xml version="1.0" encoding="utf-8"?>
# <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
#   <EnvelopeVersion>2.0</EnvelopeVersion>
#   <Header>
#     <MessageDetails>
#       <Class>CSSZ_PVPOJ</Class>
#       <Qualifier>request</Qualifier>
#       <Function>submit</Function>
#       <TransactionID />
#       <AuditID />
#       <CorrelationID />
#       <ResponseEndPoint PollInterval="0" />
#       <Transformation>XML</Transformation>
#       <GatewayTest />
#       <GatewayTimestamp />
#     </MessageDetails>
#     <SenderDetails>
#       <IDAuthentication>
#         <SenderID />
#         <Authentication>
#           <Method>clear</Method>
#           <Role />
#           <Value />
#         </Authentication>
#       </IDAuthentication>
#       <X509Certificate />
#       <EmailAddress>admin@chilkatsoft.com</EmailAddress>
#     </SenderDetails>
#   </Header>
#   <GovTalkDetails>
#     <Keys>
#       <Key Type="vars">9992888999</Key>
#     </Keys>
#     <GatewayAdditions />
#   </GovTalkDetails>
#   <Body>
#     <Message xmlns="http://www.cssz.cz/XMLSchema/envelope" version="1.2" eType="PVPOJ16">
#       <Header>
#         <Signature xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64">Signature goes here</Signature>
#         <Vendor productName="Abc xyz. s r.o. JKL .NET Client" version="6.0.2.0" />
#       </Header>
#       <Body xmlns:dt="urn:schemas-microsoft-com:datatypes" encrypted="yes" contentEncoding="gzip" dt:dt="bin.base64">Base64 goes here
# </Body>
#     </Message>
#   </Body>
# </GovTalkMessage>
# 

# Use the online tool at http://tools.chilkat.io/xmlCreate.cshtml
# to generate this code.

CkXml_Clear $xml
CkXml_put_Tag $xml "GovTalkMessage"
CkXml_AddAttribute $xml "xmlns" "http://www.govtalk.gov.uk/CM/envelope"
CkXml_UpdateChildContent $xml "EnvelopeVersion" "2.0"
CkXml_UpdateChildContent $xml "Header|MessageDetails|Class" "CSSZ_PVPOJ"
CkXml_UpdateChildContent $xml "Header|MessageDetails|Qualifier" "request"
CkXml_UpdateChildContent $xml "Header|MessageDetails|Function" "submit"
CkXml_UpdateChildContent $xml "Header|MessageDetails|TransactionID" ""
CkXml_UpdateChildContent $xml "Header|MessageDetails|AuditID" ""
CkXml_UpdateChildContent $xml "Header|MessageDetails|CorrelationID" ""
CkXml_UpdateAttrAt $xml "Header|MessageDetails|ResponseEndPoint" 1 "PollInterval" "0"
CkXml_UpdateChildContent $xml "Header|MessageDetails|Transformation" "XML"
CkXml_UpdateChildContent $xml "Header|MessageDetails|GatewayTest" ""
CkXml_UpdateChildContent $xml "Header|MessageDetails|GatewayTimestamp" ""
CkXml_UpdateChildContent $xml "Header|SenderDetails|IDAuthentication|SenderID" ""
CkXml_UpdateChildContent $xml "Header|SenderDetails|IDAuthentication|Authentication|Method" "clear"
CkXml_UpdateChildContent $xml "Header|SenderDetails|IDAuthentication|Authentication|Role" ""
CkXml_UpdateChildContent $xml "Header|SenderDetails|IDAuthentication|Authentication|Value" ""
CkXml_UpdateChildContent $xml "Header|SenderDetails|X509Certificate" ""
CkXml_UpdateChildContent $xml "Header|SenderDetails|EmailAddress" "admin@chilkatsoft.com"
CkXml_UpdateAttrAt $xml "GovTalkDetails|Keys|Key" 1 "Type" "vars"
CkXml_UpdateChildContent $xml "GovTalkDetails|Keys|Key" "9992888999"
CkXml_UpdateChildContent $xml "GovTalkDetails|GatewayAdditions" ""
CkXml_UpdateAttrAt $xml "Body|Message" 1 "xmlns" "http://www.cssz.cz/XMLSchema/envelope"
CkXml_UpdateAttrAt $xml "Body|Message" 1 "version" "1.2"
CkXml_UpdateAttrAt $xml "Body|Message" 1 "eType" "PVPOJ16"
CkXml_UpdateAttrAt $xml "Body|Message|Header|Signature" 1 "xmlns:dt" "urn:schemas-microsoft-com:datatypes"
CkXml_UpdateAttrAt $xml "Body|Message|Header|Signature" 1 "dt:dt" "bin.base64"
CkXml_UpdateChildContent $xml "Body|Message|Header|Signature" "Signature goes here"
CkXml_UpdateAttrAt $xml "Body|Message|Header|Vendor" 1 "productName" "Abc xyz. s r.o. JKL .NET Client"
CkXml_UpdateAttrAt $xml "Body|Message|Header|Vendor" 1 "version" "6.0.2.0"
CkXml_UpdateAttrAt $xml "Body|Message|Body" 1 "xmlns:dt" "urn:schemas-microsoft-com:datatypes"
CkXml_UpdateAttrAt $xml "Body|Message|Body" 1 "encrypted" "yes"
CkXml_UpdateAttrAt $xml "Body|Message|Body" 1 "contentEncoding" "gzip"
CkXml_UpdateAttrAt $xml "Body|Message|Body" 1 "dt:dt" "bin.base64"

# Insert the contents of bd here:
CkXml_UpdateChildContent $xml "Body|Message|Body" [CkBinData_getEncoded $bd "base64"]

# Show the XML to be sent to https://vrep1-t.cssz.cz/VREP/submission
CkXml_put_EmitCompact $xml 0
puts [CkXml_getXml $xml]
CkXml_put_EmitCompact $xml 1

# ----------------------------------------------------------
# POST the XML to https://vrep1-t.cssz.cz/VREP/submission

set http [new_CkHttp]

set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://vrep1-t.cssz.cz/VREP/submission" [CkXml_getXml $xml] "utf-8" "application/xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkXml $xml
    delete_CkBinData $bd
    delete_CkGzip $gzip
    delete_CkCert $cert
    delete_CkCrypt2 $crypt
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# Examine the response status code (200 = success)
set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response status code = $statusCode"

# The response body should be XML.
# Load it into a Chilkat XML object to get it in indented format for viewing..
CkXml_Clear $xml
CkXml_LoadXml $xml [CkHttpResponse_bodyStr $resp]
CkXml_put_EmitCompact $xml 0
puts [CkXml_getXml $xml]

# Output is:
# <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
#     <EnvelopeVersion>2.0</EnvelopeVersion>
#     <Header>
#         <MessageDetails>
#             <Class>CSSZ_PVPOJ</Class>
#             <Qualifier>acknowledgement</Qualifier>
#             <Function>submit</Function>
#             <TransactionID />
#             <CorrelationID>1B6336D5ACE949CDB944424CB2D54401</CorrelationID>
#             <ResponseEndPoint PollInterval="60">https://vrep1-t.cssz.cz/VREP/poll</ResponseEndPoint>
#             <GatewayTimestamp>2018-07-02T22:23:41.310</GatewayTimestamp>
#         </MessageDetails>
#         <SenderDetails />
#     </Header>
#     <GovTalkDetails>
#         <Keys />
#     </GovTalkDetails>
#     <Body>
#         <Signature xmlns="http://www.podani.gov.cz/TxE/timestamp" Version="1.0">
#             <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
#             <TimeStamp>
#                 <date>20180702</date>
#                 <time>22:23:41</time>
#             </TimeStamp>
#             <SignatureValue>MIIORwYJKoZIhvcNAQcCo ... bBNE6MeXmk2siMuvY=</SignatureValue>
#         </Signature>
#     </Body>
# </GovTalkMessage>
# 

# Hint: Use the online tool at http://tools.chilkat.io/xmlParse.cshtml
# to generate XML parsing code based on a sample response..

delete_CkXml $xml
delete_CkBinData $bd
delete_CkGzip $gzip
delete_CkCert $cert
delete_CkCrypt2 $crypt
delete_CkHttp $http
delete_CkHttpResponse $resp