From 436649184c64057d5cee62f3e154957b797634b0 Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Tue, 1 Mar 2016 23:54:34 -0500 Subject: [PATCH] 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 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.2