March 2006 - cl-xmpp-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-xmpp-cvs] CVS public_html
by eenge 29 Mar '06

29 Mar '06

Update of /project/cl-xmpp/cvsroot/public_html In directory clnet:/home/eenge/public_htmls/cl-xmpp Added Files: index.shtml Removed Files: index.html Log Message: renaming --- /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/03/29 16:40:50 NONE +++ /project/cl-xmpp/cvsroot/public_html/index.shtml 2006/03/29 16:40:50 1.1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <link rel="stylesheet" href="style.css" type="text/css"> <title>cl-xmpp</title></head> <body> <div class="header"> <h1>cl-xmpp 0.7.2</h1> </div> <div class="body"> <p>cl-xmpp is a Common Lisp client implementation of the <a href="http://www.xmpp.org/">XMPP</a> RFCs. These are the RFCs which <a href="http://www.jabber.org">Jabber</a> clients and servers use to communicate with eachother (including <a href="http://talk.google.com/">Google Talk</a>). In addition cl-xmpp implements JEPs 0078, 0086, 0030 and 0070 which are all part of <a href="http://www.jabber.org/jeps/jep-0073.html">JEP-0073: Basic IM Protocol Suite</a>. The author considers the library feature complete but will happily accept patches for any other reasonably stable JEPs.</p> <p>Currently, you can chat, manage your contacts, roster and presence information using this library. You can now also use the service discovery protocol using the <code>xmpp:discover</code> operator.</p> <p>The code is released under an <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-xmpp/LICENSE?rev=HEAD&cvsroot…">MIT-style license</a>. </p> <h2>News</h2> <div class="level"> <ul> <li><em>2006-02-06</em>: Version 0.7.2 released (Bugfixes and updated for new CXML)</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> <li>Version 0.4.0 released (Better support for JEP0030 (service discovery) and more exported symbols)</li> <li>Version 0.3.0 released (Added Allegro and LispWorks support)</li> <li>Version 0.2.0 released (JEP 0073 support)</li> <li>Version 0.1.0 released (Initial release)</li> </ul> </div> <h2>Requirements</h2> <div class="level"> <ul> <li>Any implementation which can run the dependencies</li> <li><a href="http://cliki.net/trivial-sockets">trivial-sockets</a></li> <li><a href="http://common-lisp.net/project/cxml">cxml</a></li> <li><a href="http://cliki.net/ironclad">Ironclad</a></li> <li><a href="http://cliki.net/cl-base64">cl-base64</a> (for cl-xmpp-{sasl,tls})</li> <li><a href="http://cliki.net/cl-sasl">cl-sasl</a> (for cl-xmpp-{sasl,tls})</li> <li><a href="http://common-lisp.net/project/cl-plus-ssl">cl+ssl</a> (for cl-xmpp-tls)</li> </ul> </div> <h2>Tested against</h2> <div class="level"> <ul> <li><a href="http://talk.google.com/">Google Talk</a></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> <h2>Features</h2> <div class="level"> <ul> <li>Implements most commands in the RFCs</li> <li>event driven model with hooks makes interfacing easy -- or</li> <li>access to DOM-ish structure with raw data from the server so you can do whatever you like</li> </ul> </div> <h2>Installation</h2> <div class="level"> <p>If you have <a href="http://www.cliki.net/asdf-install"> asdf-install</a>, just: </p> <pre>$ asdf-install cl-xmpp</pre> <p>cl-xmpp can manually be downloaded from here: <tt><a href="ftp://common-lisp.net/pub/project/cl-xmpp/cl-xmpp_latest.tar.gz"> cl-xmpp_latest.tar.gz</a> </tt>.</p> <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous CVS </a> and <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-xmpp"> ViewCVS </a>. </p> </div> <h2>Contact</h2> <div class="level"> <p>Questions, feature requests, and bug-reports are welcome on <tt><a href="mailto:cl-xmpp-devel@common-lisp.net"> cl-xmpp-devel(a)common-lisp.net</a></tt> (<a href="http://common-lisp.net/pipermail/cl-xmpp-devel/">archives</a>).</p> </div> <h2>Project members</h2> <div class="level"> <pre>  </pre> </div> <h2>Sample usage</h2> <div class="level"> <pre> * (require :cl-xmpp) * (defvar *connection* (xmpp:connect :hostname "jabber.org")) ;; or xmpp:connect-tls if you loaded cl-xmpp-tls ;; note that for XMPP servers which do not have the same hostname ;; as the domain-part of the user's JID you will have to pass that ;; in. eg for Google Talk: ;; (defvar *connection* (xmpp:connect-tls :hostname "talk.google.com" :jid-domain-part "gmail.com")) * (xmpp:auth connection "password" "resource") ;; or pass :mechanism :sasl-plain, :digest-md5 or sasl-digest-md5 ;; if you loaded cl-xmpp-sasl or cl-xmpp-tls. ;; send someone a message * (xmpp:message connection "username@hostname" "what's going on?") ;; then sit back and watch the messages roll in: * (xmpp:receive-stanza-loop connection) <MESSAGE from=username@hostname to=me@myserver> [....] ;; or use xmpp:receive-stanza if you're just wanting one stanza ;; (note it will still block until you have received a complete ;; stanza) ;; That's it. Interrupt the loop to issue other commands, eg: * (xmpp:get-roster connection) ;; or any of the other ones you may find by looking through cl-xmpp.lisp ;; and package.lisp to see which ones are exported. ;; If you wish to handle the incoming messages or other objects simply ;; specify an xmpp:handle method for the objects you are interested in ;; or (defmethod xmpp:handle (connection object) ...) to get them ;; all. Or alternatively specify :dom-repr t to receive-stanza-loop ;; to get DOM-ish objects. ;; For example, if you wanted to create an annoying reply bot: * (defmethod xmpp:handle ((connection xmpp:connection) (message xmpp:message)) (xmpp:message connection (xmpp:from message) (format nil "reply to: ~a" (xmpp:message object)))) </pre> </div> </div> </body> </html>

