Menu
▾
▴
[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/soap/rpc client,1.1.1.1,1.2
|
From: creedon <icr...@us...> - 2005-06-19 18:11:33
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/soap/rpc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11124 Modified Files: client Log Message: changed localhost to 127.0.0.1 Index: client =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/soap/rpc/client,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** client 26 Mar 2005 19:43:31 -0000 1.1.1.1 --- client 19 Jun 2005 18:11:24 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.verbs.builtins.soap.rpc.client ! on client (actionURI, methodName, adrparams, rpcServer="localhost", rpcPort=user.inetd.config.http.port, username="", password="", fldebug=false, ticksToTimeOut=nil, flShowMessages=true, soapAction=nil, methodNamespace=nil, methodNamespaceURI=nil, customStructType=nil, customNamespace=nil, customNamespaceURI=nil, charset=soap.constants.charsetUsAscii, flEnforceSimpleTypes=true) { ÇChanges: Ç02/04/01; 5:37:09 PM by JES ÇVerify that the supplied methodName is valid. Prevents generation of invalid XML. Ç03/25/01; 2:22:56 AM by JES ÇNew optional parameter, soapAction, which overrides the value of the SOAPAction HTTP header. (Normally it defaults to the value of ActionURI.) ÇNew optional parameters, methodNamespace and methodNamespaceURI, facilitate namespace declaration in the methodCall element (the first sub-element of <Body>). Ç03/25/01; 7:12:26 PM by JES ÇNew optional parameters: customArrayType, customNamespace, and customNamespaceURI -- for setting array type, namespace and namespaceURI for arrays of structs. Ç04/01/01; 1:02:03 AM by JES ÇIf there are no input parameters, don't add a parameter accessor element. Ç04/02/01; 5:10:05 PM by JES ÇFixed a bug where a closing tag for the method element wasn't generated. Ç04/02/01; 7:29:04 PM by JES ÇIf methodNamespace is given, but methodNamespaceURI is not, generate an error. If methodNamespaceURI is given, but methodNamespace is not, generate an error. Ç04/03/01; 7:21:40 PM by JES ÇNew optional parameter, charset, specifies the character encoding for the request. Default is us-ascii. Ç04/06/01; 7:05:08 PM by JES ÇFixed a bug finding the response element: find the element whose name begins with the request method name. (see Section 7.1) Ç04/07/01; 7:21:47 PM by JES ÇFixed a bug where void method calls (calls with no parameters) would not have namespace qualification on the method call element. Changed name of customArrayType parameter to customStructType. Ç04/13/01; 12:52:58 PM by JES ÇFixed a bug where void method calls made without specifying a methodNamespace would not have a closing tag on the parameter element. Ç05/29/01; 7:34:39 PM by JES ÇFixed a problem decoding entity-encoded markup. bundle { //make sure methodName is valid on methodNameError () { scriptError ("Can't encode the SOAP request because '" + methodName + "' is not a valid method name.")}; local (ch = methodName[1]); if not string.isAlpha (ch) { if (ch != '_') and (ch != ':') { methodNameError ()}}; local (i, ct = sizeOf (methodName)); on isValidNameChar (ch) { if string.isAlpha (ch) { return (true)}; if string.isNumeric (ch) { return (true)}; case ch { '.'; '-'; '_'; ':' { return (true)}}; return (false)}; if ct > 1 { for i = 2 to ct { if not isValidNameChar (methodName[i]) { methodNameError ()}}}}; soap.init (); if ticksToTimeOut == nil { ticksToTimeOut = user.soap.prefs.rpcClientDefaultTimeout}; local (returnvalue, responsename = methodname + "Response"); local (request, adrrequest = @request, requestText); local (response, adrresponse = @response, responseText, responseHeaders); local (flEntityEncodeHighAscii = false); bundle { //encode request local (adrdocument, adrenvelope, adrbody, adrmethodcall); bundle { //build document tree adrdocument = soap.xmlutils.createRequest (adrrequest); adrenvelope = soap.xmlutils.addElement (adrdocument, "Envelope"); soap.xmlutils.setNamespacePrefixOfElement (adrenvelope, soap.constants.nsEnvelopePrefix); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsEnvelopePrefix, soap.constants.nsEnvelopeURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsEncodingPrefix, soap.constants.nsEncodingURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsSchemaPrefix, soap.constants.nsSchemaURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsSchemaDataPrefix, soap.constants.nsSchemaDataURI); soap.xmlutils.addAttributeValue (adrenvelope, soap.constants.nsEnvelopePrefix +":" + "encodingStyle", soap.constants.nsEncodingURI); adrbody = soap.xmlutils.addElement (adrenvelope, "Body"); soap.xmlutils.setNamespacePrefixOfElement (adrbody, soap.constants.nsEnvelopePrefix); adrmethodcall = soap.xmlutils.addElement (adrbody, methodName); if methodNamespace != nil or methodNamespaceURI != nil { //04/02/2001 JES: error if both values aren't specified if methodNamespaceURI == nil { scriptError ("Can't encode the request because a methodNamespace was specified, but no methodNamespaceURI was given.")}; if methodNamespace == nil { scriptError ("Can't encode the request because a methodNamespaceURI was specified, but no methodNamespace was given.")}}; if methodNamespace != nil { //03/25/2001 JES: set the methodCall namespace soap.xmlutils.setNamespacePrefixOfElement (adrmethodcall, methodNamespace)}; if methodNamespaceURI != nil { //03/25/2001 JES: set the methodCall namespaceURI soap.xmlutils.declareNamespaceInElement (adrmethodcall, methodNamespace, methodNamespaceURI)}}; bundle { //determine character encoding, error if unsupported local (supportsUTF = true); if not defined (string.ansiToUtf16) { //check to see if we can do UTF supportsUTF = false}; case string.lower (charset) { soap.constants.charsetLatin1 { };//default behavior soap.constants.charsetUsAscii { flEntityEncodeHighAscii = true}; soap.constants.charsetUtf8 { if not supportsUTF { flEntityEncodeHighAscii = true}}; //treat UFT-8 as a super-set of US-ASCII, but encode high-ascii characters as XML entities soap.constants.charsetUtf16 { if not supportsUTF { scriptError ("Can't encode the request because you must be running at least version 7.0b42 in order to use UTF-16 character encoding.")}}} else { scriptError ("Can't encode the request because \"" + charset + "\" is not a supported character set.")}}; bundle { //encode parameters local (ix, ct = sizeOf (adrparams^)); if ct > 0 { case typeOf (adrparams^) { listType { for ix = 1 to ct { soap.encode.main (adrresponse, adrparams^[ix], adrmethodcall, "param" + ix, customStructType, customNamespace, customNamespaceURI, flEntityEncodeHighAscii)}}; recordType { for ix = 1 to ct { soap.encode.main (adrresponse, adrparams^[ix], adrmethodcall, nameOf (adrparams^[ix]), customStructType, customNamespace, customNamespaceURI, flEntityEncodeHighAscii)}}} else { scripterror ("Can't encode parameters because adrparams is not a list or record.")}} else { if methodNamespace == "" { table.assign (adrmethodcall, "")}}}; bundle { //decompile document tree into XML text requestText = xml.decompile (adrdocument)}; bundle { //convert the text to the character set specified by charset case string.lower (charset) { //assume us-ascii soap.constants.charsetUtf8 { if not flEntityEncodeHighAscii { requestText = string.ansiToUtf8 (requestText)}}; soap.constants.charsetUtf16 { requestText = string.ansiToUtf16 (requestText)}}}}; bundle { //make method call local (requestHeaders); new (tableType, @headers); if soapAction == nil { //03/25/2001 JES: default to actionURI soapAction = actionURI}; headers.SOAPAction = "\"" + soapAction + "\""; s = tcp.httpClient (method:"POST", server:rpcServer, port:rpcPort, path:actionURI, data:requestText, datatype:"text/xml; charset=\"" + charset + "\"", username:username, password:password, adrHdrTable:@headers, debug:fldebug, timeOutTicks:ticksToTimeOut, flMessages:flShowMessages); responseText = string.httpResultSplit (s, @responseHeaders)}; bundle { //decode response local (adrdocument, adrenvelope, adrheader, adrbody, adrothers, adrmethodresponse); bundle { //convert to response text to ascii, if needed local (responsecharset = "us-ascii"); //default to ascii if defined (responseHeaders.["Content-Type"]) { local (contentType = soap.stringutils.parseHeader (responseHeaders.["Content-Type"])); if defined (contentType.charset) { responsecharset = contentType.charset}}; case string.lower (responsecharset) { soap.constants.charsetUtf8; soap.constants.charsetUtf16 { if not defined (string.utf8ToAnsi) { scriptError ("Can't decode the response because \"" + responsecharset + "\" is not a supported character encoding.")}; if string.lower (responsecharset) == soap.constants.charsetUtf8 { responseText = string.utf8ToAnsi (responseText)} else { //utf16 responseText = string.utf16ToAnsi (responseText)}}}}; bundle { //build document tree from XML text on fixEntities (s) { ÇWorks around a bug in xml.compile, where both &quot; and " are decoded as ". Clearly this shouldn't be the case, but to fix xml-compile at this point is asking for trouble. s = string.replaceAll (s, "&amp;", "&amp;amp;"); s = string.replaceAll (s, "&quot;", "&amp;quot;"); s = string.replaceAll (s, "&apos;", "&amp;apos;"); s = string.replaceAll (s, "&lt;", "&amp;lt;"); s = string.replaceAll (s, "&gt;", "&amp;gt;"); return (s)}; local (xmltext = string (responseText)); xmltext = fixEntities (xmltext); adrdocument = soap.xmlutils.createResponse (adrresponse, string (xmltext))}; bundle { //locate envelope adrenvelope = soap.xmlutils.getFirstChildElement (adrdocument); soap.xmlutils.pushScope (adrresponse, adrenvelope); if not soap.xmlutils.elementMatches (adrresponse, adrenvelope, @soap.qname.envelope) { scripterror ("Can't decode the response because the Envelope element was not found.")}}; bundle { //locate header, body, and others local (adrtemp = soap.xmlutils.getFirstChildElement (adrenvelope)); soap.xmlutils.pushScope (adrresponse, adrtemp); if soap.xmlutils.elementMatches (adrresponse, adrtemp, @soap.qname.header) { adrheader = adrtemp; soap.xmlutils.popScope (adrresponse); adrtemp = soap.xmlutils.getNextSiblingElement (adrtemp); soap.xmlutils.pushScope (adrresponse, adrtemp)}; if soap.xmlutils.elementMatches (adrresponse, adrtemp, @soap.qname.body) { adrbody = adrtemp; adrothers = soap.xmlutils.getNextSiblingElement (adrtemp)} else { scripterror ("Can't decode the response because the Body element was not found.")}}; bundle { //check body for fault struct local (nomad = soap.xmlutils.getFirstChildElement (adrbody)); while (nomad) { if soap.xmlutils.elementMatches (adrresponse, nomad, @soap.qname.fault) { local (adrfaultcode = soap.xmlutils.getNamedChildElement (nomad, "faultcode")); local (adrfaultstring = soap.xmlutils.getNamedChildElement (nomad, "faultstring")); if adrfaultcode { scripterror ("The server, " + rpcServer + ", returned a " + soap.xmlutils.getCharacterData (adrfaultcode) + " fault: " + soap.xmlutils.decodeAmpersands (soap.xmlutils.getCharacterData (adrfaultstring)))} else { scripterror ("The server, " + rpcServer + ", returned a (malformed) fault with no faultcode element: " + soap.xmlutils.decodeAmpersands (soap.xmlutils.getCharacterData (adrfaultstring)))}}; nomad = soap.xmlutils.getNextSiblingElement (nomad)}}; bundle { //locate method call adrmethodresponse = soap.xmlutils.getFirstChildElement (adrbody); if not (xml.convertToDisplayName (nameOf (adrmethodresponse^)) beginsWith methodname) { scripterror ("Response name is incompatible with request method name.")}}; bundle { //decode the method response struct soap.xmlutils.pushScope (adrresponse, adrmethodresponse); local (adritem = soap.xmlutils.getFirstChildElement (adrmethodresponse)); returnvalue = soap.decode.main (adrresponse, adritem, flEnforceSimpleTypes)}}; return (returnvalue)}; Çbundle //debugging code Çbundle //examples/getStateList Çlocal (returnvalue, params = {{1, 2, 3}}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateList", adrparams:@params, rpcServer:"superhonker.userland.com", fldebug:true) Çedit (@scratchpad.httpCommand) Çedit (@scratchpad.httpResult) Çdialog.notify (returnvalue) Çbundle //examples/getStateName Çlocal (returnvalue, params = {50}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateName", adrparams:@params) Çdialog.notify (returnvalue) Çbundle //examples/getStateNames Çlocal (returnvalue, params = {11, 22, 33, 44}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateNames", rpcServer:"superhonker.userland.com", adrparams:@params) Çdialog.notify (returnvalue) Çbundle //examples/getStateStruct Çlocal (returnvalue, params, struct) Çnew (tableType, @struct) Çstruct.a = 11 Çstruct.b = 22 Çstruct.c = 33 Çstruct.d = 44 Çparams = {struct} Çreturnvalue = client (actionURI:"/examples", methodName:"getStateStruct", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çtemp.returnvalue = returnvalue Çedit (@temp.returnvalue) Çbundle //examples/getCurrentTime Çlocal (returnvalue, params = {}) Çreturnvalue = client (actionURI:"/examples", methodName:"getCurrentTime", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çdialog.notify (returnvalue) Çbundle //examples/getCurrentTime -- throws an error because there are too many parameters Çlocal (returnvalue, params = {1, 2, 3}) Çreturnvalue = client (actionURI:"/examples", methodName:"getCurrentTime", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çdialog.notify (returnvalue) \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.verbs.builtins.soap.rpc.client ! on client (actionURI, methodName, adrparams, rpcServer="127.0.0.1", rpcPort=user.inetd.config.http.port, username="", password="", fldebug=false, ticksToTimeOut=nil, flShowMessages=true, soapAction=nil, methodNamespace=nil, methodNamespaceURI=nil, customStructType=nil, customNamespace=nil, customNamespaceURI=nil, charset=soap.constants.charsetUsAscii, flEnforceSimpleTypes=true) { ÇChanges Ç6/19/05; 10:09:31 AM by TAC Çchanged localhost to 127.0.0.1 Ç02/04/01; 5:37:09 PM by JES ÇVerify that the supplied methodName is valid. Prevents generation of invalid XML. Ç03/25/01; 2:22:56 AM by JES ÇNew optional parameter, soapAction, which overrides the value of the SOAPAction HTTP header. (Normally it defaults to the value of ActionURI.) ÇNew optional parameters, methodNamespace and methodNamespaceURI, facilitate namespace declaration in the methodCall element (the first sub-element of <Body>). Ç03/25/01; 7:12:26 PM by JES ÇNew optional parameters: customArrayType, customNamespace, and customNamespaceURI -- for setting array type, namespace and namespaceURI for arrays of structs. Ç04/01/01; 1:02:03 AM by JES ÇIf there are no input parameters, don't add a parameter accessor element. Ç04/02/01; 5:10:05 PM by JES ÇFixed a bug where a closing tag for the method element wasn't generated. Ç04/02/01; 7:29:04 PM by JES ÇIf methodNamespace is given, but methodNamespaceURI is not, generate an error. If methodNamespaceURI is given, but methodNamespace is not, generate an error. Ç04/03/01; 7:21:40 PM by JES ÇNew optional parameter, charset, specifies the character encoding for the request. Default is us-ascii. Ç04/06/01; 7:05:08 PM by JES ÇFixed a bug finding the response element: find the element whose name begins with the request method name. (see Section 7.1) Ç04/07/01; 7:21:47 PM by JES ÇFixed a bug where void method calls (calls with no parameters) would not have namespace qualification on the method call element. Changed name of customArrayType parameter to customStructType. Ç04/13/01; 12:52:58 PM by JES ÇFixed a bug where void method calls made without specifying a methodNamespace would not have a closing tag on the parameter element. Ç05/29/01; 7:34:39 PM by JES ÇFixed a problem decoding entity-encoded markup. bundle { //make sure methodName is valid on methodNameError () { scriptError ("Can't encode the SOAP request because '" + methodName + "' is not a valid method name.")}; local (ch = methodName[1]); if not string.isAlpha (ch) { if (ch != '_') and (ch != ':') { methodNameError ()}}; local (i, ct = sizeOf (methodName)); on isValidNameChar (ch) { if string.isAlpha (ch) { return (true)}; if string.isNumeric (ch) { return (true)}; case ch { '.'; '-'; '_'; ':' { return (true)}}; return (false)}; if ct > 1 { for i = 2 to ct { if not isValidNameChar (methodName[i]) { methodNameError ()}}}}; soap.init (); if ticksToTimeOut == nil { ticksToTimeOut = user.soap.prefs.rpcClientDefaultTimeout}; local (returnvalue, responsename = methodname + "Response"); local (request, adrrequest = @request, requestText); local (response, adrresponse = @response, responseText, responseHeaders); local (flEntityEncodeHighAscii = false); bundle { //encode request local (adrdocument, adrenvelope, adrbody, adrmethodcall); bundle { //build document tree adrdocument = soap.xmlutils.createRequest (adrrequest); adrenvelope = soap.xmlutils.addElement (adrdocument, "Envelope"); soap.xmlutils.setNamespacePrefixOfElement (adrenvelope, soap.constants.nsEnvelopePrefix); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsEnvelopePrefix, soap.constants.nsEnvelopeURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsEncodingPrefix, soap.constants.nsEncodingURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsSchemaPrefix, soap.constants.nsSchemaURI); soap.xmlutils.declareNamespaceInElement (adrenvelope, soap.constants.nsSchemaDataPrefix, soap.constants.nsSchemaDataURI); soap.xmlutils.addAttributeValue (adrenvelope, soap.constants.nsEnvelopePrefix +":" + "encodingStyle", soap.constants.nsEncodingURI); adrbody = soap.xmlutils.addElement (adrenvelope, "Body"); soap.xmlutils.setNamespacePrefixOfElement (adrbody, soap.constants.nsEnvelopePrefix); adrmethodcall = soap.xmlutils.addElement (adrbody, methodName); if methodNamespace != nil or methodNamespaceURI != nil { //04/02/2001 JES: error if both values aren't specified if methodNamespaceURI == nil { scriptError ("Can't encode the request because a methodNamespace was specified, but no methodNamespaceURI was given.")}; if methodNamespace == nil { scriptError ("Can't encode the request because a methodNamespaceURI was specified, but no methodNamespace was given.")}}; if methodNamespace != nil { //03/25/2001 JES: set the methodCall namespace soap.xmlutils.setNamespacePrefixOfElement (adrmethodcall, methodNamespace)}; if methodNamespaceURI != nil { //03/25/2001 JES: set the methodCall namespaceURI soap.xmlutils.declareNamespaceInElement (adrmethodcall, methodNamespace, methodNamespaceURI)}}; bundle { //determine character encoding, error if unsupported local (supportsUTF = true); if not defined (string.ansiToUtf16) { //check to see if we can do UTF supportsUTF = false}; case string.lower (charset) { soap.constants.charsetLatin1 { };//default behavior soap.constants.charsetUsAscii { flEntityEncodeHighAscii = true}; soap.constants.charsetUtf8 { if not supportsUTF { flEntityEncodeHighAscii = true}}; //treat UFT-8 as a super-set of US-ASCII, but encode high-ascii characters as XML entities soap.constants.charsetUtf16 { if not supportsUTF { scriptError ("Can't encode the request because you must be running at least version 7.0b42 in order to use UTF-16 character encoding.")}}} else { scriptError ("Can't encode the request because \"" + charset + "\" is not a supported character set.")}}; bundle { //encode parameters local (ix, ct = sizeOf (adrparams^)); if ct > 0 { case typeOf (adrparams^) { listType { for ix = 1 to ct { soap.encode.main (adrresponse, adrparams^[ix], adrmethodcall, "param" + ix, customStructType, customNamespace, customNamespaceURI, flEntityEncodeHighAscii)}}; recordType { for ix = 1 to ct { soap.encode.main (adrresponse, adrparams^[ix], adrmethodcall, nameOf (adrparams^[ix]), customStructType, customNamespace, customNamespaceURI, flEntityEncodeHighAscii)}}} else { scripterror ("Can't encode parameters because adrparams is not a list or record.")}} else { if methodNamespace == "" { table.assign (adrmethodcall, "")}}}; bundle { //decompile document tree into XML text requestText = xml.decompile (adrdocument)}; bundle { //convert the text to the character set specified by charset case string.lower (charset) { //assume us-ascii soap.constants.charsetUtf8 { if not flEntityEncodeHighAscii { requestText = string.ansiToUtf8 (requestText)}}; soap.constants.charsetUtf16 { requestText = string.ansiToUtf16 (requestText)}}}}; bundle { //make method call local (requestHeaders); new (tableType, @headers); if soapAction == nil { //03/25/2001 JES: default to actionURI soapAction = actionURI}; headers.SOAPAction = "\"" + soapAction + "\""; s = tcp.httpClient (method:"POST", server:rpcServer, port:rpcPort, path:actionURI, data:requestText, datatype:"text/xml; charset=\"" + charset + "\"", username:username, password:password, adrHdrTable:@headers, debug:fldebug, timeOutTicks:ticksToTimeOut, flMessages:flShowMessages); responseText = string.httpResultSplit (s, @responseHeaders)}; bundle { //decode response local (adrdocument, adrenvelope, adrheader, adrbody, adrothers, adrmethodresponse); bundle { //convert to response text to ascii, if needed local (responsecharset = "us-ascii"); //default to ascii if defined (responseHeaders.["Content-Type"]) { local (contentType = soap.stringutils.parseHeader (responseHeaders.["Content-Type"])); if defined (contentType.charset) { responsecharset = contentType.charset}}; case string.lower (responsecharset) { soap.constants.charsetUtf8; soap.constants.charsetUtf16 { if not defined (string.utf8ToAnsi) { scriptError ("Can't decode the response because \"" + responsecharset + "\" is not a supported character encoding.")}; if string.lower (responsecharset) == soap.constants.charsetUtf8 { responseText = string.utf8ToAnsi (responseText)} else { //utf16 responseText = string.utf16ToAnsi (responseText)}}}}; bundle { //build document tree from XML text on fixEntities (s) { ÇWorks around a bug in xml.compile, where both &quot; and " are decoded as ". Clearly this shouldn't be the case, but to fix xml-compile at this point is asking for trouble. s = string.replaceAll (s, "&amp;", "&amp;amp;"); s = string.replaceAll (s, "&quot;", "&amp;quot;"); s = string.replaceAll (s, "&apos;", "&amp;apos;"); s = string.replaceAll (s, "&lt;", "&amp;lt;"); s = string.replaceAll (s, "&gt;", "&amp;gt;"); return (s)}; local (xmltext = string (responseText)); xmltext = fixEntities (xmltext); adrdocument = soap.xmlutils.createResponse (adrresponse, string (xmltext))}; bundle { //locate envelope adrenvelope = soap.xmlutils.getFirstChildElement (adrdocument); soap.xmlutils.pushScope (adrresponse, adrenvelope); if not soap.xmlutils.elementMatches (adrresponse, adrenvelope, @soap.qname.envelope) { scripterror ("Can't decode the response because the Envelope element was not found.")}}; bundle { //locate header, body, and others local (adrtemp = soap.xmlutils.getFirstChildElement (adrenvelope)); soap.xmlutils.pushScope (adrresponse, adrtemp); if soap.xmlutils.elementMatches (adrresponse, adrtemp, @soap.qname.header) { adrheader = adrtemp; soap.xmlutils.popScope (adrresponse); adrtemp = soap.xmlutils.getNextSiblingElement (adrtemp); soap.xmlutils.pushScope (adrresponse, adrtemp)}; if soap.xmlutils.elementMatches (adrresponse, adrtemp, @soap.qname.body) { adrbody = adrtemp; adrothers = soap.xmlutils.getNextSiblingElement (adrtemp)} else { scripterror ("Can't decode the response because the Body element was not found.")}}; bundle { //check body for fault struct local (nomad = soap.xmlutils.getFirstChildElement (adrbody)); while (nomad) { if soap.xmlutils.elementMatches (adrresponse, nomad, @soap.qname.fault) { local (adrfaultcode = soap.xmlutils.getNamedChildElement (nomad, "faultcode")); local (adrfaultstring = soap.xmlutils.getNamedChildElement (nomad, "faultstring")); if adrfaultcode { scripterror ("The server, " + rpcServer + ", returned a " + soap.xmlutils.getCharacterData (adrfaultcode) + " fault: " + soap.xmlutils.decodeAmpersands (soap.xmlutils.getCharacterData (adrfaultstring)))} else { scripterror ("The server, " + rpcServer + ", returned a (malformed) fault with no faultcode element: " + soap.xmlutils.decodeAmpersands (soap.xmlutils.getCharacterData (adrfaultstring)))}}; nomad = soap.xmlutils.getNextSiblingElement (nomad)}}; bundle { //locate method call adrmethodresponse = soap.xmlutils.getFirstChildElement (adrbody); if not (xml.convertToDisplayName (nameOf (adrmethodresponse^)) beginsWith methodname) { scripterror ("Response name is incompatible with request method name.")}}; bundle { //decode the method response struct soap.xmlutils.pushScope (adrresponse, adrmethodresponse); local (adritem = soap.xmlutils.getFirstChildElement (adrmethodresponse)); returnvalue = soap.decode.main (adrresponse, adritem, flEnforceSimpleTypes)}}; return (returnvalue)}; Çbundle //debugging code Çbundle //examples/getStateList Çlocal (returnvalue, params = {{1, 2, 3}}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateList", adrparams:@params, rpcServer:"superhonker.userland.com", fldebug:true) Çedit (@scratchpad.httpCommand) Çedit (@scratchpad.httpResult) Çdialog.notify (returnvalue) Çbundle //examples/getStateName Çlocal (returnvalue, params = {50}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateName", adrparams:@params) Çdialog.notify (returnvalue) Çbundle //examples/getStateNames Çlocal (returnvalue, params = {11, 22, 33, 44}) Çreturnvalue = client (actionURI:"/examples", methodName:"getStateNames", rpcServer:"superhonker.userland.com", adrparams:@params) Çdialog.notify (returnvalue) Çbundle //examples/getStateStruct Çlocal (returnvalue, params, struct) Çnew (tableType, @struct) Çstruct.a = 11 Çstruct.b = 22 Çstruct.c = 33 Çstruct.d = 44 Çparams = {struct} Çreturnvalue = client (actionURI:"/examples", methodName:"getStateStruct", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çtemp.returnvalue = returnvalue Çedit (@temp.returnvalue) Çbundle //examples/getCurrentTime Çlocal (returnvalue, params = {}) Çreturnvalue = client (actionURI:"/examples", methodName:"getCurrentTime", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çdialog.notify (returnvalue) Çbundle //examples/getCurrentTime -- throws an error because there are too many parameters Çlocal (returnvalue, params = {1, 2, 3}) Çreturnvalue = client (actionURI:"/examples", methodName:"getCurrentTime", rpcServer:"superhonker.userland.com", adrparams:@params, fldebug:true) Çdialog.notify (returnvalue) \ No newline at end of file |
