Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Another partial fix. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9c7e118edb38fc526e7ae238fe25d066 |
| User & Date: | gerald 2015-05-24 01:25:46 |
References
| 2018-09-03 17:33 | • Ticket [7bb1cd7b43] status still Fixed with 1 other change artifact: cf34b4cd01 user: oehhar | |
| 2015-05-26 08:03 | • New ticket [ab9ad7b044] Trying [9c7e118edb] results in http error. artifact: 63aabb3e5e user: oehhar | |
Context
| 2015-06-16 16:43 | http package complained about wrong list. Cause is, that any "{}" was replaced by double quotes, destroying the list structure (resulting in SOAPAction ""service:method"" ) Ticket [ab9ad7b044] check-in: 284717ad56 user: oehhar tags: trunk | |
| 2015-06-02 15:13 | http package complained about wrong list. Cause is, that any "{}" was replaced by double quotes, destroying the list structure (resulting in SOAPAction ""service:method"" ) Ticket [ab9ad7b044] Closed-Leaf check-in: 450754413a user: oehhar tags: bug-ab9ad7b044 | |
| 2015-06-02 13:08 | Dead code removed - is covered by upper if check-in: b63a8eb960 user: oehhar tags: client-http-error | |
| 2015-05-24 01:25 | Another partial fix. check-in: 9c7e118edb user: gerald tags: trunk | |
| 2015-05-23 17:12 | Switched one of the debug statements back to info. check-in: 11b59f5d29 user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
....
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
|
proc ::WS::Client::buildCallquery {serviceName operationName url argList} {
variable serviceArr
set serviceInfo $serviceArr($serviceName)
set style [dict get $serviceInfo operation $operationName style]
set suppressTargetNS [dict get $serviceInfo suppressTargetNS]
if {$suppressTargetNS} {
::WS::Utils::SetOption suppressNS tns1
} else {
::WS::Utils::SetOption suppressNS {}
}
switch -exact -- $style {
................................................................................
default {
return \
-code error
"Unsupported Style '$style'"
}
}
::WS::Utils::SetOption suppressNS {}
set inTransform [dict get $serviceInfo inTransform]
if {![string equal $inTransform {}]} {
set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
}
::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
return $xml
|
>
|
|
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
....
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
|
proc ::WS::Client::buildCallquery {serviceName operationName url argList} {
variable serviceArr
set serviceInfo $serviceArr($serviceName)
set style [dict get $serviceInfo operation $operationName style]
set suppressTargetNS [dict get $serviceInfo suppressTargetNS]
set inSuppressNs [::WS::Utils::SetOption suppressNS]
if {$suppressTargetNS} {
::WS::Utils::SetOption suppressNS tns1
} else {
::WS::Utils::SetOption suppressNS {}
}
switch -exact -- $style {
................................................................................
default {
return \
-code error
"Unsupported Style '$style'"
}
}
::WS::Utils::SetOption suppressNS $inSuppressNs
set inTransform [dict get $serviceInfo inTransform]
if {![string equal $inTransform {}]} {
set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
}
::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
return $xml
|
Changes to Utilities.tcl.
752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 |
puts stderr "Error processing include $schema $baseUrl"
puts stderr $::errorInfo
puts stderr $::errorCode
puts stderr $errMsg
}
set prevSchema $currentSchema
set currentSchema $schema
parseScheme $mode $baseUrl $schema $serviceName serviceInfo tnsCount
set currentSchema $prevSchema
$doc delete
}
###########################################################################
|
> > | > | < |
752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 |
puts stderr "Error processing include $schema $baseUrl"
puts stderr $::errorInfo
puts stderr $::errorCode
puts stderr $errMsg
}
set prevSchema $currentSchema
set nodeList [$schema selectNodes -namespaces $nsList descendant::xs:schema]
foreach node $nodeList {
set currentSchema $node
parseScheme $mode $baseUrl $node $serviceName serviceInfo tnsCount
}
set currentSchema $prevSchema
$doc delete
}
###########################################################################
|