[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-sasl.lisp - cl-xmpp-cvs@common-lisp.net - mailman3.common-lisp.net

11 Nov 2005

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp.net:/tmp/cvs-serv1234
Modified Files:
    cl-xmpp-sasl.lisp 
Log Message:
Date: Fri Nov 11 23:31:38 2005
Author: eenge
Index: cl-xmpp/cl-xmpp-sasl.lisp
diff -u cl-xmpp/cl-xmpp-sasl.lisp:1.2 cl-xmpp/cl-xmpp-sasl.lisp:1.3

--- cl-xmpp/cl-xmpp-sasl.lisp:1.2	Fri Nov 11 22:20:20 2005
+++ cl-xmpp/cl-xmpp-sasl.lisp	Fri Nov 11 23:31:38 2005
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp-sasl.lisp,v 1.2 2005/11/11 21:20:20 eenge Exp $
+;;;; $Id: cl-xmpp-sasl.lisp,v 1.3 2005/11/11 22:31:38 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-sasl.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -26,6 +26,7 @@
    				   :authentication-id username
    				   :password password
    				   :service "xmpp"
+					   :realm (hostname connection)
    				   :host (hostname connection)))
           (response (sasl:client-step sasl-client challenge-string))
           (base64-response (base64:string-to-base64-string response)))

    