Posted to tcl by patthoyts at Thu Apr 13 08:44:03 GMT 2006view pretty
package require SOAP rpcvar::typedef {NameSpace string Name string} TAlias rpcvar::typedef {RelationshipName string Alias TAlias} TSpaceHandle rpcvar::typedef {SpaceHandle TSpaceHandle LastModifiedDate string} TSpaceVersionRequest rpcvar::typedef {SpaceVersionRequest TSpaceVersionRequest} TSpaceVersionRequests SOAP::create t -proxy urn:print:Print -params {spaceVersionRequests TSpaceVersionRequests} set date "2004-01-01T00:00:00.0000000-08:00" set alias {NameSpace MyStuff Name email@hotmail.com} set spacehandle [list RelationshipName MySpace Alias $alias] set spverreq [list SpaceHandle $spacehandle LastModifiedDate $date] set req [list SpaceVersionRequest $spverreq] t $req