]> code.delx.au - gnu-emacs-elpa/commitdiff
packages/excorporate: Retrieve Services.wsdl directly
authorThomas Fitzsimmons <fitzsim@fitzsim.org>
Wed, 2 Mar 2016 04:54:34 +0000 (23:54 -0500)
committerThomas Fitzsimmons <fitzsim@fitzsim.org>
Wed, 16 Mar 2016 13:03:08 +0000 (09:03 -0400)
* packages/excorporate/excorporate.el (exco--fsm): Retrieve
Services.wsdl directly, instead of via the endpoint.

packages/excorporate/excorporate.el

index 9b1db7de03b465fe24f21b0dd223f73f2cdb38e2..c32f7980e6de125aafe9f3ba935a69426d458308 100644 (file)
@@ -451,8 +451,10 @@ the FSM should transition to on success."
     (:unrecoverable-error
      (list :shutting-down-on-error state-data nil))
     (:retrieve-xml
-     (let ((service-url (plist-get state-data :service-url)))
-       (url-retrieve (concat service-url "?wsdl")
+     (let* ((service-url (plist-get state-data :service-url))
+           (wsdl-url (replace-regexp-in-string "/[^/]*$" "/Services.wsdl"
+                                               service-url)))
+       (url-retrieve wsdl-url
                     (lambda (status)
                       (let ((data-buffer (current-buffer)))
                         (unwind-protect
@@ -460,7 +462,7 @@ the FSM should transition to on success."
                                 (progn
                                   (plist-put state-data :failure-message
                                              (format "Failed to retrieve %s"
-                                                     service-url))
+                                                     wsdl-url))
                                   (fsm-send fsm :unrecoverable-error))
                               (plist-put state-data
                                          :service-xml