[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/excorporate 34827cc 06/93: packages/excorporate: Retrie

From: Stefan Monnier
Subject: [elpa] externals/excorporate 34827cc 06/93: packages/excorporate: Retrieve Services.wsdl directly
Date: Sun, 29 Nov 2020 15:42:56 -0500 (EST)

branch: externals/excorporate
commit 34827cc69036188495101e2f0b40faac557f67cc
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    packages/excorporate: Retrieve Services.wsdl directly
    * packages/excorporate/excorporate.el (exco--fsm): Retrieve
    Services.wsdl directly, instead of via the endpoint.
 excorporate.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/excorporate.el b/excorporate.el
index 9b1db7d..c32f798 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -451,8 +451,10 @@ the FSM should transition to on success."
      (list :shutting-down-on-error state-data nil))
-     (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)))
@@ -460,7 +462,7 @@ the FSM should transition to on success."
                                   (plist-put state-data :failure-message
                                              (format "Failed to retrieve %s"
-                                                     service-url))
+                                                     wsdl-url))
                                   (fsm-send fsm :unrecoverable-error))
                               (plist-put state-data

reply via email to

[Prev in Thread] Current Thread [Next in Thread]