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>
36 #include <libcitadel.h>
39 #include "citserver.h"
42 #include "internet_addressing.h"
44 #include "ctdl_module.h"
48 #include "serv_xmpp.h"
52 * Initial dump of the entire wholist
54 void jabber_wholist_presence_dump(void)
56 struct CitContext *cptr = NULL;
57 int aide = (CC->user.axlevel >= 6);
59 for (cptr = ContextList; cptr != NULL; cptr = cptr->next) {
61 (((cptr->cs_flags&CS_STEALTH)==0) || (aide)) /* aides can see everyone */
62 && (cptr->user.usernum != CC->user.usernum) /* don't tell me about myself */
64 cprintf("<presence type=\"available\" from=\"%s\"></presence>", cptr->cs_inet_email);
72 * When a user logs in or out of the local Citadel system, notify all Jabber sessions
75 void xmpp_presence_notify(char *presence_jid, char *presence_type) {
76 struct CitContext *cptr;
77 static int unsolicited_id;
78 int visible_sessions = 0;
79 int aide = (CC->user.axlevel >= 6);
81 if (IsEmptyStr(presence_jid)) return;
83 /* Count the visible sessions for this user */
84 for (cptr = ContextList; cptr != NULL; cptr = cptr->next) {
85 if ( (!strcasecmp(cptr->cs_inet_email, presence_jid))
86 && (((cptr->cs_flags&CS_STEALTH)==0) || (aide))
92 lprintf(CTDL_DEBUG, "%d sessions for <%s> are now visible to session %d\n",
93 visible_sessions, presence_jid, CC->cs_pid);
95 if ( (strcasecmp(presence_type, "unavailable")) && (visible_sessions == 1) ) {
96 lprintf(CTDL_DEBUG, "Telling session %d that <%s> logged in\n", CC->cs_pid, presence_jid);
98 /* Do an unsolicited roster update that adds a new contact. */
99 for (cptr = ContextList; cptr != NULL; cptr = cptr->next) {
100 if (!strcasecmp(cptr->cs_inet_email, presence_jid)) {
101 cprintf("<iq id=\"unsolicited_%x\" type=\"result\">", ++unsolicited_id);
102 cprintf("<query xmlns=\"jabber:iq:roster\">");
103 jabber_roster_item(cptr);
109 /* Transmit presence information */
110 cprintf("<presence type=\"%s\" from=\"%s\"></presence>", presence_type, presence_jid);
113 if ( (!strcasecmp(presence_type, "unavailable")) && (visible_sessions == 0) ) {
114 lprintf(CTDL_DEBUG, "Telling session %d that <%s> logged out\n", CC->cs_pid, presence_jid);
116 /* Transmit non-presence information */
117 cprintf("<presence type=\"%s\" from=\"%s\"></presence>", presence_type, presence_jid);
119 /* Do an unsolicited roster update that deletes the contact. */
120 cprintf("<iq id=\"unsolicited_%x\" type=\"result\">", ++unsolicited_id);
121 cprintf("<query xmlns=\"jabber:iq:roster\">");
122 cprintf("<item jid=\"%s\" subscription=\"remove\">", presence_jid);
123 cprintf("<group>%s</group>", config.c_humannode);
131 #endif /* HAVE_EXPAT */