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