From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Wed, 2 Mar 2016 04:54:34 +0000 (-0500)
Subject: packages/excorporate: Retrieve Services.wsdl directly
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/436649184c64057d5cee62f3e154957b797634b0

packages/excorporate: Retrieve Services.wsdl directly

* packages/excorporate/excorporate.el (exco--fsm): Retrieve
Services.wsdl directly, instead of via the endpoint.
---

diff --git a/packages/excorporate/excorporate.el b/packages/excorporate/excorporate.el
index 9b1db7de0..c32f7980e 100644
--- a/packages/excorporate/excorporate.el
+++ b/packages/excorporate/excorporate.el
@@ -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