[cl-soap-cvs] CVS cl-soap/src

[scaekenberghe]

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