Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correction to typo. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
09d64d0da9a7104a79f08c661b2a632d |
| User & Date: | gerald 2014-01-11 20:33:36 |
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
1418
1419
1420
1421
1422
1423
1424
1425
....
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
|
}
::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
................................................................................
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
|
|
<
|
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
....
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
|
}
::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
................................................................................
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
|