load ./chilkat.dll
set xml [new_CkXml]
CkXml_put_Tag $xml "soap:Envelope"CkXml_AddAttribute $xml "xmlns:soap""http://www.w3.org/2003/05/soap-envelope"CkXml_AddAttribute $xml "xmlns:spr""http://www.springcm.com/atlas/webservices/v201308/scm/"CkXml_UpdateChildContent $xml "soap:Header"""CkXml_UpdateChildContent $xml "soap:Body|spr:Copy|spr:token""string"CkXml_UpdateChildContent $xml "soap:Body|spr:Copy|spr:type""Document"CkXml_UpdateChildContent $xml "soap:Body|spr:Copy|spr:id""string"CkXml_UpdateChildContent $xml "soap:Body|spr:Copy|spr:destinationFolderId""string"# In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. CkXml_put_EmitXmlDecl $xml 0set soapRequestBody [CkXml_getXml $xml]
set endpoint "https://soapna11.springcm.com/atlas/webservices/v201308/springcmservice.asmx"set soapAction "http://www.springcm.com/atlas/webservices/v201308/scm/Copy"# For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"set contentType "text/xml"
set http [new_CkHttp]
CkHttp_ClearHeaders $http
CkHttp_SetRequestHeader $http "Content-Type" $contentType
CkHttp_SetRequestHeader $http "SOAPAction" $soapAction
# resp is a CkHttpResponseset resp [CkHttp_PostXml $http $endpoint $soapRequestBody "utf-8"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
puts [CkHttp_lastErrorText $http]
puts "Failed to send SOAP request."
delete_CkXml $xml
delete_CkHttp $http
exit
}
# Get the XML response body.
set responseXml [new_CkXml]
CkHttpResponse_GetBodyXml $resp $responseXml
set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "response status code: $statusCode"
delete_CkHttpResponse $resp
# If the status code does not indicate succcess, then show the response XML,
# which probably contains error information.if {$statusCode != 200} then {
puts [CkXml_getXml $responseXml]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml
exit
}
puts [CkXml_getXml $responseXml]
# Parse the successful SOAP response XML.# This is a sample of the response XML, but the namespace prefixes will be different.
# We can parse the result using "*" for the namespace prefixes (see below).set NewDocumentName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:NewDocumentName"]
set SourceDocumentName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:SourceDocumentName"]
set SourceFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:SourceFolderName"]
set NewFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:NewFolderName"]
set NewDocId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:NewDocId"]
set NewFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:NewFolderId"]
set SourceDocId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:SourceDocId"]
set SourceFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:DocumentResults|*:SCMDocumentCopyResult|*:SourceFolderId"]
set NewFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:NewFolderId"]
set NewFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:NewFolderName"]
set NewParentFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:NewParentFolderId"]
set NewParentFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:NewParentFolderName"]
set SourceFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:SourceFolderId"]
set SourceFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:SourceFolderName"]
set SourceParentFolderId [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:SourceParentFolderId"]
set SourceParentFolderName [CkXml_getChildContent $responseXml "*:Body|*:CopyResponse|*:CopyResult|*:FolderResults|*:SCMFolderCopyResult|*:SourceParentFolderName"]
delete_CkXml $xml
delete_CkHttp $http
delete_CkXml $responseXml