[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4366491 3/8: packages/excorporate: Retrieve Services.wsdl
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] master 4366491 3/8: packages/excorporate: Retrieve Services.wsdl directly |
Date: |
Wed, 16 Mar 2016 16:08:31 +0000 |
branch: master
commit 436649184c64057d5cee62f3e154957b797634b0
Author: Thomas Fitzsimmons <address@hidden>
Commit: Thomas Fitzsimmons <address@hidden>
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
- [elpa] master updated (bbfbd6e -> 4e40ea1), Thomas Fitzsimmons, 2016/03/16
- [elpa] master a887c8a 4/8: packages/excorporate: Change server version lookup, Thomas Fitzsimmons, 2016/03/16
- [elpa] master 4366491 3/8: packages/excorporate: Retrieve Services.wsdl directly,
Thomas Fitzsimmons <=
- [elpa] master e9107ba 5/8: packages/excorporate: Improve exco-get-meetings-for-day, Thomas Fitzsimmons, 2016/03/16
- [elpa] master ff37d3a 7/8: packages/excorporate: Require soap-client 3.1.1, Thomas Fitzsimmons, 2016/03/16
- [elpa] master 530b4e2 1/8: packages/excorporate: Handle nil list of main invitees, Thomas Fitzsimmons, 2016/03/16
- [elpa] master 4e40ea1 8/8: packages/excorporate: Bump version to 0.7.2, Thomas Fitzsimmons, 2016/03/16
- [elpa] master ca6d981 2/8: packages/excorporate: Update manual, Thomas Fitzsimmons, 2016/03/16
- [elpa] master a418805 6/8: packages/excorporate: Acknowledge Erik Hetzner, Thomas Fitzsimmons, 2016/03/16