Update of /project/cl-soap/cvsroot/cl-soap/src
In directory clnet:/tmp/cvs-serv28246/src
Modified Files:
wsdl.lisp
Log Message:
Added option to override endpoint in wsdl-soap-call (contributed by Daniel Janus)
--- /project/cl-soap/cvsroot/cl-soap/src/wsdl.lisp 2005/10/05 13:24:38 1.22
+++ /project/cl-soap/cvsroot/cl-soap/src/wsdl.lisp 2008/04/14 13:41:47 1.23
@@ -1,6 +1,6 @@
;;;; -*- mode: lisp -*-
;;;;
-;;;; $Id: wsdl.lisp,v 1.22 2005/10/05 13:24:38 scaekenberghe Exp $
+;;;; $Id: wsdl.lisp,v 1.23 2008/04/14 13:41:47 scaekenberghe Exp $
;;;;
;;;; The basic WSDL protocol: we parse the generic and soap specific parts
;;;;
@@ -576,8 +576,9 @@
operation-name
input
output
- headers)
- (let* ((address-location-url (get-location (get-extension port)))
+ headers
+ &optional endpoint-address)
+ (let* ((address-location-url (or endpoint-address (get-location (get-extension port))))
(soap-end-point (make-soap-end-point address-location-url))
(binding (get-binding-named wsdl-document-definitions (get-binding port)))
(soap-binding (get-extension-of-class binding 'wsdl-soap-binding))
@@ -645,7 +646,8 @@
port-name
input
output
- headers)
+ headers
+ endpoint)
"Use WSDL to make a SOAP call of operation/port/service using input/output/headers"
(let* ((wsdl-document-definitions (etypecase wsdl
(wsdl-document-definitions wsdl)
@@ -662,6 +664,7 @@
operation-name
input
output
- headers)))
+ headers
+ endpoint)))
;;;; eof
