4 * Handle XMPP presence exchanges
6 * Copyright (c) 2007 by Art Cancro
7 * This code is released under the terms of the GNU General Public License.
19 #include <sys/types.h>
21 #if TIME_WITH_SYS_TIME
22 # include <sys/time.h>
26 # include <sys/time.h>
37 #include <libcitadel.h>
40 #include "citserver.h"
43 #include "internet_addressing.h"
45 #include "ctdl_module.h"
46 #include "serv_xmpp.h"
50 * Initial dump of the entire wholist
52 void jabber_wholist_presence_dump(void)
54 struct CitContext *cptr = NULL;
57 int aide = (CC->user.axlevel >= 6);
59 cptr = CtdlGetContextArray(&nContexts);
61 return ; /** FIXME: Does jabber need to send something to maintain the protocol? */
63 for (i=0; i<nContexts; i++) {
64 if (cptr[i].logged_in) {
66 (((cptr[i].cs_flags&CS_STEALTH)==0) || (aide)) /* aides see everyone */
67 && (cptr[i].user.usernum != CC->user.usernum) /* don't show myself */
68 && (cptr[i].can_receive_im) /* IM-capable session */
70 cprintf("<presence type=\"available\" from=\"%s\"></presence>",
71 cptr[i].cs_inet_email);
81 * When a user logs in or out of the local Citadel system, notify all Jabber sessions
84 void xmpp_presence_notify(char *presence_jid, int event_type) {
85 struct CitContext *cptr;
86 static int unsolicited_id;
87 int visible_sessions = 0;
89 int aide = (CC->user.axlevel >= 6);
91 if (IsEmptyStr(presence_jid)) return;
93 cptr = CtdlGetContextArray(&nContexts);
95 return ; /** FIXME: Does jabber need to send something to maintain the protocol? */
97 /* Count the visible sessions for this user */
98 for (i=0; i<nContexts; i++) {
99 if (cptr[i].logged_in) {
101 (!strcasecmp(cptr[i].cs_inet_email, presence_jid))
102 && (((cptr[i].cs_flags&CS_STEALTH)==0) || (aide))
103 && (cptr[i].can_receive_im)
110 CtdlLogPrintf(CTDL_DEBUG, "%d sessions for <%s> are now visible to session %d\n",
111 visible_sessions, presence_jid, CC->cs_pid);
113 if ( (event_type == XMPP_EVT_LOGIN) && (visible_sessions == 1) ) {
115 CtdlLogPrintf(CTDL_DEBUG, "Telling session %d that <%s> logged in\n", CC->cs_pid, presence_jid);
117 /* Do an unsolicited roster update that adds a new contact. */
118 for (i=0; i<nContexts; i++) {
119 if (cptr[i].logged_in) {
120 if (!strcasecmp(cptr[i].cs_inet_email, presence_jid)) {
121 cprintf("<iq id=\"unsolicited_%x\" type=\"result\">",
123 cprintf("<query xmlns=\"jabber:iq:roster\">");
124 jabber_roster_item(&cptr[i]);
131 /* Transmit presence information */
132 cprintf("<presence type=\"available\" from=\"%s\"></presence>", presence_jid);
135 if (visible_sessions == 0) {
136 CtdlLogPrintf(CTDL_DEBUG, "Telling session %d that <%s> logged out\n", CC->cs_pid, presence_jid);
138 /* Transmit non-presence information */
139 cprintf("<presence type=\"unavailable\" from=\"%s\"></presence>", presence_jid);
140 cprintf("<presence type=\"unsubscribed\" from=\"%s\"></presence>", presence_jid);
142 /* Do an unsolicited roster update that deletes the contact. */
143 cprintf("<iq id=\"unsolicited_%x\" type=\"result\">", ++unsolicited_id);
144 cprintf("<query xmlns=\"jabber:iq:roster\">");
145 cprintf("<item jid=\"%s\" subscription=\"remove\">", presence_jid);
146 cprintf("<group>%s</group>", config.c_humannode);