c36d61687a
- Groupchats now support XEP-0313 Message Archive Management (MAM)!
- This uses the history stored in the sqlite database, as implemented in the
previous commits.
- The QUERY-ARCHIVE megafunction builds up a SQL query to get stuff out of the
database, in accordance with provided MAM + RSM parameters.
- Notably, various hacks are in here that need to be fixed.
- IQ 'set's are now processed, which means we needed to add a stub impl of
Schrödinger's Chat so people don't drop out of MUCs all of a sudden.
(Well, it just responds to every ping indiscriminately...)
- Oh also the new presence subscription stuff from earlier is borked.
31 lines
1.6 KiB
Common Lisp
31 lines
1.6 KiB
Common Lisp
(in-package :whatsxmpp)
|
|
|
|
(defparameter +streams-ns+ "urn:ietf:params:xml:ns:xmpp-streams")
|
|
(defparameter +stanzas-ns+ "urn:ietf:params:xml:ns:xmpp-stanzas")
|
|
(defparameter +component-ns+ "jabber:component:accept")
|
|
(defparameter +disco-info-ns+ "http://jabber.org/protocol/disco#info")
|
|
(defparameter +disco-items-ns+ "http://jabber.org/protocol/disco#items")
|
|
(defparameter +muc-ns+ "http://jabber.org/protocol/muc")
|
|
(defparameter +file-upload-ns+ "urn:xmpp:http:upload:0")
|
|
(defparameter +oob-ns+ "jabber:x:oob")
|
|
(defparameter +chat-markers-ns+ "urn:xmpp:chat-markers:0")
|
|
(defparameter +delivery-delay-ns+ "urn:xmpp:delay")
|
|
(defparameter +vcard-temp-ns+ "vcard-temp")
|
|
(defparameter +vcard-avatar-ns+ "vcard-temp:x:update")
|
|
(defparameter +nick-ns+ "http://jabber.org/protocol/nick")
|
|
(defparameter +roster-exchange-ns+ "http://jabber.org/protocol/rosterx")
|
|
(defparameter +delivery-receipts-ns+ "urn:xmpp:receipts")
|
|
(defparameter +muc-invite-ns+ "jabber:x:conference")
|
|
(defparameter +muc-stable-id-ns+ "http://jabber.org/protocol/muc#stable_id")
|
|
(defparameter +muc-user-ns+ "http://jabber.org/protocol/muc#user")
|
|
(defparameter +unique-stanzas-ns+ "urn:xmpp:sid:0")
|
|
(defparameter +chat-states-ns+ "http://jabber.org/protocol/chatstates")
|
|
(defparameter +hints-ns+ "urn:xmpp:hints")
|
|
(defparameter +entity-caps-ns+ "http://jabber.org/protocol/caps")
|
|
(defparameter +mam-ns+ "urn:xmpp:mam:2")
|
|
(defparameter +rsm-ns+ "http://jabber.org/protocol/rsm")
|
|
(defparameter +data-forms-ns+ "jabber:x:data")
|
|
(defparameter +forwarded-ns+ "urn:xmpp:forward:0")
|
|
(defparameter +client-ns+ "jabber:client")
|
|
(defparameter +ping-ns+ "urn:xmpp:ping")
|