November 2005 - cl-xmpp-cvs@common-lisp.net

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp-tls.lisp
by eenge＠common-lisp.net 28 Nov '05

28 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv3568 Modified Files: cl-xmpp-tls.lisp Log Message: patch from david lichteblau Date: Mon Nov 28 16:15:46 2005 Author: eenge Index: cl-xmpp/cl-xmpp-tls.lisp diff -u cl-xmpp/cl-xmpp-tls.lisp:1.7 cl-xmpp/cl-xmpp-tls.lisp:1.8 --- cl-xmpp/cl-xmpp-tls.lisp:1.7 Thu Nov 17 21:56:38 2005 +++ cl-xmpp/cl-xmpp-tls.lisp Mon Nov 28 16:15:46 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp-tls.lisp,v 1.7 2005/11/17 20:56:38 eenge Exp $ +;;;; $Id: cl-xmpp-tls.lisp,v 1.8 2005/11/28 15:15:46 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp-tls.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -46,7 +46,8 @@ Turn off sending XML stream start with :begin-xml-stream nil." (setf (server-stream connection) - (cl+ssl:make-ssl-client-stream (server-stream connection))) + (cl+ssl:make-ssl-client-stream (server-stream connection) + :external-format :iso-8859-1)) (setf (server-xstream connection) nil) (when begin-xml-stream (begin-xml-stream connection))

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/README
by eenge＠common-lisp.net 28 Nov '05

