/* See xmpp.c file for copyright and license details. */

static void decline_invitation(event_muc_invitation *invitation, char *reason)

  // cut and paste from xmpp_room_invite

  LmMessage *m;

  LmMessageNode *x, *y;

  if (!invitation) return;

  if (!invitation->to || !invitation->from) return;

  m = lm_message_new(invitation->to, LM_MESSAGE_TYPE_MESSAGE);

  x = lm_message_node_add_child(m->node, "x", NULL);

  lm_message_node_set_attribute(x, "xmlns",

                                "http://jabber.org/protocol/muc#user");

  y = lm_message_node_add_child(x, "decline", NULL);

  lm_message_node_set_attribute(y, "to", invitation->from);

  if (reason)

    lm_message_node_add_child(y, "reason", reason);

  lm_connection_send(lconnection, m, NULL);

  lm_message_unref(m);

static int evscallback_invitation(eviqs *evp, guint evcontext)

  event_muc_invitation *invitation = evp->data;

  // Sanity check

  if (!invitation) {

    // Shouldn't happen.

    scr_LogPrint(LPRINT_LOGNORM, "Error in evs callback.");

    return 0;

  if (evcontext == EVS_CONTEXT_TIMEOUT) {

    scr_LogPrint(LPRINT_LOGNORM, "Event %s timed out, cancelled.", evp->id);

    goto evscallback_invitation_free;

  if (evcontext == EVS_CONTEXT_CANCEL) {

    scr_LogPrint(LPRINT_LOGNORM, "Event %s cancelled.", evp->id);

    goto evscallback_invitation_free;

  if (!(evcontext & EVS_CONTEXT_USER))

    goto evscallback_invitation_free;

  // Ok, let's work now.

  // evcontext: 0, 1 == reject, accept

  if (evcontext & ~EVS_CONTEXT_USER) {

    char *nickname = default_muc_nickname(invitation->to);

    xmpp_room_join(invitation->to, nickname, invitation->passwd);

    g_free(nickname);

  } else {

    scr_LogPrint(LPRINT_LOGNORM, "Invitation to %s refused.", invitation->to);

    decline_invitation(invitation, NULL);

evscallback_invitation_free:

  g_free(invitation->to);

  g_free(invitation->from);

  g_free(invitation->passwd);

  g_free(invitation->reason);

  g_free(invitation);

  evp->data = NULL;

  return 0;

void xmpp_room_join(const char *room, const char *nickname, const char *passwd)

  LmMessage *x;

  LmMessageNode *y;

  if (!lm_connection_is_authenticated(lconnection) || !room) return;

  x = lm_message_new(roomid, LM_MESSAGE_TYPE_PRESENCE);

  x = lm_message_new_presence(mystatus, roomid, mystatusmsg);

  y = lm_message_node_add_child(x->node, "x", NULL);

  lm_message_node_set_attribute(y, "xmlns", "http://jabber.org/protocol/muc");

  if (passwd)

    lm_message_node_add_child(y, "password", passwd);

  lm_connection_send(lconnection, x, NULL);

  lm_message_unref(x);

// Invite a user to a MUC room

// reason can be null.

void xmpp_room_invite(const char *room, const char *fjid, const char *reason)

  LmMessage *msg;

  LmMessageNode *x, *y;

  if (!lm_connection_is_authenticated(lconnection) || !room || !fjid) return;

  msg = lm_message_new(room, LM_MESSAGE_TYPE_MESSAGE);

  x = lm_message_node_add_child(msg->node, "x", NULL);

  lm_message_node_set_attribute(x, "xmlns",

                                "http://jabber.org/protocol/muc#user");

  y = lm_message_node_add_child(x, "invite", NULL);

  lm_message_node_set_attribute(y, "to", fjid);

  if (reason)

    lm_message_node_add_child(y, "reason", reason);

  lm_connection_send(lconnection, msg, NULL);

  lm_message_unref(msg);

int xmpp_room_setattrib(const char *roomid, const char *fjid,

                        const char *nick, struct role_affil ra,

                        const char *reason)

  LmMessage *iq;

  LmMessageNode *query, *x;

  if (!lm_connection_is_authenticated(lconnection) || !roomid) return 1;

  iq = lm_message_new_with_sub_type(roomid, LM_MESSAGE_TYPE_IQ,

                                    LM_MESSAGE_SUB_TYPE_SET);

  query = lm_message_node_add_child(iq->node, "query", NULL);

  lm_message_node_set_attribute(query, "xmlns",

                                "http://jabber.org/protocol/muc#admin");

  x = lm_message_node_add_child(query, "item", NULL);

    lm_message_node_set_attribute(x, "jid", fjid);

    lm_message_node_set_attribute(x, "nick", nick);

    lm_message_node_set_attribute(x, "affiliation", straffil[ra.val.affil]);

    lm_message_node_set_attribute(x, "role", strrole[ra.val.role]);

  if (reason)

    lm_message_node_add_child(x, "reason", reason);

  lm_connection_send(lconnection, iq, NULL);

  lm_message_unref(iq);

// Unlock a MUC room

void xmpp_room_unlock(const char *room)

  LmMessageNode *y, *z;

  LmMessage *iq;

  if (!lm_connection_is_authenticated(lconnection) || !room) return;

  iq = lm_message_new_with_sub_type(room, LM_MESSAGE_TYPE_IQ,

                                    LM_MESSAGE_SUB_TYPE_SET);

  lm_message_node_set_attribute(iq->node, "xmlns",

                                "http://jabber.org/protocol/muc#owner");

  y = lm_message_node_add_child(iq->node, "query", NULL);

  z = lm_message_node_add_child(y, "x", NULL);

  lm_message_node_set_attribute(z, "xmlns", "jabber:x:data");

  lm_message_node_set_attribute(z, "type", "submit");

  lm_connection_send(lconnection, iq, NULL);

  lm_message_unref(iq);

// Destroy a MUC room

// room syntax: "room@server"

void xmpp_room_destroy(const char *room, const char *venue, const char *reason)

  LmMessage *iq;

  LmMessageNode *query, *x;

  if (!lm_connection_is_authenticated(lconnection) || !room) return;

  iq = lm_message_new_with_sub_type(room, LM_MESSAGE_TYPE_IQ,

                                    LM_MESSAGE_SUB_TYPE_SET);

  query = lm_message_node_add_child(iq->node, "query", NULL);

  lm_message_node_set_attribute(query, "xmlns",

                                "http://jabber.org/protocol/muc#owner");

  x = lm_message_node_add_child(query, "destroy", NULL);

  if (venue && *venue)

    lm_message_node_set_attribute(x, "jid", venue);

  if (reason)

    lm_message_node_add_child(x, "reason", reason);

  lm_connection_send(lconnection, iq, NULL);

  lm_message_unref(iq);

static void muc_get_item_info(const char *from, LmMessageNode *xmldata,

  LmMessageNode *y, *z;

  const char *p;

  y = lm_message_node_find_child(xmldata, "item");

  p = lm_message_node_get_attribute(y, "affiliation");

  p = lm_message_node_get_attribute(y, "role");

  *mbjid = lm_message_node_get_attribute(y, "jid");

  *mbnick = lm_message_node_get_attribute(y, "nick");

  *reason = lm_message_node_get_child_value(y, "reason");

  z = lm_message_node_find_child(y, "actor");

    *actorjid = lm_message_node_get_attribute(z, "jid");

static void handle_muc_presence(const char *from, LmMessageNode *xmldata,

                                enum imstatus ust, const char *ustmsg,

  LmMessageNode *y;

  const char *p;