static xt_status jabber_pkt_message_normal(struct xt_node *node, gpointer data, gboolean carbons_sent)
{
struct im_connection *ic = data;
struct jabber_data *jd = ic->proto_data;
char *from = xt_find_attr(node, carbons_sent ? "to" : "from");
char *type = xt_find_attr(node, "type");
char *id = xt_find_attr(node, "id");
struct xt_node *body = xt_find_node(node->children, "body"), *c;
struct xt_node *request = xt_find_node(node->children, "request");
struct jabber_buddy *bud = NULL;
char *s, *room = NULL, *reason = NULL;
if (!from) {
return XT_HANDLED; /* Consider this packet corrupted. */
}
/* try to detect hipchat's own version of self-messages */
if (jd->flags & JFLAG_HIPCHAT) {
struct xt_node *c;
if ((c = xt_find_node_by_attr(node->children, "delay", "xmlns", XMLNS_DELAY)) &&
(s = xt_find_attr(c, "from_jid")) &&
jabber_compare_jid(s, jd->me)) {
carbons_sent = TRUE;
}
}
if (request && id && g_strcmp0(type, "groupchat") != 0 && !carbons_sent) {
/* Send a message receipt (XEP-0184), looking like this:
* <message from='...' id='...' to='...'>
* <received xmlns='urn:xmpp:receipts' id='richard2-4.1.247'/>
* </message>
*
* MUC messages are excluded, since receipts aren't supposed to be sent over MUCs
* (XEP-0184 section 5.3) and replying to those may result in 'forbidden' errors.
*/
struct xt_node *received, *receipt;
received = xt_new_node("received", NULL, NULL);
xt_add_attr(received, "xmlns", XMLNS_RECEIPTS);
xt_add_attr(received, "id", id);
receipt = jabber_make_packet("message", NULL, from, received);
jabber_write_packet(ic, receipt);
xt_free_node(receipt);
}
bud = jabber_buddy_by_jid(ic, from, GET_BUDDY_EXACT);
if (type && strcmp(type, "error") == 0) {
/* Handle type=error packet. */
} else if (type && from && strcmp(type, "groupchat") == 0) {
jabber_chat_pkt_message(ic, bud, node);
} else { /* "chat", "normal", "headline", no-type or whatever. Should all be pretty similar. */
GString *fullmsg = g_string_new("");
for (c = node->children; (c = xt_find_node(c, "x")); c = c->next) {
char *ns = xt_find_attr(c, "xmlns");
struct xt_node *inv;
if (ns && strcmp(ns, XMLNS_MUC_USER) == 0 &&
(inv = xt_find_node(c->children, "invite"))) {
/* This is an invitation. Set some vars which
will be passed to imcb_chat_invite() below. */
room = from;
if ((from = xt_find_attr(inv, "from")) == NULL) {
from = room;
}
if ((inv = xt_find_node(inv->children, "reason")) && inv->text_len > 0) {
reason = inv->text;
}
}
}
if ((s = strchr(from, '/'))) {
if (bud) {
bud->last_msg = time(NULL);
from = bud->ext_jid ? bud->ext_jid : bud->bare_jid;
} else {
*s = 0; /* We need to generate a bare JID now. */
}
}
if (type && strcmp(type, "headline") == 0) {
if ((c = xt_find_node(node->children, "subject")) && c->text_len > 0) {
g_string_append_printf(fullmsg, "Headline: %s\n", c->text);
}
/* <x xmlns="jabber:x:oob"><url>http://....</url></x> can contain a URL, it seems. */
for (c = node->children; c; c = c->next) {
struct xt_node *url;
if ((url = xt_find_node(c->children, "url")) && url->text_len > 0) {
g_string_append_printf(fullmsg, "URL: %s\n", url->text);
}
}
} else if ((c = xt_find_node(node->children, "subject")) && c->text_len > 0 &&
(!bud || !(bud->flags & JBFLAG_HIDE_SUBJECT))) {
g_string_append_printf(fullmsg, "<< \002BitlBee\002 - Message with subject: %s >>\n", c->text);
if (bud) {
bud->flags |= JBFLAG_HIDE_SUBJECT;
}
} else if (bud && !c) {
/* Yeah, possibly we're hiding changes to this field now. But nobody uses
this for anything useful anyway, except GMail when people reply to an
e-mail via chat, repeating the same subject all the time. I don't want
to have to remember full subject strings for everyone. */
bud->flags &= ~JBFLAG_HIDE_SUBJECT;
}
if (body && body->text_len > 0) { /* Could be just a typing notification. */
fullmsg = g_string_append(fullmsg, body->text);
}
if (fullmsg->len > 0) {
imcb_buddy_msg(ic, from, fullmsg->str,
carbons_sent ? OPT_SELFMESSAGE : 0, jabber_get_timestamp(node));
}
if (room) {
imcb_chat_invite(ic, room, from, reason);
}
g_string_free(fullmsg, TRUE);
/* Handling of incoming typing notifications. */
if (bud == NULL || carbons_sent) {
/* Can't handle these for unknown buddies.
And ignore them if it's just carbons */
} else if (xt_find_node(node->children, "composing")) {
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing(ic, from, OPT_TYPING);
}
else if (xt_find_node(node->children, "active")) {
bud->flags |= JBFLAG_DOES_XEP85;
/* No need to send a "stopped typing" signal when there's a message. */
if (body == NULL) {
imcb_buddy_typing(ic, from, 0);
}
} else if (xt_find_node(node->children, "paused")) {
bud->flags |= JBFLAG_DOES_XEP85;
imcb_buddy_typing(ic, from, OPT_THINKING);
}
if (s) {
*s = '/'; /* And convert it back to a full JID. */
}
}
return XT_HANDLED;
}
/* Not really the same syntax as the normal pkt_ functions, but this isn't
called by the xmltree parser directly and this way I can add some extra
parameters so we won't have to repeat too many things done by the caller
already. */
void jabber_chat_pkt_presence(struct im_connection *ic, struct jabber_buddy *bud, struct xt_node *node)
{
struct groupchat *chat;
struct xt_node *c;
char *type = xt_find_attr(node, "type");
struct jabber_data *jd = ic->proto_data;
struct jabber_chat *jc;
char *s;
if ((chat = jabber_chat_by_jid(ic, bud->bare_jid)) == NULL) {
/* How could this happen?? We could do kill( self, 11 )
now or just wait for the OS to do it. :-) */
return;
}
jc = chat->data;
if (type == NULL && !(bud->flags & JBFLAG_IS_CHATROOM)) {
bud->flags |= JBFLAG_IS_CHATROOM;
/* If this one wasn't set yet, this buddy just joined the chat.
Slightly hackish way of finding out eh? ;-) */
/* This is pretty messy... Here it sets ext_jid to the real
JID of the participant. Works for non-anonymized channels.
Might break if someone joins a chat twice, though. */
for (c = node->children; (c = xt_find_node(c, "x")); c = c->next) {
if ((s = xt_find_attr(c, "xmlns")) &&
(strcmp(s, XMLNS_MUC_USER) == 0)) {
struct xt_node *item;
item = xt_find_node(c->children, "item");
if ((s = xt_find_attr(item, "jid"))) {
/* Yay, found what we need. :-) */
bud->ext_jid = jabber_normalize(s);
break;
}
}
}
/* Make up some other handle, if necessary. */
if (bud->ext_jid == NULL) {
if (bud == jc->me) {
bud->ext_jid = g_strdup(jd->me);
} else {
int i;
/* Don't want the nick to be at the end, so let's
think of some slightly different notation to use
for anonymous groupchat participants in BitlBee. */
bud->ext_jid = g_strdup_printf("%s=%s", bud->resource, bud->bare_jid);
/* And strip any unwanted characters. */
for (i = 0; bud->resource[i]; i++) {
if (bud->ext_jid[i] == '=' || bud->ext_jid[i] == '@') {
bud->ext_jid[i] = '_';
}
}
/* Some program-specific restrictions. */
imcb_clean_handle(ic, bud->ext_jid);
}
bud->flags |= JBFLAG_IS_ANONYMOUS;
}
if (bud != jc->me && bud->flags & JBFLAG_IS_ANONYMOUS) {
/* If JIDs are anonymized, add them to the local
list for the duration of this chat. */
imcb_add_buddy(ic, bud->ext_jid, NULL);
imcb_buddy_nick_hint(ic, bud->ext_jid, bud->resource);
}
if (bud == jc->me && jc->invite != NULL) {
char *msg = g_strdup_printf("Please join me in room %s", jc->name);
jabber_chat_invite(chat, jc->invite, msg);
g_free(jc->invite);
g_free(msg);
jc->invite = NULL;
}
s = strchr(bud->ext_jid, '/');
if (s) {
*s = 0; /* Should NEVER be NULL, but who knows... */
}
imcb_chat_add_buddy(chat, bud->ext_jid);
if (s) {
*s = '/';
}
} else if (type) { /* type can only be NULL or "unavailable" in this function */
if ((bud->flags & JBFLAG_IS_CHATROOM) && bud->ext_jid) {
char *reason = NULL;
char *status = NULL;
char *status_text = NULL;
if ((c = xt_find_node_by_attr(node->children, "x", "xmlns", XMLNS_MUC_USER))) {
struct xt_node *c2 = c->children;
while ((c2 = xt_find_node(c2, "status"))) {
char *code = xt_find_attr(c2, "code");
if (g_strcmp0(code, "301") == 0) {
status = "Banned";
break;
} else if (g_strcmp0(code, "303") == 0) {
/* This could be handled in a cleverer way,
* but let's just show a literal part/join for now */
status = "Changing nicks";
break;
} else if (g_strcmp0(code, "307") == 0) {
status = "Kicked";
break;
}
c2 = c2->next;
}
/* Sometimes the status message is in presence/x/item/reason */
if ((c2 = xt_find_path(c, "item/reason")) && c2->text && c2->text_len) {
status_text = c2->text;
}
}
/* Sometimes the status message is right inside <presence> */
if ((c = xt_find_node(node->children, "status")) && c->text && c->text_len) {
status_text = c->text;
}
if (status_text && status) {
reason = g_strdup_printf("%s: %s", status, status_text);
} else {
reason = g_strdup(status_text ? : status);
}
s = strchr(bud->ext_jid, '/');
if (s) {
*s = 0;
}
imcb_chat_remove_buddy(chat, bud->ext_jid, reason);
if (bud != jc->me && bud->flags & JBFLAG_IS_ANONYMOUS) {
imcb_remove_buddy(ic, bud->ext_jid, reason);
}
if (s) {
*s = '/';
}
g_free(reason);
}
if (bud == jc->me) {
jabber_chat_free(chat);
}
}