28 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv3006 Modified Files: README Log Message: patch from david lichteblau Date: Mon Nov 28 16:15:03 2005 Author: eenge Index: cl-xmpp/README diff -u cl-xmpp/README:1.10 cl-xmpp/README:1.11 --- cl-xmpp/README:1.10 Fri Nov 18 23:35:50 2005 +++ cl-xmpp/README Mon Nov 28 16:15:03 2005 @@ -14,7 +14,7 @@ ;; (defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com")) - * (xmpp:auth connection "password" "resource") + * (xmpp:auth connection "username" "password" "resource") ;; or pass :mechanism :sasl-plain, :digest-md5 or sasl-digest-md5 ;; if you loaded cl-xmpp-sasl or cl-xmpp-tls.

1 0

[cl-xmpp-cvs] CVS update: public_html/index.html
by eenge＠common-lisp.net 21 Nov '05

21 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv13483 Modified Files: index.html Log Message: 0.7.1 Date: Mon Nov 21 20:01:16 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.26 public_html/index.html:1.27 --- public_html/index.html:1.26 Mon Nov 21 20:00:34 2005 +++ public_html/index.html Mon Nov 21 20:01:16 2005 @@ -33,7 +33,7 @@ <h2>News</h2> <div class="level"> <ul> - <li>Version 0.7.1 released (Bugfixes)</li> + <li><em>2005-11-21</em>: Version 0.7.1 released (Bugfixes)</li> <li>Version 0.7.0 released (TLS support)</li> <li>Version 0.6.0 released (SASL support, tiny test suite and many small fixes and tweaks)</li> <li>Version 0.5.0 released (Now depending on <a href="http://cliki.net/ironclad">Ironclad</a> for digest authentication)</li>

1 0

[cl-xmpp-cvs] CVS update: public_html/index.html
by eenge＠common-lisp.net 21 Nov '05

21 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv12992 Modified Files: index.html Log Message: 0.7.1 Date: Mon Nov 21 20:00:34 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.25 public_html/index.html:1.26 --- public_html/index.html:1.25 Fri Nov 18 23:39:55 2005 +++ public_html/index.html Mon Nov 21 20:00:34 2005 @@ -7,7 +7,7 @@ <body> <div class="header"> - <h1>cl-xmpp 0.7.0</h1> + <h1>cl-xmpp 0.7.1</h1> </div> <div class="body"> @@ -33,6 +33,7 @@ <h2>News</h2> <div class="level"> <ul> + <li>Version 0.7.1 released (Bugfixes)</li> <li>Version 0.7.0 released (TLS support)</li> <li>Version 0.6.0 released (SASL support, tiny test suite and many small fixes and tweaks)</li> <li>Version 0.5.0 released (Now depending on <a href="http://cliki.net/ironclad">Ironclad</a> for digest authentication)</li>

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp.lisp
by eenge＠common-lisp.net 21 Nov '05

21 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv12420 Modified Files: cl-xmpp.lisp Log Message: making my own with-xml-output and fixing a few small bugs Date: Mon Nov 21 19:58:03 2005 Author: eenge Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.22 cl-xmpp/cl-xmpp.lisp:1.23 --- cl-xmpp/cl-xmpp.lisp:1.22 Fri Nov 18 23:53:02 2005 +++ cl-xmpp/cl-xmpp.lisp Mon Nov 21 19:58:03 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.22 2005/11/18 22:53:02 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.23 2005/11/21 18:58:03 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -353,24 +353,28 @@ (with-xml-stream (stream connection) (xml-output stream "</stream:stream>"))) -(defmacro with-iq ((connection &key id to (type "get")) &body body) - "Macro to make it easier to write IQ stanzas." - (let ((stream (gensym "stream")) - (xml (gensym "xml"))) +(defmacro with-xml-output ((connection) &body body) + (let ((xml (gensym "xml")) + (stream (gensym "stream"))) `(let ((,stream (server-stream ,connection))) (prog1 (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink) - (cxml:with-element "iq" - (when ,id - (cxml:attribute "id" ,id)) - (when ,to - (cxml:attribute "to" ,to)) - (cxml:attribute "type" ,type) - ,@body)))) + ,@body))) (write-sequence (vector-to-array ,xml) ,stream) - (when *debug-stream* - (write-sequence (map 'string #'code-char ,xml) *debug-stream*))) - (force-output ,stream))))) + (when *debug-stream* + (write-sequence (map 'string #'code-char ,xml) *debug-stream*))) + (force-output ,stream))))) + +(defmacro with-iq ((connection &key id to (type "get")) &body body) + "Macro to make it easier to write IQ stanzas." + `(with-xml-output (,connection) + (cxml:with-element "iq" + (when ,id + (cxml:attribute "id" ,id)) + (when ,to + (cxml:attribute "to" ,to)) + (cxml:attribute "type" ,type) + ,@body))) (defmacro with-iq-query ((connection &key xmlns id to node (type "get")) &body body) "Macro to make it easier to write QUERYs." @@ -465,22 +469,18 @@ (add-auth-method :digest-md5 '%digest-md5-auth%) (defmethod presence ((connection connection) &key type to) - (cxml:with-xml-output (make-octet+character-debug-stream-sink - (server-stream connection)) + (with-xml-output (connection) (cxml:with-element "presence" (when type (cxml:attribute "type" type)) (when to - (cxml:attribute "to" to)))) - connection) + (cxml:attribute "to" to))))) (defmethod message ((connection connection) to body) - (cxml:with-xml-output (make-octet+character-debug-stream-sink - (server-stream connection)) + (with-xml-output (connection) (cxml:with-element "message" (cxml:attribute "to" to) - (cxml:with-element "body" (cxml:text body)))) - connection) + (cxml:with-element "body" (cxml:text body))))) (defmethod bind ((connection connection) resource) (with-iq (connection :id "bind_2" :type "set")

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/test/cl-xmpp-test.asd
by eenge＠common-lisp.net 21 Nov '05

21 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test In directory common-lisp.net:/tmp/cvs-serv12420/test Modified Files: cl-xmpp-test.asd Log Message: making my own with-xml-output and fixing a few small bugs Date: Mon Nov 21 19:58:04 2005 Author: eenge Index: cl-xmpp/test/cl-xmpp-test.asd diff -u cl-xmpp/test/cl-xmpp-test.asd:1.2 cl-xmpp/test/cl-xmpp-test.asd:1.3 --- cl-xmpp/test/cl-xmpp-test.asd:1.2 Sun Nov 13 03:55:47 2005 +++ cl-xmpp/test/cl-xmpp-test.asd Mon Nov 21 19:58:04 2005 @@ -1,5 +1,5 @@ ;;;; -*- mode: lisp -*- -;;;; $Id: cl-xmpp-test.asd,v 1.2 2005/11/13 02:55:47 eenge Exp $ +;;;; $Id: cl-xmpp-test.asd,v 1.3 2005/11/21 18:58:04 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -21,7 +21,7 @@ (:file "utility-test" :depends-on ("package")) (:file "result-test" - :depends-on ("package")))) + :depends-on ("package")) (:file "cl-xmpp-test" - :depends-on ("package")))) + :depends-on ("package"))))

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cxml.lisp
by eenge＠common-lisp.net 18 Nov '05

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv2908 Modified Files: cxml.lisp Log Message: fixing cvs tags Date: Sat Nov 19 00:14:36 2005 Author: eenge Index: cl-xmpp/cxml.lisp diff -u cl-xmpp/cxml.lisp:1.8 cl-xmpp/cxml.lisp:1.9 --- cl-xmpp/cxml.lisp:1.8 Fri Nov 18 23:52:48 2005 +++ cl-xmpp/cxml.lisp Sat Nov 19 00:14:35 2005 @@ -1,7 +1,7 @@ -;;;; cxml-stanza.lisp -- parser helper for RFC 3920 XML streams +;;;; $Id: cxml.lisp,v 1.9 2005/11/18 23:14:35 eenge Exp $ +;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cxml.lisp,v $ -;;; These are modifications to CXML which helps us deal with the -;;; incremental-style parsing required for the XML stanzas. +;;;; See the LICENSE file for licensing information. (in-package :xmpp)

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp.lisp
by eenge＠common-lisp.net 18 Nov '05

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv1275 Modified Files: cl-xmpp.lisp Log Message: removing commented-out function call no longer needed Date: Fri Nov 18 23:53:02 2005 Author: eenge Index: cl-xmpp/cl-xmpp.lisp diff -u cl-xmpp/cl-xmpp.lisp:1.21 cl-xmpp/cl-xmpp.lisp:1.22 --- cl-xmpp/cl-xmpp.lisp:1.21 Fri Nov 18 23:29:27 2005 +++ cl-xmpp/cl-xmpp.lisp Fri Nov 18 23:53:02 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.21 2005/11/18 22:29:27 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.22 2005/11/18 22:53:02 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -359,7 +359,6 @@ (xml (gensym "xml"))) `(let ((,stream (server-stream ,connection))) (prog1 -; (cxml:with-xml-output (make-octet+character-debug-stream-sink ,stream) (let ((,xml (cxml:with-xml-output (cxml:make-octet-vector-sink) (cxml:with-element "iq" (when ,id

1 0

[cl-xmpp-cvs] CVS update: cl-xmpp/cxml.lisp
by eenge＠common-lisp.net 18 Nov '05

18 Nov '05

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory common-lisp.net:/tmp/cvs-serv1252 Modified Files: cxml.lisp Log Message: removing unneeded functions Date: Fri Nov 18 23:52:48 2005 Author: eenge Index: cl-xmpp/cxml.lisp diff -u cl-xmpp/cxml.lisp:1.7 cl-xmpp/cxml.lisp:1.8 --- cl-xmpp/cxml.lisp:1.7 Fri Nov 18 22:43:52 2005 +++ cl-xmpp/cxml.lisp Fri Nov 18 23:52:48 2005 @@ -72,25 +72,6 @@ (declare (ignore input)) nil) -;; To facilitate writing to both an octet and a character stream -;; using CXML. - -(defclass octet+character-debug-stream-sink (cxml::octet-stream-sink) ()) - -(defun make-octet+character-debug-stream-sink (octet-stream &rest initargs) - (apply #'make-instance 'octet+character-debug-stream-sink - :target-stream octet-stream - initargs)) - -(defmethod cxml::write-octet (octet (sink octet+character-debug-stream-sink)) - (write-byte octet (slot-value sink 'cxml::target-stream)) - (when *debug-stream* - (write-char (code-char octet) *debug-stream*) - (force-output *debug-stream*))) - -;(defmethod write-octet-sequence (sequence (sink octet+character-debug-stream-sink)) -; (write-sequence sequence (slot-value sink 'cxml::target-stream))) - ;; I'd like to see what CXML is reading from the stream ;; and this code helps us in that regard by printing it ;; to the *debug-stream*

1 0

[cl-xmpp-cvs] CVS update: public_html/index.html
by eenge＠common-lisp.net 18 Nov '05

18 Nov '05

Update of /project/cl-xmpp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv32616 Modified Files: index.html Log Message: .com -> .org Date: Fri Nov 18 23:39:55 2005 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.24 public_html/index.html:1.25 --- public_html/index.html:1.24 Fri Nov 18 23:35:26 2005 +++ public_html/index.html Fri Nov 18 23:39:55 2005 @@ -60,7 +60,7 @@ <div class="level"> <ul> <li><a href="http://talk.google.com/">Google Talk</a></li> - <li><a href="http://jabberd.jabberstudio.com/">Jabberd 1.4</a> (ie not 2)</li> + <li><a href="http://jabberd.jabberstudio.org/">Jabberd 1.4</a> (ie not 2)</li> <li><a href="http://ejabberd.jabber.ru/">ejabberd</a></li> </ul> </div>

1 0