[cl-soap-cvs] CVS update: cl-soap/src/http-client.lisp cl-soap/src/namespaces.lisp cl-soap/src/soap.lisp

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/src
In directory common-lisp.net:/tmp/cvs-serv3830/src

Modified Files:
	http-client.lisp namespaces.lisp soap.lisp 
Log Message:
some bugfixes (thx to carlos.ungil at bluewin.ch)

Date: Thu Sep  8 17:39:42 2005
Author: scaekenberghe

Index: cl-soap/src/http-client.lisp
diff -u cl-soap/src/http-client.lisp:1.1 cl-soap/src/http-client.lisp:1.2
--- cl-soap/src/http-client.lisp:1.1	Mon Sep  5 10:35:55 2005
+++ cl-soap/src/http-client.lisp	Thu Sep  8 17:39:42 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: http-client.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $
+;;;; $Id: http-client.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $
 ;;;;
 ;;;; A basic HTTP client, somewhat API compatible with portableaserve's do-http-request
 ;;;; Copied from another project (basic authorization support removed)
@@ -115,7 +115,8 @@
           (ignore-errors (close connection :abort abort)))))))
 
 (defun open-socket-stream (host port)
-  #+lispworks (comm:open-tcp-stream host port))
+  #+lispworks (comm:open-tcp-stream host port)
+  #+openmcl (ccl:make-socket :remote-host host :remote-port port))
 
 (defun get-open-connection (host port state &key force-new)
   (if state


Index: cl-soap/src/namespaces.lisp
diff -u cl-soap/src/namespaces.lisp:1.1 cl-soap/src/namespaces.lisp:1.2
--- cl-soap/src/namespaces.lisp:1.1	Mon Sep  5 10:35:55 2005
+++ cl-soap/src/namespaces.lisp	Thu Sep  8 17:39:42 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: namespaces.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $
+;;;; $Id: namespaces.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $
 ;;;;
 ;;;; Definition of some standard XML namespaces commonly needed for SOAP
 ;;;;
@@ -22,7 +22,7 @@
   (:export "Envelope" "Header" "Body" "Fault" "encodingStyle")
   (:documentation "Package for symbols in the SOAP Envelope XML Namespace"))
 
-(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soap-env" :soapenv))
+(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soapenv" :soapenv))
 
 ;;; XSD
 


Index: cl-soap/src/soap.lisp
diff -u cl-soap/src/soap.lisp:1.1 cl-soap/src/soap.lisp:1.2
--- cl-soap/src/soap.lisp:1.1	Mon Sep  5 10:35:55 2005
+++ cl-soap/src/soap.lisp	Thu Sep  8 17:39:42 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: soap.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $
+;;;; $Id: soap.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $
 ;;;;
 ;;;; The basic SOAP protocol
 ;;;;
@@ -38,7 +38,7 @@
   (let ((code (second (lxml-find-tag :|faultcode| (rest xml))))
         (string (second (lxml-find-tag :|faultstring| (rest xml))))
         (actor (second (lxml-find-tag :|faultactor| (rest xml))))
-        (detail (second (lxml-find-tag :|faultactor| (rest xml)))))
+        (detail (second (lxml-find-tag :|detail| (rest xml)))))
     (make-condition 'standard-soap-fault
                     :code code
                     :string string