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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
80934c5bdabe0eb4442de8a0092360bf |
| User & Date: | gerald 2015-05-08 02:38:49 |
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
1277
1278
1279
1280
1281
1282
1283
1284
....
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 [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]]
................................................................................
} 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 [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] ]
|
|
|
|
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
....
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 [::http::geturl $url -query $query -type [dict get $serviceInfo contentType]]
set token [::http::geturl $url -query $query -type [dict get $serviceInfo contentType]]
................................................................................
} 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] ]
|