Check-in [6a7c94f3a8]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 6a7c94f3a8362754f9ef68131628aab7f5cf70cd
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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"]
}

 
###########################################################################
#