Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | 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] |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
284717ad56f74904d377d66c9577b166 |
User & Date: | oehhar 2015-06-16 16:43:22.761 |
References
2015-06-16 16:45 | • Closed ticket [ab9ad7b044]: Trying [9c7e118edb] results in http error plus 1 other change artifact: 726ea9c0de user: oehhar | |
Context
2015-06-16 17:05 | Return http error messages for authentication and server errorrs. Ticket [ea054d339d] check-in: 3647d0b69f user: oehhar tags: trunk | |
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-05-24 01:25 | Another partial fix. check-in: 9c7e118edb user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
︙ | |||
907 908 909 910 911 912 913 | 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 | - + - + - + | proc ::WS::Client::GetAndParseWsdl {url {headers {}} {serviceAlias {}}} { variable currentBaseUrl set currentBaseUrl $url switch -exact -- [dict get [::uri::split $url] scheme] { file { upvar #0 [::uri::geturl $url] token |
︙ | |||
1273 1274 1275 1276 1277 1278 1279 | 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 | - - + + | 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]} { |
︙ | |||
1401 1402 1403 1404 1405 1406 1407 | 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 | - - + + | 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]} { |
︙ | |||
1564 1565 1566 1567 1568 1569 1570 | 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 | - + - + | RestoreSavedOptions $serviceName } if {[llength $headers]} { ::log::log info [list \ ::http::geturl $url \ -query $query \ -type [dict get $serviceInfo contentType] \ |
︙ | |||
3146 3147 3148 3149 3150 3151 3152 | 3146 3147 3148 3149 3150 3151 3152 3153 3154 3155 3156 3157 3158 3159 3160 3161 | - - + + | } else { RestoreSavedOptions $serviceName } if {[dict exists $serviceInfo headers]} { set headers [concat $headers [dict get $serviceInfo headers]] } if {[llength $headers]} { |
︙ | |||
3271 3272 3273 3274 3275 3276 3277 | 3271 3272 3273 3274 3275 3276 3277 3278 3279 3280 3281 3282 3283 3284 3285 3286 | - - + + | } else { RestoreSavedOptions $serviceName } if {[dict exists $serviceInfo headers]} { set headers [concat $headers [dict get $serviceInfo headers]] } if {[llength $headers]} { |
︙ | |||
3383 3384 3385 3386 3387 3388 3389 | 3383 3384 3385 3386 3387 3388 3389 3390 3391 3392 3393 3394 3395 3396 3397 | - + | # ########################################################################### proc ::WS::Client::DoRestAsyncCall {serviceName objectName operationName argList succesCmd errorCmd {headers {}}} { variable serviceArr set svcHeaders [dict get $serviceArr($serviceName) headers] if {[llength $svcHeaders]} { |
︙ | |||
3415 3416 3417 3418 3419 3420 3421 | 3415 3416 3417 3418 3419 3420 3421 3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3435 | - + - + | RestoreSavedOptions $serviceName } if {[llength $headers]} { ::log::log info [list \ ::http::geturl $url \ -query $query \ -type [dict get $serviceInfo contentType] \ |
︙ |