mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Move xsd:base64Binary decoding fix to debbugs.el 0.9.1

Browse Source 
* lisp/net/soap-client.el (soap-encode-xs-basic-type): Do not
assume xsd:base64Binary values are UTF-8 strings.
(soap-decode-xs-basic-type): Likewise.
(soap-invoke): Document xsd:base64Binary handling.
This commit is contained in:
Thomas Fitzsimmons 2016-03-16 09:15:17 -04:00
parent 2036be4666
commit c3ed95b1c5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/net/soap-client.el
View File

@ -538,7 +538,7 @@ This is a specialization of `soap-encode-value' for
(base64Binary (base64Binary
(unless (stringp value) (unless (stringp value)
(error "Not a string value for base64Binary")) (error "Not a string value for base64Binary"))
(base64-encode-string (encode-coding-string value 'utf-8))) (base64-encode-string value))
(otherwise (otherwise
(error "Don't know how to encode %s for type %s" (error "Don't know how to encode %s for type %s"
@ -682,7 +682,7 @@ This is a specialization of `soap-decode-type' for
decimal byte float double duration) decimal byte float double duration)
(string-to-number (car contents))) (string-to-number (car contents)))
(boolean (string= (downcase (car contents)) "true")) (boolean (string= (downcase (car contents)) "true"))
(base64Binary (decode-coding-string (base64-decode-string (car contents)) 'utf-8)) (base64Binary (base64-decode-string (car contents)))
(anyType (soap-decode-any-type node)) (anyType (soap-decode-any-type node))
(Array (soap-decode-array node)))))) (Array (soap-decode-array node))))))
@ -3096,7 +3096,11 @@ the SOAP request.
NOTE: The SOAP service provider should document the available NOTE: The SOAP service provider should document the available
operations and their parameters for the service. You can also operations and their parameters for the service. You can also
use the `soap-inspect' function to browse the available use the `soap-inspect' function to browse the available
operations in a WSDL document." operations in a WSDL document.
NOTE: `soap-invoke' base64-decodes xsd:base64Binary return values
into unibyte strings; these byte-strings require further
interpretation by the caller."
(apply #'soap-invoke-internal nil nil wsdl service operation-name parameters)) (apply #'soap-invoke-internal nil nil wsdl service operation-name parameters))
(defun soap-invoke-async (callback cbargs wsdl service operation-name (defun soap-invoke-async (callback cbargs wsdl service operation-name