1# Create the commands for my XMLRPC-domain package 2 3package require XMLRPC 4package require SOAP::http 5set methods {} 6 7lappend methods [ XMLRPC::create tclsoapTest1.rcsid \ 8 -proxy http://localhost:8015/rpc/rcsid \ 9 -params {} ] 10 11lappend methods [ XMLRPC::create tclsoapTest1.base64 \ 12 -proxy http://localhost:8015/rpc/base64 \ 13 -params {msg string} ] 14 15lappend methods [ XMLRPC::create tclsoapTest1.time \ 16 -proxy http://localhost:8015/rpc/time \ 17 -params {} ] 18 19lappend methods [ XMLRPC::create tclsoapTest1.square \ 20 -proxy http://localhost:8015/rpc/square \ 21 -params {num integer} ] 22 23lappend methods [ XMLRPC::create tclsoapTest1.sort \ 24 -proxy http://localhost:8015/rpc/sort \ 25 -params { list string } ] 26 27lappend methods [ XMLRPC::create tclsoapTest1.platform \ 28 -proxy http://localhost:8015/rpc/platform \ 29 -params {} ] 30 31puts "$methods" 32unset methods 33