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