Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | change "string equal" to eq/ne |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | fwr-jsonrest-changes |
| Files: | files | file ages | folders |
| SHA1: |
a489b96328280538a2b73e8281624196 |
| User & Date: | jeff.lawson 2017-04-05 03:59:39 |
Context
| 2017-04-05 22:50 | remove unintentional proprietary code inclusion check-in: 36a8a04e9e user: jeff.lawson tags: fwr-jsonrest-changes | |
| 2017-04-05 03:59 | change "string equal" to eq/ne check-in: a489b96328 user: jeff.lawson tags: fwr-jsonrest-changes | |
| 2017-04-05 03:58 | * add "flavor" support for "rest" or "soap" * add support for returning json serialized representation of documentation. * add support for optional structure members with "?" suffix char * add "enforceRequired" option to trigger error when a proc fails to return a requiredstructure member. * add "verifyUserArgs" option to validate proc arguments. * add "errorCallback" option to be invoked when serializing a error response. check-in: 5833e8d089 user: jeff.lawson tags: fwr-jsonrest-changes | |
Changes
Changes to ClientSide.tcl.
309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 ... 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 ... 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 ... 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 ... 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 .... 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 .... 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 .... 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 .... 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 .... 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 .... 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 .... 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 .... 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 .... 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 .... 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 .... 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 .... 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 .... 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 .... 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 .... 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 .... 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 .... 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 .... 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 .... 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 .... 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 .... 3198 3199 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 .... 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 .... 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 .... 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 .... 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600 .... 3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 3664 .... 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 .... 3688 3689 3690 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 .... 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 |
set serviceInfo $serviceArr($serviceName)
set validOptionList [array names options]
lappend validOptionList location targetNamespace
if {[lsearch -exact $validOptionList $item] == -1} {
return -code error "Uknown option '$item' -- must be one of: [join $validOptionList {, }]"
}
if {![string equal $value {}]} {
dict set serviceInfo $item $value
set serviceArr($serviceName) $serviceInfo
}
return [dict get $serviceInfo $item]
}
................................................................................
if {[lsearch -exact [dict get $serviceArr($serviceName) objList] $objectName] == -1} {
dict lappend serviceArr($serviceName) objList $objectName
}
if {![llength $location]} {
set location [dict get $serviceArr($serviceName) location]
}
if {![string equal $inputArgs {}]} {
set inType $objectName.$operationName.Request
::WS::Utils::ServiceTypeDef Client $serviceName $inType $inputArgs
} else {
set inType {}
}
if {![string equal $returnType {}]} {
set outType $objectName.$operationName.Results
::WS::Utils::ServiceTypeDef Client $serviceName $outType $returnType
} else {
set outType {}
}
dict set serviceArr($serviceName) object $objectName location $location
................................................................................
set tnsCount [expr {[llength [dict get $serviceArr($serviceName) targetNamespace]]/2}]
set serviceInfo $serviceArr($serviceName)
dict lappend serviceInfo imports $url
::WS::Utils::ProcessImportXml Client $url $xml $serviceName serviceInfo tnsCount
set serviceArr($serviceName) $serviceInfo
set result {}
foreach {result target} [dict get $serviceArr($serviceName) targetNamespace] {
if {[string equal $target $url]} {
break
}
}
return $result
}
###########################################################################
................................................................................
# 1 01/30/2009 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::GetOperationList {serviceName {object {}}} {
variable serviceArr
if {[string equal $object {}]} {
return [dict get $serviceArr($serviceName) operList]
} else {
return [list $object [dict get $serviceArr($serviceName) operation $object inputs] [dict get $serviceArr($serviceName) operation $object outputs]]
}
}
................................................................................
https {
if {[llength $headers]} {
set token [::WS::Utils::geturl_followRedirects $url -headers $headers]
} else {
set token [::WS::Utils::geturl_followRedirects $url]
}
::http::wait $token
if {![string equal [::http::status $token] ok] ||
[::http::ncode $token] != 200} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo [FormatHTTPError $token]
::http::cleanup $token
return \
-code error \
-errorcode $errorCode \
................................................................................
if {[dict get $serviceInfo operation $operationName cloned]} {
continue
}
set procName [format {::%s::%s} $serviceName $operationName]
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {[string equal $inputHeaderType {}]} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {![string equal $headerFields {}]} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
## Petasis, 14 July 2008: If an input message has no elements, just do
## not add any arguments...
set inputMsgTypeDefinition [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType]
if {[dict exists $inputMsgTypeDefinition definition]} {
set inputFields [dict keys [dict get $inputMsgTypeDefinition definition]]
} else {
::log::log debug "no definition found for inputMsgType $inputMsgType"
set inputFields {}
}
if {![string equal $inputFields {}]} {
lappend argList [lsort -dictionary $inputFields]
}
set argList [join $argList]
set body {
set procName [lindex [info level 0] 0]
set serviceName [string trim [namespace qualifiers $procName] {:}]
................................................................................
::http::wait $token
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set results [FormatHTTPError $token]
set hadError 1
} else {
set hadError 0
set results [::http::data $token]
................................................................................
}
::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 hadError [catch {parseResults $serviceName $operationName $body} results]
if {$hadError} {
lassign $::errorCode mainError subError
if {[string equal $mainError WSCLIENT] && [string equal $subError NOSOAP]} {
::log::log debug "\tHTTP error $body"
set results $body
set errorCode [list WSCLIENT HTTPERROR $body]
set errorInfo {}
set hadError 1
} else {
::log::log debug "Reply was $body"
set errorCode $::errorCode
set errorInfo $::errorInfo
}
}
} elseif {![string equal $httpStatus ok] || [::http::ncode $token] != 200} {
::log::log debug "\tHTTP error [array get $token]"
set results [FormatHTTPError $token]
set errorCode [list WSCLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set hadError 1
} else {
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
}
SaveAndSetOptions $serviceName
catch {set hadError [catch {parseResults $serviceName $operationName $body} results]}
RestoreSavedOptions $serviceName
................................................................................
# Version Date Programmer Comments / Changes / Reasons
# ------- ---------- ---------- -------------------------------------------
# 1 06/02/2015 H.Oehlmann Initial version
#
#
###########################################################################
proc ::WS::Client::FormatHTTPError {token} {
if {[string equal [::http::status $token] ok]} {
if {[::http::size $token] == 0} {
return "HTTP failure socket closed"
}
return "HTTP failure code [::http::ncode $token]"
} else {
return "HTTP error: [::http::error $token]"
}
................................................................................
if {[dict get $serviceInfo operation $operationName cloned]} {
continue
}
set procName $operationName
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {[string equal $inputHeaderType {}]} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {![string equal $headerFields {}]} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
if {![string equal $inputMsgType {}]} {
set inTypeDef [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType]
if {[dict exists $inTypeDef definition]} {
set inputFields [dict keys [dict get $inTypeDef definition]]
if {![string equal $inputFields {}]} {
lappend argList [lsort -dictionary $inputFields]
}
}
}
set argList [join $argList]
append procList "\n\t$procName $argList"
................................................................................
foreach object [dict get $serviceInfo objList] {
foreach operationName [dict keys [dict get $serviceInfo object $object operations]] {
set procName $operationName
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {[string equal $inputHeaderType {}]} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {![string equal $headerFields {}]} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
set inputFields [dict keys [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType] definition]]
if {![string equal $inputFields {}]} {
lappend argList [lsort -dictionary $inputFields]
}
set argList [join $argList]
append procList "\n\t$object $procName $argList"
}
}
................................................................................
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
set results {}
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
if {[catch {set hadError [catch {parseResults $serviceName $operationName $body} results]} err]} {
RestoreSavedOptions $serviceName
................................................................................
"Bad reply type, no SOAP envelope received in: \n$inXML"
}
set rootNode [$body childNodes]
::log::log debug "Have [llength $rootNode] node under Body"
if {[llength $rootNode] > 1} {
foreach tmp $rootNode {
#puts "\t Got {[$tmp localName]} looking for {$expectedMsgTypeBase}"
if {[string equal [$tmp localName] $expectedMsgTypeBase] ||
[string equal [$tmp nodeName] $expectedMsgTypeBase] ||
[string equal [$tmp localName] Fault] ||
[string equal [$tmp nodeName] Fault]} {
set rootNode $tmp
break
}
}
}
if {([llength $rootNode] == 1) && ![string equal $rootNode {}]} {
set rootName [$rootNode localName]
if {[string equal $rootName {}]} {
set rootName [$rootNode nodeName]
}
} else {
set rootName {}
}
::log::log debug "root name is {$rootName}"
##
## See if it is a standard error packet
##
if {[string equal $rootName {Fault}]} {
set faultcode {}
set faultstring {}
set detail {}
foreach item {faultcode faultstring detail} {
set tmpNode [$rootNode selectNodes ENV:$item]
if {[string equal $tmpNode {}]} {
set tmpNode [$rootNode selectNodes $item]
}
if {![string equal $tmpNode {}]} {
if {[$tmpNode hasAttribute href]} {
set tmpNode [GetReferenceNode $top [$tmpNode getAttribute href]]
}
set $item [$tmpNode asText]
}
}
$doc delete
................................................................................
-errorinfo $detail \
$faultstring
}
##
## Validated that it is the expected packet type
##
if {![string equal $rootName $expectedMsgTypeBase]} {
$doc delete
return \
-code error \
-errorcode [list WS CLIENT BADREPLY [list $rootName $expectedMsgTypeBase]] \
"Bad reply type, received '$rootName; but expected '$expectedMsgTypeBase'."
}
................................................................................
##
## Convert the packet to a dictionary
##
set results {}
set headerRootNode [$top selectNodes ENV:Header]
if {[llength $headerRootNode]} {
foreach outHeaderType [dict get $serviceInfo operation $operationName soapReplyHeader] {
if {[string equal $outHeaderType {}]} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $outHeaderType] xns]
set node [$headerRootNode selectNodes $outHeaderType]
if {![llength $node]} {
set node [$headerRootNode selectNodes $xns:$outHeaderType]
if {![llength $node]} {
................................................................................
-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
}
................................................................................
xmlns:$tns $target
}
#parray tnsArray
set firstHeader 1
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
lassign $inputHeaderTypeItem inputHeaderType attrList
if {[string equal $inputHeaderType {}]} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType] xns]
if {[info exists tnsArray($xns)]} {
set xns $tnsArray($xns)
}
if {$firstHeader} {
................................................................................
foreach {tns target} $xnsList {
$env setAttribute xmlns:$tns $target
}
set firstHeader 1
foreach inputHeaderType [dict get $serviceInfo operation $operationName soapRequestHeader] {
if {[string equal $inputHeaderType {}]} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType] xns]
if {$firstHeader} {
$env appendChild [$doc createElement "SOAP-ENV:Header" header]
set firstHeader 0
}
................................................................................
set portName [lindex [split [$binding getAttribute type] {:}] end]
::log:::log debug "\t Processing binding '$bindingName' on port '$portName'"
set operList [$binding selectNodes w:operation]
set styleNode [$binding selectNodes d:binding]
if {![info exists style]} {
if {[catch {$styleNode getAttribute style} tmpStyle]} {
set styleNode [$binding selectNodes {w:operation[1]/d:operation}]
if {[string equal $styleNode {}]} {
##
## This binding is for a SOAP level other than 1.1
##
::log:::log debug "Skiping non-SOAP 1.1 binding [$binding asXML]"
continue
}
set style [$styleNode getAttribute style]
#puts "Using style for first operation {$style}"
} else {
set style $tmpStyle
#puts "Using style for first binding {$style}"
}
if {!([string equal $style document] || [string equal $style rpc])} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @1"
return \
-code error \
-errorcode [list WS CLIENT UNSSTY $style] \
"Unsupported calling style: '$style'"
}
if {![info exists use]} {
set use [[$binding selectNodes {w:operation[1]/w:input/d:body}] getAttribute use]
if {!([string equal $style document] && [string equal $use literal]) &&
!([string equal $style rpc] && [string equal $use encoded])} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @2"
return \
-code error \
-errorcode [list WS CLIENT UNSMODE $use] \
"Unsupported mode: $style/$use"
}
}
................................................................................
} else {
set typeList [getTypesForPort $wsdlNode $serviceName $baseName $portName $inName serviceInfo $style]
dict set serviceInfo operation $operName isClone 0
}
#puts "Processing operation $operName"
set actionNode [$oper selectNodes d:operation]
if {[string equal $actionNode {}]} {
::log:::log debug "Skiping operation with no action [$oper asXML]"
continue
}
dict lappend serviceInfo operList $operName
dict set serviceInfo operation $operName cloneList {}
dict set serviceInfo operation $operName cloned 0
dict set serviceInfo operation $operName name $baseName
................................................................................
##
## Get the input headers, if any
##
set soapRequestHeaderList {{}}
foreach inHeader [$oper selectNodes w:input/d:header] {
##set part [$inHeader getAttribute part]
set tmp [$inHeader getAttribute use]
if {![string equal $tmp $use]} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @3"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
set msgName [$inHeader getAttribute message]
................................................................................
##
## Get the output header, if one
##
set soapReplyHeaderList {{}}
foreach outHeader [$oper selectNodes w:output/d:header] {
##set part [$outHeader getAttribute part]
set tmp [$outHeader getAttribute use]
if {![string equal $tmp $use]} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @4"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
set messagePath [$outHeader getAttribute message]
................................................................................
## Validate that the input and output uses
##
set inUse $use
set outUse $use
catch {set inUse [[$oper selectNodes w:input/d:body] getAttribute use]}
catch {set outUse [[$oper selectNodes w:output/d:body] getAttribute use]}
foreach tmp [list $inUse $outUse] {
if {![string equal $tmp $use]} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @5"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
}
................................................................................
upvar 1 $serviceInfoVar serviceInfo
set inType {}
set outType {}
#set portQuery [format {w:portType[attribute::name='%s']} $portName]
#set portNode [lindex [$wsdlNode selectNodes $portQuery] 0]
if {[string equal $inName {}]} {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']} \
$portName $operName]
} else {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']/w:input[attribute::name='%s']/parent::*} \
$portName $operName $inName]
}
::log:::log debug "\t operNode query is {$operQuery}"
set operNode [$wsdlNode selectNodes $operQuery]
if {[string equal $operNode {}] && ![string equal $inName {}]} {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']} \
$portName $operName]
::log:::log debug "\t operNode query is {$operQuery}"
set operNode [$wsdlNode selectNodes $operQuery]
}
set inputMsgNode [$operNode selectNodes {w:input}]
if {![string equal $inputMsgNode {}]} {
set inputMsgPath [$inputMsgNode getAttribute message]
set inputMsg [lindex [split $inputMsgPath {:}] end]
set inType [messageToType $wsdlNode $serviceName $operName $inputMsg serviceInfo $style]
}
set outputMsgNode [$operNode selectNodes {w:output}]
if {![string equal $outputMsgNode {}]} {
set outputMsgPath [$outputMsgNode getAttribute message]
set outputMsg [lindex [split $outputMsgPath {:}] end]
set outType [messageToType $wsdlNode $serviceName $operName $outputMsg serviceInfo $style]
}
##
## Return the types
................................................................................
upvar 1 $serviceInfoVar serviceInfo
::log:::log debug "Enteringing [info level 0]"
#puts "Message to Type $serviceName $operName $msgName"
set msgQuery [format {w:message[attribute::name='%s']} $msgName]
set msg [$wsdlNode selectNodes $msgQuery]
if {[string equal $msg {}] &&
[llength [set msgNameList [split $msgName {:}]]] > 1} {
set tmpMsgName [join [lrange $msgNameList 1 end] {:}]
set msgQuery [format {w:message[attribute::name='%s']} $tmpMsgName]
set msg [$wsdlNode selectNodes $msgQuery]
}
if {[string equal $msg {}]} {
return \
-code error \
-errorcode [list WS CLIENT BADMSGSEC $msgName] \
"Can not find message '$msgName'"
}
switch -exact -- $style {
document/literal {
................................................................................
}
if {![dict exists $serviceInfo object $objectName operation $operationName]} {
return \
-code error \
-errorcode [list WS CLIENT UNKOPER [list $serviceName $objectName $operationName]] \
"Unknown operation '$operationName' for object '$objectName' of service '$serviceName'"
}
if {![string equal $location {}]} {
set url $location
} else {
set url [dict get $serviceInfo object $objectName location]
}
SaveAndSetOptions $serviceName
if {[catch {set query [buildRestCallquery $serviceName $objectName $operationName $url $argList]} err]} {
RestoreSavedOptions $serviceName
................................................................................
}
::http::wait $token
##
## Check for errors
##
set body [::http::data $token]
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set results [FormatHTTPError $token]
set hadError 1
} else {
set hadError 0
set results [::http::data $token]
................................................................................
}
if {![dict exists $serviceInfo object $objectName operation $operationName]} {
return \
-code error \
-errorcode [list WS CLIENT UNKOPER [list $serviceName $objectName $operationName]] \
"Unknown operation '$operationName' for object '$objectName' of service '$serviceName'"
}
if {![string equal $location {}]} {
set url $location
} else {
set url [dict get $serviceInfo object $objectName location]
}
SaveAndSetOptions $serviceName
if {[catch {set query [buildRestCallquery $serviceName $objectName $operationName $url $argList]} err]} {
RestoreSavedOptions $serviceName
................................................................................
## Check for errors
##
set body [::http::data $token]
::log::log info "\tReceived: $body"
set httpStatus [::http::status $token]
set hadError 0
set results {}
if {![string equal $httpStatus ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
::log::log debug "\tHTTP error [array get $token]"
set results [FormatHTTPError $token]
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set hadError 1
} else {
SaveAndSetOptions $serviceName
................................................................................
set xml [format {<?xml version="1.0" encoding="%s"?>} $encoding]
append xml "\n" [$doc asXML -indent none -doctypeDeclaration 0]
#regsub "<!DOCTYPE\[^>\]*>\n" [::dom::DOMImplementation serialize $doc] {} xml
$doc delete
set xml [encoding convertto $encoding $xml]
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::buildRestCallquery with {$xml}"
return $xml
................................................................................
::log::log debug "In parseResults $serviceName $operationName {$inXML}"
set first [string first {<} $inXML]
if {$first > 0} {
set inXML [string range $inXML $first end]
}
set serviceInfo $serviceArr($serviceName)
set outTransform [dict get $serviceInfo outTransform]
if {![string equal $outTransform {}]} {
set inXML [$outTransform $serviceName $operationName REPLY $inXML]
}
set expectedMsgType [dict get $serviceInfo object $objectName operation $operationName outputs]
dom parse $inXML doc
$doc documentElement top
set xns {}
foreach tmp [dict get $serviceInfo targetNamespace] {
................................................................................
::log::log debug "Using namespaces {$xns}"
set body $top
set status [$body getAttribute status]
##
## See if it is a standard error packet
##
if {![string equal $status {ok}]} {
set faultstring {}
if {[catch {set faultstring [[$body selectNodes error] asText]}]} {
catch {set faultstring [[$body selectNodes error] asText]}
}
$doc delete
return \
-code error \
................................................................................
## Convert the packet to a dictionary
##
set results {}
set options [::WS::Utils::SetOption]
::WS::Utils::SetOption UseNS 0
::WS::Utils::SetOption parseInAttr 1
::log::log debug "Calling [list ::WS::Utils::convertTypeToDict Client $serviceName $body $expectedMsgType $body]"
if {![string equal $expectedMsgType {}]} {
set node [$body childNodes]
set nodeName [$node nodeName]
if {![string equal $objectName $nodeName]} {
return \
-code error \
-errorcode [list WS CLIENT BADRESPONSE [list $objectName $nodeName]] \
-errorinfo {} \
"Unexpected message type {$nodeName}, expected {$objectName}"
}
set results [::WS::Utils::convertTypeToDict \
................................................................................
::log::log debug "Entering ::WS::Client::asyncCallDone {$serviceName $objectName $operationName $succesCmd $errorCmd $token}"
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
if {[catch {set hadError [catch {parseRestResults $serviceName $objectName $operationName $body} results]} err]} {
RestoreSavedOptions $serviceName
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 ... 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 ... 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 ... 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 ... 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 .... 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 .... 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 .... 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 .... 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 .... 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 .... 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 .... 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 .... 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 .... 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 .... 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 .... 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 .... 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 .... 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 .... 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 .... 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 .... 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 .... 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 .... 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 .... 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 .... 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 .... 3198 3199 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 .... 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 .... 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 .... 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 .... 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600 .... 3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 3664 .... 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 .... 3688 3689 3690 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 .... 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 |
set serviceInfo $serviceArr($serviceName)
set validOptionList [array names options]
lappend validOptionList location targetNamespace
if {[lsearch -exact $validOptionList $item] == -1} {
return -code error "Uknown option '$item' -- must be one of: [join $validOptionList {, }]"
}
if {$value ne {}} {
dict set serviceInfo $item $value
set serviceArr($serviceName) $serviceInfo
}
return [dict get $serviceInfo $item]
}
................................................................................
if {[lsearch -exact [dict get $serviceArr($serviceName) objList] $objectName] == -1} {
dict lappend serviceArr($serviceName) objList $objectName
}
if {![llength $location]} {
set location [dict get $serviceArr($serviceName) location]
}
if {$inputArgs ne {}} {
set inType $objectName.$operationName.Request
::WS::Utils::ServiceTypeDef Client $serviceName $inType $inputArgs
} else {
set inType {}
}
if {$returnType ne {}} {
set outType $objectName.$operationName.Results
::WS::Utils::ServiceTypeDef Client $serviceName $outType $returnType
} else {
set outType {}
}
dict set serviceArr($serviceName) object $objectName location $location
................................................................................
set tnsCount [expr {[llength [dict get $serviceArr($serviceName) targetNamespace]]/2}]
set serviceInfo $serviceArr($serviceName)
dict lappend serviceInfo imports $url
::WS::Utils::ProcessImportXml Client $url $xml $serviceName serviceInfo tnsCount
set serviceArr($serviceName) $serviceInfo
set result {}
foreach {result target} [dict get $serviceArr($serviceName) targetNamespace] {
if {$target eq $url} {
break
}
}
return $result
}
###########################################################################
................................................................................
# 1 01/30/2009 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::GetOperationList {serviceName {object {}}} {
variable serviceArr
if {$object eq {}} {
return [dict get $serviceArr($serviceName) operList]
} else {
return [list $object [dict get $serviceArr($serviceName) operation $object inputs] [dict get $serviceArr($serviceName) operation $object outputs]]
}
}
................................................................................
https {
if {[llength $headers]} {
set token [::WS::Utils::geturl_followRedirects $url -headers $headers]
} else {
set token [::WS::Utils::geturl_followRedirects $url]
}
::http::wait $token
if {[::http::status $token] ne ok ||
[::http::ncode $token] != 200} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo [FormatHTTPError $token]
::http::cleanup $token
return \
-code error \
-errorcode $errorCode \
................................................................................
if {[dict get $serviceInfo operation $operationName cloned]} {
continue
}
set procName [format {::%s::%s} $serviceName $operationName]
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {$inputHeaderType eq {}} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {$headerFields ne {}} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
## Petasis, 14 July 2008: If an input message has no elements, just do
## not add any arguments...
set inputMsgTypeDefinition [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType]
if {[dict exists $inputMsgTypeDefinition definition]} {
set inputFields [dict keys [dict get $inputMsgTypeDefinition definition]]
} else {
::log::log debug "no definition found for inputMsgType $inputMsgType"
set inputFields {}
}
if {$inputFields ne {}} {
lappend argList [lsort -dictionary $inputFields]
}
set argList [join $argList]
set body {
set procName [lindex [info level 0] 0]
set serviceName [string trim [namespace qualifiers $procName] {:}]
................................................................................
::http::wait $token
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
if {[::http::status $token] ne ok ||
( [::http::ncode $token] != 200 && $body eq {} )} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set results [FormatHTTPError $token]
set hadError 1
} else {
set hadError 0
set results [::http::data $token]
................................................................................
}
::http::wait $token
##
## Check for errors
##
set httpStatus [::http::status $token]
if {$httpStatus eq ok && [::http::ncode $token] == 500} {
set body [::http::data $token]
::log::log debug "\tReceived: $body"
set outTransform [dict get $serviceInfo outTransform]
if {$outTransform ne {}} {
SaveAndSetOptions $serviceName
catch {set body [$outTransform $serviceName $operationName REPLY $body]}
RestoreSavedOptions $serviceName
}
set hadError [catch {parseResults $serviceName $operationName $body} results]
if {$hadError} {
lassign $::errorCode mainError subError
if {$mainError eq WSCLIENT && $subError eq NOSOAP} {
::log::log debug "\tHTTP error $body"
set results $body
set errorCode [list WSCLIENT HTTPERROR $body]
set errorInfo {}
set hadError 1
} else {
::log::log debug "Reply was $body"
set errorCode $::errorCode
set errorInfo $::errorInfo
}
}
} elseif {$httpStatus ne ok || [::http::ncode $token] != 200} {
::log::log debug "\tHTTP error [array get $token]"
set results [FormatHTTPError $token]
set errorCode [list WSCLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set hadError 1
} else {
set body [::http::data $token]
::log::log debug "\tReceived: $body"
set outTransform [dict get $serviceInfo outTransform]
if {$outTransform ne {}} {
SaveAndSetOptions $serviceName
catch {set body [$outTransform $serviceName $operationName REPLY $body]}
RestoreSavedOptions $serviceName
}
SaveAndSetOptions $serviceName
catch {set hadError [catch {parseResults $serviceName $operationName $body} results]}
RestoreSavedOptions $serviceName
................................................................................
# Version Date Programmer Comments / Changes / Reasons
# ------- ---------- ---------- -------------------------------------------
# 1 06/02/2015 H.Oehlmann Initial version
#
#
###########################################################################
proc ::WS::Client::FormatHTTPError {token} {
if {[::http::status $token] eq ok} {
if {[::http::size $token] == 0} {
return "HTTP failure socket closed"
}
return "HTTP failure code [::http::ncode $token]"
} else {
return "HTTP error: [::http::error $token]"
}
................................................................................
if {[dict get $serviceInfo operation $operationName cloned]} {
continue
}
set procName $operationName
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {$inputHeaderType eq {}} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {$headerFields ne {}} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
if {$inputMsgType ne {}} {
set inTypeDef [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType]
if {[dict exists $inTypeDef definition]} {
set inputFields [dict keys [dict get $inTypeDef definition]]
if {$inputFields ne {}} {
lappend argList [lsort -dictionary $inputFields]
}
}
}
set argList [join $argList]
append procList "\n\t$procName $argList"
................................................................................
foreach object [dict get $serviceInfo objList] {
foreach operationName [dict keys [dict get $serviceInfo object $object operations]] {
set procName $operationName
set argList {}
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
set inputHeaderType [lindex $inputHeaderTypeItem 0]
if {$inputHeaderType eq {}} {
continue
}
set headerTypeInfo [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType]
set headerFields [dict keys [dict get $headerTypeInfo definition]]
if {$headerFields ne {}} {
lappend argList [lsort -dictionary $headerFields]
}
}
set inputMsgType [dict get $serviceInfo operation $operationName inputs]
set inputFields [dict keys [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputMsgType] definition]]
if {$inputFields ne {}} {
lappend argList [lsort -dictionary $inputFields]
}
set argList [join $argList]
append procList "\n\t$object $procName $argList"
}
}
................................................................................
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
set results {}
if {[::http::status $token] ne ok ||
( [::http::ncode $token] != 200 && $body eq {} )} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
if {[catch {set hadError [catch {parseResults $serviceName $operationName $body} results]} err]} {
RestoreSavedOptions $serviceName
................................................................................
"Bad reply type, no SOAP envelope received in: \n$inXML"
}
set rootNode [$body childNodes]
::log::log debug "Have [llength $rootNode] node under Body"
if {[llength $rootNode] > 1} {
foreach tmp $rootNode {
#puts "\t Got {[$tmp localName]} looking for {$expectedMsgTypeBase}"
if {[$tmp localName] eq $expectedMsgTypeBase ||
[$tmp nodeName] eq $expectedMsgTypeBase ||
[$tmp localName] eq Fault ||
[$tmp nodeName] eq Fault} {
set rootNode $tmp
break
}
}
}
if {([llength $rootNode] == 1) && $rootNode ne {}} {
set rootName [$rootNode localName]
if {$rootName eq {}} {
set rootName [$rootNode nodeName]
}
} else {
set rootName {}
}
::log::log debug "root name is {$rootName}"
##
## See if it is a standard error packet
##
if {$rootName eq {Fault}} {
set faultcode {}
set faultstring {}
set detail {}
foreach item {faultcode faultstring detail} {
set tmpNode [$rootNode selectNodes ENV:$item]
if {$tmpNode eq {}} {
set tmpNode [$rootNode selectNodes $item]
}
if {$tmpNode ne {}} {
if {[$tmpNode hasAttribute href]} {
set tmpNode [GetReferenceNode $top [$tmpNode getAttribute href]]
}
set $item [$tmpNode asText]
}
}
$doc delete
................................................................................
-errorinfo $detail \
$faultstring
}
##
## Validated that it is the expected packet type
##
if {$rootName ne $expectedMsgTypeBase} {
$doc delete
return \
-code error \
-errorcode [list WS CLIENT BADREPLY [list $rootName $expectedMsgTypeBase]] \
"Bad reply type, received '$rootName; but expected '$expectedMsgTypeBase'."
}
................................................................................
##
## Convert the packet to a dictionary
##
set results {}
set headerRootNode [$top selectNodes ENV:Header]
if {[llength $headerRootNode]} {
foreach outHeaderType [dict get $serviceInfo operation $operationName soapReplyHeader] {
if {$outHeaderType eq {}} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $outHeaderType] xns]
set node [$headerRootNode selectNodes $outHeaderType]
if {![llength $node]} {
set node [$headerRootNode selectNodes $xns:$outHeaderType]
if {![llength $node]} {
................................................................................
-code error
"Unsupported Style '$style'"
}
}
::WS::Utils::SetOption suppressNS $inSuppressNs
set inTransform [dict get $serviceInfo inTransform]
if {$inTransform ne {}} {
set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
}
::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
return $xml
}
................................................................................
xmlns:$tns $target
}
#parray tnsArray
set firstHeader 1
foreach inputHeaderTypeItem [dict get $serviceInfo operation $operationName soapRequestHeader] {
lassign $inputHeaderTypeItem inputHeaderType attrList
if {$inputHeaderType eq {}} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType] xns]
if {[info exists tnsArray($xns)]} {
set xns $tnsArray($xns)
}
if {$firstHeader} {
................................................................................
foreach {tns target} $xnsList {
$env setAttribute xmlns:$tns $target
}
set firstHeader 1
foreach inputHeaderType [dict get $serviceInfo operation $operationName soapRequestHeader] {
if {$inputHeaderType eq {}} {
continue
}
set xns [dict get [::WS::Utils::GetServiceTypeDef Client $serviceName $inputHeaderType] xns]
if {$firstHeader} {
$env appendChild [$doc createElement "SOAP-ENV:Header" header]
set firstHeader 0
}
................................................................................
set portName [lindex [split [$binding getAttribute type] {:}] end]
::log:::log debug "\t Processing binding '$bindingName' on port '$portName'"
set operList [$binding selectNodes w:operation]
set styleNode [$binding selectNodes d:binding]
if {![info exists style]} {
if {[catch {$styleNode getAttribute style} tmpStyle]} {
set styleNode [$binding selectNodes {w:operation[1]/d:operation}]
if {$styleNode eq {}} {
##
## This binding is for a SOAP level other than 1.1
##
::log:::log debug "Skiping non-SOAP 1.1 binding [$binding asXML]"
continue
}
set style [$styleNode getAttribute style]
#puts "Using style for first operation {$style}"
} else {
set style $tmpStyle
#puts "Using style for first binding {$style}"
}
if {!($style eq document || $style eq rpc)} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @1"
return \
-code error \
-errorcode [list WS CLIENT UNSSTY $style] \
"Unsupported calling style: '$style'"
}
if {![info exists use]} {
set use [[$binding selectNodes {w:operation[1]/w:input/d:body}] getAttribute use]
if {!($style eq document && $use eq literal) &&
!($style eq rpc && $use eq encoded)} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @2"
return \
-code error \
-errorcode [list WS CLIENT UNSMODE $use] \
"Unsupported mode: $style/$use"
}
}
................................................................................
} else {
set typeList [getTypesForPort $wsdlNode $serviceName $baseName $portName $inName serviceInfo $style]
dict set serviceInfo operation $operName isClone 0
}
#puts "Processing operation $operName"
set actionNode [$oper selectNodes d:operation]
if {$actionNode eq {}} {
::log:::log debug "Skiping operation with no action [$oper asXML]"
continue
}
dict lappend serviceInfo operList $operName
dict set serviceInfo operation $operName cloneList {}
dict set serviceInfo operation $operName cloned 0
dict set serviceInfo operation $operName name $baseName
................................................................................
##
## Get the input headers, if any
##
set soapRequestHeaderList {{}}
foreach inHeader [$oper selectNodes w:input/d:header] {
##set part [$inHeader getAttribute part]
set tmp [$inHeader getAttribute use]
if {$tmp ne $use} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @3"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
set msgName [$inHeader getAttribute message]
................................................................................
##
## Get the output header, if one
##
set soapReplyHeaderList {{}}
foreach outHeader [$oper selectNodes w:output/d:header] {
##set part [$outHeader getAttribute part]
set tmp [$outHeader getAttribute use]
if {$tmp ne $use} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @4"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
set messagePath [$outHeader getAttribute message]
................................................................................
## Validate that the input and output uses
##
set inUse $use
set outUse $use
catch {set inUse [[$oper selectNodes w:input/d:body] getAttribute use]}
catch {set outUse [[$oper selectNodes w:output/d:body] getAttribute use]}
foreach tmp [list $inUse $outUse] {
if {$tmp ne $use} {
::log:::log debug "Leaving [lindex [info level 0] 0] with error @5"
return \
-code error \
-errorcode [list WS CLIENT MIXUSE $use $tmp] \
"Mixed usageage not supported!'"
}
}
................................................................................
upvar 1 $serviceInfoVar serviceInfo
set inType {}
set outType {}
#set portQuery [format {w:portType[attribute::name='%s']} $portName]
#set portNode [lindex [$wsdlNode selectNodes $portQuery] 0]
if {$inName eq {}} {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']} \
$portName $operName]
} else {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']/w:input[attribute::name='%s']/parent::*} \
$portName $operName $inName]
}
::log:::log debug "\t operNode query is {$operQuery}"
set operNode [$wsdlNode selectNodes $operQuery]
if {$operNode eq {} && $inName ne {}} {
set operQuery [format {w:portType[attribute::name='%s']/w:operation[attribute::name='%s']} \
$portName $operName]
::log:::log debug "\t operNode query is {$operQuery}"
set operNode [$wsdlNode selectNodes $operQuery]
}
set inputMsgNode [$operNode selectNodes {w:input}]
if {$inputMsgNode ne {}} {
set inputMsgPath [$inputMsgNode getAttribute message]
set inputMsg [lindex [split $inputMsgPath {:}] end]
set inType [messageToType $wsdlNode $serviceName $operName $inputMsg serviceInfo $style]
}
set outputMsgNode [$operNode selectNodes {w:output}]
if {$outputMsgNode ne {}} {
set outputMsgPath [$outputMsgNode getAttribute message]
set outputMsg [lindex [split $outputMsgPath {:}] end]
set outType [messageToType $wsdlNode $serviceName $operName $outputMsg serviceInfo $style]
}
##
## Return the types
................................................................................
upvar 1 $serviceInfoVar serviceInfo
::log:::log debug "Enteringing [info level 0]"
#puts "Message to Type $serviceName $operName $msgName"
set msgQuery [format {w:message[attribute::name='%s']} $msgName]
set msg [$wsdlNode selectNodes $msgQuery]
if {$msg eq {} &&
[llength [set msgNameList [split $msgName {:}]]] > 1} {
set tmpMsgName [join [lrange $msgNameList 1 end] {:}]
set msgQuery [format {w:message[attribute::name='%s']} $tmpMsgName]
set msg [$wsdlNode selectNodes $msgQuery]
}
if {$msg eq {}} {
return \
-code error \
-errorcode [list WS CLIENT BADMSGSEC $msgName] \
"Can not find message '$msgName'"
}
switch -exact -- $style {
document/literal {
................................................................................
}
if {![dict exists $serviceInfo object $objectName operation $operationName]} {
return \
-code error \
-errorcode [list WS CLIENT UNKOPER [list $serviceName $objectName $operationName]] \
"Unknown operation '$operationName' for object '$objectName' of service '$serviceName'"
}
if {$location ne {}} {
set url $location
} else {
set url [dict get $serviceInfo object $objectName location]
}
SaveAndSetOptions $serviceName
if {[catch {set query [buildRestCallquery $serviceName $objectName $operationName $url $argList]} err]} {
RestoreSavedOptions $serviceName
................................................................................
}
::http::wait $token
##
## Check for errors
##
set body [::http::data $token]
if {[::http::status $token] ne ok ||
( [::http::ncode $token] != 200 && $body eq {} )} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set results [FormatHTTPError $token]
set hadError 1
} else {
set hadError 0
set results [::http::data $token]
................................................................................
}
if {![dict exists $serviceInfo object $objectName operation $operationName]} {
return \
-code error \
-errorcode [list WS CLIENT UNKOPER [list $serviceName $objectName $operationName]] \
"Unknown operation '$operationName' for object '$objectName' of service '$serviceName'"
}
if {$location ne {}} {
set url $location
} else {
set url [dict get $serviceInfo object $objectName location]
}
SaveAndSetOptions $serviceName
if {[catch {set query [buildRestCallquery $serviceName $objectName $operationName $url $argList]} err]} {
RestoreSavedOptions $serviceName
................................................................................
## Check for errors
##
set body [::http::data $token]
::log::log info "\tReceived: $body"
set httpStatus [::http::status $token]
set hadError 0
set results {}
if {$httpStatus ne ok ||
( [::http::ncode $token] != 200 && $body eq {} )} {
::log::log debug "\tHTTP error [array get $token]"
set results [FormatHTTPError $token]
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set errorInfo {}
set hadError 1
} else {
SaveAndSetOptions $serviceName
................................................................................
set xml [format {<?xml version="1.0" encoding="%s"?>} $encoding]
append xml "\n" [$doc asXML -indent none -doctypeDeclaration 0]
#regsub "<!DOCTYPE\[^>\]*>\n" [::dom::DOMImplementation serialize $doc] {} xml
$doc delete
set xml [encoding convertto $encoding $xml]
set inTransform [dict get $serviceInfo inTransform]
if {$inTransform ne {}} {
set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
}
::log::log debug "Leaving ::WS::Client::buildRestCallquery with {$xml}"
return $xml
................................................................................
::log::log debug "In parseResults $serviceName $operationName {$inXML}"
set first [string first {<} $inXML]
if {$first > 0} {
set inXML [string range $inXML $first end]
}
set serviceInfo $serviceArr($serviceName)
set outTransform [dict get $serviceInfo outTransform]
if {$outTransform ne {}} {
set inXML [$outTransform $serviceName $operationName REPLY $inXML]
}
set expectedMsgType [dict get $serviceInfo object $objectName operation $operationName outputs]
dom parse $inXML doc
$doc documentElement top
set xns {}
foreach tmp [dict get $serviceInfo targetNamespace] {
................................................................................
::log::log debug "Using namespaces {$xns}"
set body $top
set status [$body getAttribute status]
##
## See if it is a standard error packet
##
if {$status ne {ok}} {
set faultstring {}
if {[catch {set faultstring [[$body selectNodes error] asText]}]} {
catch {set faultstring [[$body selectNodes error] asText]}
}
$doc delete
return \
-code error \
................................................................................
## Convert the packet to a dictionary
##
set results {}
set options [::WS::Utils::SetOption]
::WS::Utils::SetOption UseNS 0
::WS::Utils::SetOption parseInAttr 1
::log::log debug "Calling [list ::WS::Utils::convertTypeToDict Client $serviceName $body $expectedMsgType $body]"
if {$expectedMsgType ne {}} {
set node [$body childNodes]
set nodeName [$node nodeName]
if {$objectName ne $nodeName} {
return \
-code error \
-errorcode [list WS CLIENT BADRESPONSE [list $objectName $nodeName]] \
-errorinfo {} \
"Unexpected message type {$nodeName}, expected {$objectName}"
}
set results [::WS::Utils::convertTypeToDict \
................................................................................
::log::log debug "Entering ::WS::Client::asyncCallDone {$serviceName $objectName $operationName $succesCmd $errorCmd $token}"
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
if {[::http::status $token] ne ok ||
( [::http::ncode $token] != 200 && $body eq {} )} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
if {[catch {set hadError [catch {parseRestResults $serviceName $objectName $operationName $body} results]} err]} {
RestoreSavedOptions $serviceName
|