Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correction to typo. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
09d64d0da9a7104a79f08c661b2a632d |
| User & Date: | gerald 2014-01-11 20:33:36.759 |
Context
| 2014-01-13 23:25 | Corrected logic of test. check-in: a487bd41ac user: gerald tags: trunk | |
| 2014-01-11 20:33 | Correction to typo. check-in: 09d64d0da9 user: gerald tags: trunk | |
| 2014-01-08 23:15 | Fix for: [2c3ef042cf] -- Need to handle SOAP errors reported with HTTP-500 code. check-in: f7183d2c90 user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
1411 1412 1413 1414 1415 1416 1417 |
}
::http::wait $token
##
## Check for errors
##
set httpStatus [::http::status $token]
| | | 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 |
}
::http::wait $token
##
## Check for errors
##
set httpStatus [::http::status $token]
if {![string equal $httpStatus ok] && [::http::ncode $token] == 500} {
set body [::http::data $token]
::log::log debug "\tReceived: $body"
set outTransform [dict get $serviceInfo outTransform]
if {![string equal $outTransform {}]} {
SaveAndSetOptions $serviceName
catch {set body [$outTransform $serviceName $operationName REPLY $body]}
RestoreSavedOptions $serviceName
|
| ︙ | ︙ | |||
1903 1904 1905 1906 1907 1908 1909 |
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
| < | 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 |
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
|
| ︙ | ︙ |