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