The following operations are supported. For a formal definition,
please review the
Service Description.
Web Service Links
Namespace Children of ::address
Namespace Code for ::address
namespace eval ::address {
variable bindMap {https://highfivediet.com/address/sendMailOperation sendMailOperation https://highfivediet.com/address/sendMail2Operation sendMail2Operation https://highfivediet.com/address/EchoAddressOperation EchoAddressOperation}
variable binding soap::documentLiteral
variable bindingName addressSoapBind
variable documentLinks {config ::address simpleTypes ::wsdb::types::address complexTypes ::wsdb::elements::address messages ::wsdb::messages::address operations ::wsdb::operations::address portTypes ::wsdb::portTypes::address port ::wsdb::ports::addressPort binding ::wsdb::bindings::addressSoapBind service ::wsdb::services::addressService server ::wsdb::servers::addressServer}
variable elements
set elements(sendMail2Request) {{
{envelopeId!address::testId {minOccurs 1 default 125}}
{fromAddress!elements::address::fromAddress {form Element minOccurs 1 default {{1} {x} {y} {z} {a} {WA} {98198}}}}
{toAddress!elements::address::toAddress {form List minOccurs 1 default {{2} {a} {b} {c} {x} {WA} {98198-5115}}}}
} {envelopeId fromAddress toAddress}}
set elements(fromToEnvelope) {{
{envelopeId!address::testId }
{fromAddr!elements::address::fromAddress {form List}}
{toAddr!elements::address::toAddress {form List}}
}}
set elements(toAddress) {{
{addressId!address::testId {minOccurs 1 maxOccurs 1}}
{toCompany!address::companyName {minOccurs 1 maxOccurs 1}}
{toAddress1!address::addressLineOne {minOccurs 1 maxOccurs 1}}
{toAddress2!address::addressLineTwo {minOccurs 0 maxOccurs 1}}
{toCity!address::city {minOccurs 1 maxOccurs 1}}
{toState!address::stateCode {minOccurs 1 maxOccurs 1}}
{toZip!address::zipPlusFour {minOccurs 1 maxOccurs 1}}
}}
set elements(sendMail2Response) {{
{envelopeId!address::testId }
{fromAddrress!elements::address::fromAddress {form List}}
{toAddrress!elements::address::toAddress {form List}}
} {envelopeId fromAddrress toAddrress}}
set elements(sendMailRequest) {{
{From!elements::address::fromToEnvelope }
} From}
set elements(fromAddress) {{
{addressId!address::testId {minOccurs 1 maxOccurs 1}}
{fromCompany!address::companyName {minOccurs 1 maxOccurs 1}}
{fromAddress1!address::addressLineOne {minOccurs 1 maxOccurs 1}}
{fromAddress2!address::addressLineTwo {minOccurs 0 maxOccurs 1}}
{fromCity!address::city {minOccurs 1 maxOccurs 1}}
{fromState!address::stateCode {minOccurs 1 maxOccurs 1}}
{fromZip!address::zipPlusFour {minOccurs 1 maxOccurs 1}}
}}
variable frozen 0
variable host highfivediet.com
variable hostHeader highfivediet.com
variable hostHeaderList highfivediet.com
variable operation EchoAddressOperation
variable operations {sendMailOperation sendMail2Operation EchoAddressOperation}
variable port 80
variable portName addressPort
variable portType addressPortType
variable protocol https
variable schemaIsInitialized 1
variable serverName addressServer
variable serviceName addressService
variable showDocument 1
variable soapActionBase https://highfivediet.com/address
variable targetNamespace urn:com:semitasker:twist:ws:address:v.1
variable tclNamespace ::address
variable types
set types(stateCode) {base xsd::string enum {AL AZ CA LA MA MS NM TX WA}}
set types(addressLineTwo) {base xsd::string restrictionList {maxLength 80}}
set types(addressLineOne) {base xsd::string restrictionList {maxLength 80}}
set types(companyName) {base xsd::string restrictionList {maxLength 80}}
set types(city) {base xsd::string restrictionList {maxLength 80}}
set types(testId) {base xsd::unsignedByte}
set types(zipPlusFour) {base xsd::string pattern {[0-9]{5}(-[0-9]{4})?}}
variable url /twist/address/
variable xmlPrefix address
}
Procedures in ::address
proc ::address::EchoAddress {
addressId
fromCompany
fromAddress1
fromAddress2
fromCity
fromState
fromZip
} {
set vars [info vars]
set result [list]
ns_log Notice "vars='[info vars]'"
foreach var $vars {
lappend result [set $var]
}
return $result
}
proc ::address::sendMail {
From
} {
return $From
}
proc ::address::sendMail2 {
{envelopeId 125}
{fromAddress {1} {x} {y} {z} {a} {WA} {98198}}
{toAddress {2} {a} {b} {c} {x} {WA} {98198-5115}}
} {
<ws>log Notice "$envelopeId='$envelopeId', fromAddress='$fromAddress', toAddress='$toAddress'"
return [list $envelopeId $fromAddress $toAddress]
}