From eenge at common-lisp.net  Mon Aug  7 13:34:50 2006
From: eenge at common-lisp.net (eenge)
Date: Mon,  7 Aug 2006 09:34:50 -0400 (EDT)
Subject: [cl-xmpp-cvs] CVS public_html
Message-ID: <20060807133450.7CB4B1A007@common-lisp.net>

Update of /project/cl-xmpp/cvsroot/public_html
In directory clnet:/home/eenge/public_html/cl-xmpp

Modified Files:
	index.shtml 
Log Message:
ftp -> http

--- /project/cl-xmpp/cvsroot/public_html/index.shtml	2006/03/29 16:40:50	1.1
+++ /project/cl-xmpp/cvsroot/public_html/index.shtml	2006/08/07 13:34:50	1.2
@@ -86,7 +86,7 @@
 	<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">
+	  <tt><a href="http://common-lisp.net/project/cl-xmpp/cl-xmpp_latest.tar.gz">
 	      cl-xmpp_latest.tar.gz</a>
 	  </tt>.</p>
 	



From jstecklina at common-lisp.net  Mon Aug 28 21:17:11 2006
From: jstecklina at common-lisp.net (jstecklina)
Date: Mon, 28 Aug 2006 17:17:11 -0400 (EDT)
Subject: [cl-xmpp-cvs] CVS cl-xmpp
Message-ID: <20060828211711.B1D7F17042@common-lisp.net>

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory clnet:/tmp/cvs-serv20851

Modified Files:
	cl-xmpp.lisp 
Log Message:
Added status messages and priority to PRESENCE.


--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2006/05/12 17:45:49	1.27
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2006/08/28 21:17:08	1.28
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.27 2006/05/12 17:45:49 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.28 2006/08/28 21:17:08 jstecklina Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -487,13 +487,22 @@
 
 (add-auth-method :digest-md5 '%digest-md5-auth%)
 
-(defmethod presence ((connection connection) &key type to)
+(defmethod presence ((connection connection) &key type to status show priority)
   (with-xml-output (connection)
    (cxml:with-element "presence"
     (when type
       (cxml:attribute "type" type))
     (when to
-      (cxml:attribute "to" to)))))
+      (cxml:attribute "to" to))
+    (when status
+      (cxml:with-element "status"
+	(cxml:text status)))
+    (when show
+      (cxml:with-element "show"
+	(cxml:text show)))
+    (when priority
+      (cxml:with-element "priority"
+	(cxml:text (format nil "~A" priority)))))))
    
 (defmethod message ((connection connection) to body &key id (type :chat))
   (with-xml-output (connection)