xmlrpc::respond (private)

 xmlrpc::respond data

Defined in packages/xml-rpc/tcl/xml-rpc-procs.tcl

Format a success response to an XML-RPC request

Parameters:
data (required)
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):
%3 test_xml_rpc_respond xml_rpc_respond (test xml-rpc) xmlrpc::respond xmlrpc::respond test_xml_rpc_respond->xmlrpc::respond xml_doc_free xml_doc_free (public) xmlrpc::respond->xml_doc_free xml_doc_render xml_doc_render (public) xmlrpc::respond->xml_doc_render xml_parse xml_parse (public) xmlrpc::respond->xml_parse xmlrpc::construct xmlrpc::construct (private) xmlrpc::respond->xmlrpc::construct xmlrpc::invoke xmlrpc::invoke (private) xmlrpc::invoke->xmlrpc::respond

Testcases:
xml_rpc_respond
Source code:
    set result "<?xml version=\"1.0\"?><methodResponse><params><param><value>"
    append result [xmlrpc::construct {} $data]
    append result "</value></param></params></methodResponse>"

    # now re-parse and then re-extract to make sure it's well formed
    set doc [xml_parse -persist $result]
    if { [catch {xml_doc_render $doc} result] } {
        return -code error  "xmlrpc::respond XML is not well formed. err = $result"
    }
    xml_doc_free $doc
    return $result
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: