branch: master
commit 436649184c64057d5cee62f3e154957b797634b0
Author: Thomas Fitzsimmons <[email protected]>
Commit: Thomas Fitzsimmons <[email protected]>
packages/excorporate: Retrieve Services.wsdl directly
* packages/excorporate/excorporate.el (exco--fsm): Retrieve
Services.wsdl directly, instead of via the endpoint.
---
packages/excorporate/excorporate.el | 8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/excorporate/excorporate.el
b/packages/excorporate/excorporate.el
index 9b1db7d..c32f798 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