1 0

[cl-xmpp-cvs] CVS public_html
by eenge 29 Mar '06

29 Mar '06

Update of /project/cl-xmpp/cvsroot/public_html In directory clnet:/tmp/cvs-serv3171 Modified Files: index.html Log Message: project member listing --- /project/cl-xmpp/cvsroot/public_html/index.html 2006/02/06 15:51:32 1.30 +++ /project/cl-xmpp/cvsroot/public_html/index.html 2006/03/29 16:38:07 1.31 @@ -106,6 +106,13 @@ </div> + <h2>Project members</h2> + <div class="level"> + <pre> +  + </pre> + </div> + <h2>Sample usage</h2> <div class="level"> <pre>

1 0

[cl-xmpp-cvs] CVS cl-xmpp
by eenge 02 Mar '06

02 Mar '06

Update of /project/cl-xmpp/cvsroot/cl-xmpp In directory clnet:/tmp/cvs-serv13898 Modified Files: cl-xmpp.lisp Log Message: fixing error handling code --- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/01/23 16:41:11 1.25 +++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp 2006/03/02 15:51:33 1.26 @@ -1,4 +1,4 @@ -;;;; $Id: cl-xmpp.lisp,v 1.25 2006/01/23 16:41:11 eenge Exp $ +;;;; $Id: cl-xmpp.lisp,v 1.26 2006/03/02 15:51:33 eenge Exp $ ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -196,26 +196,29 @@ (defmethod xml-element-to-event ((connection connection) (object xml-element) (name (eql :iq))) (let ((id (ensure-keyword (value (get-attribute object :id)))) - (type (ensure-keyword (value (get-attribute object :type))))) - (case id - (:error (make-error (get-element object :error))) - (:roster_1 (make-roster object)) - (:reg2 :registration-successful) - (:unreg_1 :registration-cancellation-successful) - (:change1 :password-changed-successfully) - (:auth2 :authentication-successful) - (:bind_2 :bind-successful) - (:session_1 :session-initiated) - (t - (case type - (:get (warn "Don't know how to handle IQ get yet.")) - (t - (cond - ((member id '(info1 info2 info3)) - (make-disco-info (get-element object :query))) - ((member id '(items1 items2 items3 items4)) - (make-disco-items (get-element object :query))) - (t ;; Assuming an error + (type (ensure-keyword (value (get-attribute object :type)))) + (errorp (get-element object :error))) + (if errorp + (make-error errorp) + (case id + (:error (make-error errorp)) + (:roster_1 (make-roster object)) + (:reg2 :registration-successful) + (:unreg_1 :registration-cancellation-successful) + (:change1 :password-changed-successfully) + (:auth2 :authentication-successful) + (:bind_2 :bind-successful) + (:session_1 :session-initiated) + (t + (case type + (:get (warn "Don't know how to handle IQ get yet.")) + (t + (cond + ((member id '(info1 info2 info3)) + (make-disco-info (get-element object :query))) + ((member id '(items1 items2 items3 items4)) + (make-disco-items (get-element object :query))) + (t ;; Assuming an error (make-error (get-element object :error)))))))))) (defmethod xml-element-to-event ((connection connection)

1 0