Construct an XML-RPC element. arglist is a 2-element list which is converted to XML. The first element of arglist is the datatype and the second element is the value.

    set arglist {-int 33}
    set result [xmlrpc::construct {} $arglist]
    set result ==> <i4>33</i4>
    

This proc works recursively, so if your top level list has a list within it, then that list will be processed first. The two examples of this are arrays and structs. In addition, structs and arrays can contain each other.

    set arglist {-array {
        {-int 6682}
        {-boolean 0}
        {-text Iowa}
        {-double 8931.33333333}
        {-date {Fri Jan 01 05:41:30 EST 1904}}}}

    set result [xmlrpc::construct {} $arglist]
    set result ==>  <array>
                    <data>
                        <value>
                            <i4>6682</i4>
                        </value>
                        <value>
                            <boolean>0</boolean>
                        </value>
                        <value>
                            <string>Iowa</string>
                        </value>
                        <value>
                            <double>8931.33333333</double>
                        </value>
                        <value>
                            <dateTime.iso8601>19040101T05:41:30</dateTime.iso8601>
                        </value>
                    </data>
                </array>
    

struct's have the special format: -struct {name1 {-datatype1 value1} name2 {-datatype2 value2}}

    set arglist {-struct {
        ctLeftAngleBrackets {-int 5}
        ctRightAngleBrackets {-int 6}
        ctAmpersands {-int 7}
        ctApostrophes {-int 0}
        ctQuotes {-int 3}}}

    set result [xmlrpc::construct {} $arglist]
    set result ==>  <struct>
                    <member>
                        <name>ctLeftAngleBrackets</name>
                        <value>
                            <i4>5</i4>
                        </value>
                    </member>
                    <member>
                        <name>ctRightAngleBrackets</name>
                        <value>
                            <i4>6</i4>
                        </value>
                    </member>
                    <member>
                        <name>ctAmpersands</name>
                        <value>
                            <i4>7</i4>
                        </value>
                    </member>
                    <member>
                        <name>ctApostrophes</name>
                        <value>
                            <i4>0</i4>
                        </value>
                    </member>
                    <member>
                        <name>ctQuotes</name>
                        <value>
                            <i4>3</i4>
                        </value>
                    </member>
                </struct>
    

The context parameter is used internally to create tags within tags.

    set arglist {-int 33}
    set result [xmlrpc::construct {foo bar} $arglist]
    set result ==> <foo><bar><i4>33</i4></bar></foo>
    

Parameters:

context - extra tags to wrap around the data
arglist - datatype-value list (or more complex types as described above)

Returns:

XML formatted result

Partial Call Graph (max 5 caller/called nodes):

Testcases:

xml_rpc_construct

Return the value wrapped in appropriate context tags. If context is a list of items, then the result will be wrapped in multiple tags. Example:

    xmlrpc::create_context {param value} 78
    returns ==> "<param><value>78</value></param>"
    

Parameters:

context - context to create
value - character data

Returns:

string with value wrapped in context tags

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Unpack the data in a value element. Most value elements will have a subnode describing the datatype (e.g. <string> or <int>). If no subnode is present, then we should assume the value is a string.

Parameters:

node - <value> node that we're decoding

Returns:

Returns the contents of the <value> node. If the value is a <struct> then returns the data in a TCL array. If the value is an <array> then returns the data in a TCL list.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

xml_rpc_fault, xml_rpc_decode_value, xml_rpc_respond

Returns:

whether the server is enabled

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Format a fault response to a XML-RPC request

Parameters:

code - error code (integer)
msg - error message

Returns:

XML-RPC fault message

Partial Call Graph (max 5 caller/called nodes):

Testcases:

xml_rpc_fault

There's no [ns_conn content] so this is a hack to get the content of the XML-RPC request. Taken from ns_xmlrpc.

Returns:

string - the XML request

Author:

Dave Bauer

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

The proc util_httppost doesn't work for our needs. We need to send Content-type of text/xml and we need to send a Host header. So, roll our own XML-RPC HTTP POST. Wait - lars-blogger sends out XML-RPC pings to weblogs.com. I'll steal the POST code from there and simplify that call.

Switches:

-url

(optional)

-timeout

(defaults to "30") (optional)

-depth

(defaults to "0") (optional)

-content

(optional)

Author:

Vinod Kurup

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Take the XML-RPC request and invoke the method on the server. The methodName element contains the Tcl procedure to evaluate. The method is called from the global stack level.

Parameters:

xml - XML-RPC data from the client

Returns:

result encoded in XML and ready for return to the client

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Call the given method on the OpenACS server. It's up to the caller to catch any error that we get.

Parameters:

method_name - methodName from XML-RPC
arguments - list of arguments

Returns:

result of the OpenACS proc

Author:

Vinod Kurup

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Returns:

alphabetical list of XML-RPC procs on this server

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Parse the response from a XML-RPC call.

Parameters:

xml - the XML response

Returns:

result

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Register a proc to be available via XML-RPC. proc_name is the name of a proc that is defined in the usual OpenACS way (i.e. ad_proc). The proc_name is added to the xmlrpc_procs nsv array with a value of 1. When an XML-RPC call comes in, this array is searched to see if the proc_name has been registered. Currently, the presence of proc_name in the nsv is enough to indicate that the proc can be called via XML-RPC. At some point we may allow administrators to disable procs, so we could set the value associated with proc_name from 1 to 0.

Parameters:

proc_name - Name of proc to be registered.

Returns:

nothing

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Invoke a method on a remote server using XML-RPC

Parameters:

url - url of service
method - method to call
args (optional) - list of args to the method

Returns:

the response of the remote service. Error if remote service returns a fault.

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Format a success response to an XML-RPC request

Parameters:

data - data to be returned to the client

Returns:

data encoded in a properly formed XML-RPC response

Partial Call Graph (max 5 caller/called nodes):

Testcases:

xml_rpc_respond

Returns:

the URL that is listening for RPC requests

Author:

Vinod Kurup

Partial Call Graph (max 5 caller/called nodes):

Testcases:

xml_rpc_validate