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]
}