package require SOAP
 package require rpcvar
 namespace import -force rpcvar::typedef

 typedef {
        Username DATA
        Password DATA
        Nonce DATA
        Created DATA
        RemoteUser DATA
        RemoteClient DATA
        RemoteAddress DATA
        EnvironmentalData DATA
        SessionID DATA
 } authentication

 typedef {
   Authentication  authentication
   ApplicationType DATA
   RequestID DATA
   WebUserID DATA
   WebUserName DATA
   PlanID DATA
   EmployerID DATA
   MemberID DATA
   EntityType MEMBER
   EntityReferenceNumber DATA
   Password DATA
   EncryptionMethod PLAINTEXT
   InputMethodEditor TELEPHONE
 } webUser

 SOAP::create Test -proxy "http://localhost/superSOAP/webcontrol.asmx" \
                        -action "http://www.atune.biz/web/services/WC/2006-01/isWebUserAuthenticated" \
                        -uri "http://www.atune.biz/web/services/WC/2006-01" \
                        -params {WebUser webUser}

 package require SOAP
 package require rpcvar
 package require tdom
 namespace import -force rpcvar::typedef

 # Create two complex data types: Authentication and Web User
 # These are required by the web service.
 typedef {
        Username DATA
        Password DATA
        Nonce DATA
        Created DATA
        RemoteUser DATA
        RemoteClient DATA
        RemoteAddress DATA
        EnvironmentData DATA
        SessionID DATA
 } authentication

 typedef {
   Authentication  authentication
   ApplicationType DATA
   RequestID DATA
   WebUserID DATA
   WebUserName DATA
   PlanID DATA
   EmployerID DATA
   MemberID DATA
   EntityType MEMBER
   EntityReferenceNumber DATA
   Password DATA
   EncryptionMethod PLAINTEXT
   InputMethodEditor TELEPHONE
 } webUser

 # Custom Authentication XML Envelope Procedure.
 # This was needed for the soap namespaces and removing the ns namespace
 proc ::SOAP::AuthenticationWrapper {procVarName args} {
    upvar $procVarName procvar

    set procName [lindex [split $procVarName {_}] end]
    set params  $procvar(params)
    set name    $procvar(name)
    set uri     $procvar(uri)
    set soapenv $procvar(version)
    set soapenc $procvar(encoding)

    # Check for options (ie: -header) give up on the fist non-matching arg.
    array set opts {-headers {} -attributes {}}
    while {[string match -* [lindex $args 0]]} {
        switch -glob -- [lindex $args 0] {
            -header* {
                set opts(-headers) [concat $opts(-headers) [lindex $args 1]]
                set args [lreplace $args 0 0]
            }
            -attr* {
                set opts(-attributes) [concat $opts(-attributes) [lindex $args 1]]
                set args [lreplace $args 0 0]
            }
            -- {
                set args [lreplace $args 0 0]
                break
            }
            default {
                # stop option processing at the first invalid option.
                break
            }
        }
        set args [lreplace $args 0 0]
    }

    # check for variable number of params and set the num required.
    if {[lindex $params end] == "args"} {
        set n_params [expr {( [llength $params] - 1 ) / 2}]
    } else {
        set n_params [expr {[llength $params] / 2}]
    }

    # check we have the correct number of parameters supplied.
    if {[llength $args] < $n_params} {
        set msg "wrong # args: should be \"$procName"
        foreach { id type } $params {
            append msg " " $id
        }
        append msg "\""
        return -code error $msg
    }

    set doc [dom::DOMImplementation create]
    set envx [dom::document createElement $doc "soap:Envelope"]

    dom::element setAttribute $envx "xmlns:soap" $soapenv
    dom::element setAttribute $envx "xmlns:SOAP-ENC" $soapenc
    dom::element setAttribute $envx "soap:encodingStyle" $soapenc

    # The set of namespaces depends upon the SOAP encoding as specified by
    # the encoding option and the user specified set of relevant schemas.
    foreach {nsname url} [concat \
                              [rpcvar::default_schemas $soapenc] \
                              $procvar(schemas)] {
        if {! [string match "xmlns:*" $nsname]} {
            set nsname "xmlns:$nsname"
        }
        dom::element setAttribute $envx $nsname $url
    }

    # Insert the Header elements (if any)
    if {$opts(-headers) != {}} {
        set headelt [dom::document createElement $envx "soap:Header"]
        foreach {hname hvalue} $opts(-headers) {
            set hnode [dom::document createElement $headelt $hname]
            insert_value $hnode $hvalue
        }
    }

    # Insert the body element and atributes.
    set bod [dom::document createElement $envx "soap:Body"]
    if {$uri == ""} {
        # don't use a namespace prefix if we don't have a namespace.
        set cmd [dom::document createElement $bod "$name" ]
    } else {
        set cmd [dom::document createElement $bod "$name" ]
        dom::element setAttribute $cmd "xmlns" $uri
    }

    # Insert any method attributes
    if {$opts(-attributes) != {}} {
        foreach {atname atvalue} $opts(-attributes) {
            dom::element setAttribute $cmd $atname $atvalue
        }
    }

    # insert the parameters.
    set param_no 0
    foreach {key type} $params {
        set val [lindex $args $param_no]
        set d_param [dom::document createElement $cmd $key]
        insert_value $d_param [rpcvar $type $val]
        incr param_no
    }

    # We have to strip out the DOCTYPE element though. It would be better to
    # remove the DOM node for this, but that didn't work.
    set prereq [dom::DOMImplementation serialize $doc]
    set req {}
    dom::DOMImplementation destroy $doc              ;# clean up
    regsub "<!DOCTYPE\[^>\]*>\r?\n?" $prereq {} req  ;# hack

    set req [encoding convertto utf-8 $req]          ;# make it UTF-8

        return $req                                      ;# return the XML data
 }

 SOAP::create isWebUserAuthenticated -proxy "http://localhost/superSOAP/webcontrol.asmx" \
                        -action "http://www.atune.biz/web/services/WC/2006-01/isWebUserAuthenticated" \
                        -uri "http://www.atune.biz/web/services/WC/2006-01" \
                        -params {WebUser webUser}
                        
 SOAP::configure isWebUserAuthenticated -wrapProc ::SOAP::AuthenticationWrapper