* packages/excorporate/excorporate.el (exco--fsm): Retrieve
Services.wsdl directly, instead of via the endpoint.
(: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
(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