|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Tcl) POST GovTalk XML to https://vrep1-t.cssz.cz/VREP/submissionDemonstrates 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
load ./chilkat.dll # 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 & KHASO v.o.s.</nazev> # <adresa> # <ulice>Na spleniti</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 spleniti" 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 != 1} 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 != 1} 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 != 1} 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] # resp is a CkHttpResponse set resp [CkHttp_PostXml $http "https://vrep1-t.cssz.cz/VREP/submission" [CkXml_getXml $xml] "utf-8"] if {[CkHttp_get_LastMethodSuccess $http] != 1} then { puts [CkHttp_lastErrorText $http] delete_CkXml $xml delete_CkBinData $bd delete_CkGzip $gzip delete_CkCert $cert delete_CkCrypt2 $crypt delete_CkHttp $http 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_CkHttpResponse $resp delete_CkXml $xml delete_CkBinData $bd delete_CkGzip $gzip delete_CkCert $cert delete_CkCrypt2 $crypt delete_CkHttp $http |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.