Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix for [411a2eb59f] -- add double qutoes arround the SOAP Action. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
80934c5bdabe0eb4442de8a0092360bf |
| User & Date: | gerald 2015-05-08 02:38:49.148 |
Context
| 2015-05-23 17:03 |
Partial fix for [bcdbb594db].
It may be the entire fix -- waiting on feed back. check-in: 94ea895cf9 user: gerald tags: trunk | |
| 2015-05-08 02:38 | Fix for [411a2eb59f] -- add double qutoes arround the SOAP Action. check-in: 80934c5bda user: gerald tags: trunk | |
| 2015-03-12 23:17 | Fix for [9efd219dc8] - DoCall instead of DoAsyncCall in Tcl_Web_Service_Example.html. check-in: dcae275d25 user: gerald tags: trunk, Release_2.3.8 | |
Changes
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
1270 1271 1272 1273 1274 1275 1276 |
} else {
RestoreSavedOptions $serviceName
}
if {[dict exists $serviceInfo headers]} {
set headers [concat $headers [dict get $serviceInfo headers]]
}
if {[dict exists $serviceInfo operation $operationName action]} {
| | | 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 |
} else {
RestoreSavedOptions $serviceName
}
if {[dict exists $serviceInfo headers]} {
set headers [concat $headers [dict get $serviceInfo headers]]
}
if {[dict exists $serviceInfo operation $operationName action]} {
lappend headers SOAPAction [format {"%s"} [dict get $serviceInfo operation $operationName action]]
}
if {[llength $headers]} {
::log::log info [list ::http::geturl $url -query $query -type [dict get $serviceInfo contentType] -headers [string map {\{ \" \} \"} $headers]]
set token [::http::geturl $url -query $query -type [dict get $serviceInfo contentType] -headers [string map {\{ \" \} \"} $headers]]
} else {
::log::log info [::http::geturl $url -query $query -type [dict get $serviceInfo contentType]]
set token [::http::geturl $url -query $query -type [dict get $serviceInfo contentType]]
|
| ︙ | ︙ | |||
1398 1399 1400 1401 1402 1403 1404 |
} else {
RestoreSavedOptions $serviceName
}
if {[dict exists $serviceInfo headers]} {
set headers [concat $headers [dict get $serviceInfo headers]]
}
if {[dict exists $serviceInfo operation $operationName action]} {
| | | 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 |
} else {
RestoreSavedOptions $serviceName
}
if {[dict exists $serviceInfo headers]} {
set headers [concat $headers [dict get $serviceInfo headers]]
}
if {[dict exists $serviceInfo operation $operationName action]} {
lappend headers SOAPAction [format {"%s"} [dict get $serviceInfo operation $operationName action]]
}
if {[llength $headers]} {
::log::log info [list ::http::geturl $url -query $query -type [dict get $serviceInfo contentType] -headers [string map {\{ \" \} \"} $headers]]
set token [::http::geturl $url -query $query -type [dict get $serviceInfo contentType] -headers [string map {\{ \" \} \"} $headers]]
} else {
::log::log info [list ::http::geturl $url -query $query -type [dict get $serviceInfo contentType] ]
set token [::http::geturl $url -query $query -type [dict get $serviceInfo contentType] ]
|
| ︙ | ︙ |