Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix for [9ea9b8e9a3] - $top undefined in ::WS::Client::parseResults |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6a7c94f3a8362754f9ef68131628aab7 |
User & Date: | gerald 2015-03-12 23:05:47.647 |
Context
2015-03-12 23:08 | Fix for [8cf2656d0e] - proc inTransform does not transform the XML Soap message check-in: d512c8e2b3 user: gerald tags: trunk | |
2015-03-12 23:05 | Fix for [9ea9b8e9a3] - $top undefined in ::WS::Client::parseResults check-in: 6a7c94f3a8 user: gerald tags: trunk | |
2014-11-26 23:56 | Corrected change to use tls1. check-in: ff3e708397 user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
︙ | ︙ | |||
1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 | set expectedMsgTypeBase [lindex [split $expectedMsgType {:}] end] set first [string first {<} $inXML] if {$first > 0} { set inXML [string range $inXML $first end] } dom parse $inXML doc set xns { ENV http://schemas.xmlsoap.org/soap/envelope/ xsi "http://www.w3.org/2001/XMLSchema-instance" xs "http://www.w3.org/2001/XMLSchema" } foreach tmp [dict get $serviceInfo targetNamespace] { lappend xns $tmp | > | 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 | set expectedMsgTypeBase [lindex [split $expectedMsgType {:}] end] set first [string first {<} $inXML] if {$first > 0} { set inXML [string range $inXML $first end] } dom parse $inXML doc $doc documentElement top set xns { ENV http://schemas.xmlsoap.org/soap/envelope/ xsi "http://www.w3.org/2001/XMLSchema-instance" xs "http://www.w3.org/2001/XMLSchema" } foreach tmp [dict get $serviceInfo targetNamespace] { lappend xns $tmp |
︙ | ︙ |
Changes to Embedded.tcl.
︙ | ︙ | |||
48 49 50 51 52 53 54 | namespace eval ::WS::Embeded { array set portInfo {} set portList [list] set forever {} | | | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | namespace eval ::WS::Embeded { array set portInfo {} set portList [list] set forever {} variable returnCodeText [dict create 200 OK 404 "Not Found"\ 500 "Internal Server Error" 501 "Not Implemented"] } ########################################################################### # |
︙ | ︙ |