Posted to tcl by patthoyts at Thu Apr 13 08:44:03 GMT 2006view raw

  1. package require SOAP
  2.  
  3. rpcvar::typedef {NameSpace string Name string} TAlias
  4. rpcvar::typedef {RelationshipName string Alias TAlias} TSpaceHandle
  5. rpcvar::typedef {SpaceHandle TSpaceHandle LastModifiedDate string} TSpaceVersionRequest
  6. rpcvar::typedef {SpaceVersionRequest TSpaceVersionRequest} TSpaceVersionRequests
  7.  
  8. SOAP::create t -proxy urn:print:Print -params {spaceVersionRequests TSpaceVersionRequests}
  9.  
  10. set date "2004-01-01T00:00:00.0000000-08:00"
  11. set alias {NameSpace MyStuff Name email@hotmail.com}
  12. set spacehandle [list RelationshipName MySpace Alias $alias]
  13. set spverreq [list SpaceHandle $spacehandle LastModifiedDate $date]
  14. set req [list SpaceVersionRequest $spverreq]
  15.  
  16.  
  17. t $req
  18.