source: protocols/jabber/hipchat.c @ c0e4c22

/***************************************************************************\
*                                                                           *
*  BitlBee - An IRC to IM gateway                                           *
*  Jabber module - HipChat specific functions                               *
*                                                                           *
*  Copyright 2015 Xamarin Inc                                               *
*                                                                           *
*  This program is free software; you can redistribute it and/or modify     *
*  it under the terms of the GNU General Public License as published by     *
*  the Free Software Foundation; either version 2 of the License, or        *
*  (at your option) any later version.                                      *
*                                                                           *
*  This program is distributed in the hope that it will be useful,          *
*  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
*  GNU General Public License for more details.                             *
*                                                                           *
*  You should have received a copy of the GNU General Public License along  *
*  with this program; if not, write to the Free Software Foundation, Inc.,  *
*  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.              *
*                                                                           *
\***************************************************************************/

#include "jabber.h"

xt_status hipchat_handle_success(struct im_connection *ic, struct xt_node *node)
{
        struct jabber_data *jd = ic->proto_data;
        char *sep, *jid, *muc_host;

        jid = xt_find_attr(node, "jid");
        muc_host = xt_find_attr(node, "muc_host");

        sep = strchr(jid, '/');
        if (sep) {
                *sep = '\0';
        }

        jabber_set_me(ic, jid);
        imcb_log(ic, "Setting Hipchat JID to %s", jid);

        if (sep) {
                *sep = '/';
        }

        /* Hipchat's auth doesn't expect a restart here */
        jd->flags &= ~JFLAG_STREAM_RESTART;

        if (!jabber_get_roster(ic)) {
                return XT_ABORT;
        }
        if (!jabber_iq_disco_server(ic)) {
                return XT_ABORT;
        }
        if (!jabber_get_hipchat_profile(ic)) {
                return XT_ABORT;
        }
        if (!jabber_iq_disco_muc(ic, muc_host)) {
                return XT_ABORT;
        }

        return XT_HANDLED;
}

int jabber_get_hipchat_profile(struct im_connection *ic)
{
        struct jabber_data *jd = ic->proto_data;
        struct xt_node *node;
        int st;

        imcb_log(ic, "Fetching hipchat profile for %s", jd->me);

        node = xt_new_node("query", NULL, NULL);
        xt_add_attr(node, "xmlns", XMLNS_HIPCHAT_PROFILE);
        node = jabber_make_packet("iq", "get", jd->me, node);

        jabber_cache_add(ic, node, jabber_parse_hipchat_profile);
        st = jabber_write_packet(ic, node);

        return st;
}

xt_status jabber_parse_hipchat_profile(struct im_connection *ic, struct xt_node *node, struct xt_node *orig)
{
        struct xt_node *query, *name_node;

        //char *name;

        if (!(query = xt_find_node(node->children, "query"))) {
                imcb_log(ic, "Warning: Received NULL profile packet");
                return XT_ABORT;
        }

        name_node = xt_find_node(query->children, "name");
        if (!name_node) {
                imcb_log(ic, "Warning: Can't find real name in profile. Joining groupchats will not be possible.");
                return XT_ABORT;
        }

        set_setstr(&ic->acc->set, "display_name", name_node->text);
        return XT_HANDLED;

}

int jabber_iq_disco_muc(struct im_connection *ic, char *muc_server)
{
        struct xt_node *node;
        int st;

        imcb_log(ic, "Fetching MUC list");

        node = xt_new_node("query", NULL, NULL);
        xt_add_attr(node, "xmlns", XMLNS_DISCO_ITEMS);
        node = jabber_make_packet("iq", "get", muc_server, node);

        jabber_cache_add(ic, node, jabber_parse_muc_list);
        st = jabber_write_packet(ic, node);

        return st;
}

xt_status jabber_parse_muc_list(struct im_connection *ic, struct xt_node *node, struct xt_node *orig)
{
        struct xt_node *query, *c;

        if (!(query = xt_find_node(node->children, "query"))) {
                imcb_log(ic, "Warning: Received NULL MUC list packet");
                return XT_HANDLED;
        }

        c = query->children;
        while ((c = xt_find_node(c, "item"))) {
                struct xt_node *c2;
                struct groupchat *gc;
                struct irc_channel *ircc;
                char *topic = NULL;
                gboolean new_room = FALSE;
                char *jid = xt_find_attr(c, "jid");
                char *name = xt_find_attr(c, "name");

                imcb_log(ic, "Debug: adding MUC to channel list: %s - '%s'", jid, name);

                if ((c2 = xt_find_node_by_attr(c->children, "x", "xmlns", XMLNS_HIPCHAT_MUC)) &&
                    (c2 = xt_find_node(c2->children, "topic"))) {
                        topic = c2->text;
                }

                gc = bee_chat_by_title(ic->bee, ic, jid);
                if (!gc) {
                        gc = imcb_chat_new(ic, jid);
                        new_room = TRUE;
                }
                imcb_chat_name_hint(gc, name);
                imcb_chat_topic(gc, NULL, topic, 0);

                ircc = gc->ui_data;
                set_setstr(&ircc->set, "account", ic->acc->tag);
                set_setstr(&ircc->set, "room", jid);
                set_setstr(&ircc->set, "chat_type", "room");

                if (new_room) {
                        /* This cleans everything but leaves the irc channel around,
                         * since it just graduated to a room.*/
                        imcb_chat_free(gc);
                }

                c = c->next;
        }
        return XT_HANDLED;

}