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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6a7c94f3a8362754f9ef68131628aab7 |
| User & Date: | gerald 2015-03-12 23:05:47 |
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 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"]
}
###########################################################################
#
|
| |
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"]
}
###########################################################################
#
|