/*

 * purple - Jabber Protocol Plugin

 *

 * Purple is the legal property of its developers, whose names are too numerous

 * to list here.  Please refer to the COPYRIGHT file distributed with this

 * source distribution.

 *

 * 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  02111-1301  USA

 *

 */

#include "internal.h"

#include "usertune.h"

#include "pep.h"

#include <string.h>

#include "internal.h"

#include "request.h"

#include "status.h"

static void jabber_tune_cb(JabberStream *js, const char *from, xmlnode *items) {

  /* it doesn't make sense to have more than one item here, so let's just pick the first one */

  xmlnode *item = xmlnode_get_child(items, "item");

  JabberBuddy *buddy = jabber_buddy_find(js, from, FALSE);

  xmlnode *tuneinfo, *tune;

  PurpleJabberTuneInfo tuneinfodata;

  JabberBuddyResource *resource;

  gboolean valid = FALSE;

  /* ignore the tune of people not on our buddy list */

  if (!buddy || !item)

    return;

  tuneinfodata.artist = NULL;

  tuneinfodata.title = NULL;

  tuneinfodata.album = NULL;

  tuneinfodata.track = NULL;

  tuneinfodata.time = -1;

  tuneinfodata.url = NULL;

  tune = xmlnode_get_child_with_namespace(item, "tune", "http://jabber.org/protocol/tune");

  if (!tune)

    return;

  resource = jabber_buddy_find_resource(buddy, NULL);

  if(!resource)

    return; /* huh? */

  for (tuneinfo = tune->child; tuneinfo; tuneinfo = tuneinfo->next) {

    if (tuneinfo->type == XMLNODE_TYPE_TAG) {

      if (purple_strequal(tuneinfo->name, "artist")) {

        if (tuneinfodata.artist == NULL) /* only pick the first one */

          tuneinfodata.artist = xmlnode_get_data(tuneinfo);

        valid = TRUE;

      } else if (purple_strequal(tuneinfo->name, "length")) {

        if (tuneinfodata.time == -1) {

          char *length = xmlnode_get_data(tuneinfo);

          if (length)

            tuneinfodata.time = strtol(length, NULL, 10);

          g_free(length);

          if (tuneinfodata.time > 0)

            valid = TRUE;

        }

      } else if (purple_strequal(tuneinfo->name, "source")) {

        if (tuneinfodata.album == NULL) /* only pick the first one */

          tuneinfodata.album = xmlnode_get_data(tuneinfo);

        valid = TRUE;

      } else if (purple_strequal(tuneinfo->name, "title")) {

        if (tuneinfodata.title == NULL) /* only pick the first one */

          tuneinfodata.title = xmlnode_get_data(tuneinfo);

        valid = TRUE;

      } else if (purple_strequal(tuneinfo->name, "track")) {

        if (tuneinfodata.track == NULL) /* only pick the first one */

          tuneinfodata.track = xmlnode_get_data(tuneinfo);

        valid = TRUE;

      } else if (purple_strequal(tuneinfo->name, "uri")) {

        if (tuneinfodata.url == NULL) /* only pick the first one */

          tuneinfodata.url = xmlnode_get_data(tuneinfo);

        valid = TRUE;

      }

    }

  }

  if (valid) {

    purple_prpl_got_user_status(js->gc->account, from, "tune",

        PURPLE_TUNE_ARTIST, tuneinfodata.artist,

        PURPLE_TUNE_TITLE, tuneinfodata.title,

        PURPLE_TUNE_ALBUM, tuneinfodata.album,

        PURPLE_TUNE_TRACK, tuneinfodata.track,

        PURPLE_TUNE_TIME, tuneinfodata.time,

        PURPLE_TUNE_URL, tuneinfodata.url, NULL);

  } else {

    purple_prpl_got_user_status_deactive(js->gc->account, from, "tune");

  }

  g_free(tuneinfodata.artist);

  g_free(tuneinfodata.title);

  g_free(tuneinfodata.album);

  g_free(tuneinfodata.track);

  g_free(tuneinfodata.url);

}

void jabber_tune_init(void) {

  jabber_add_feature("http://jabber.org/protocol/tune", jabber_pep_namespace_only_when_pep_enabled_cb);

  jabber_pep_register_handler("http://jabber.org/protocol/tune", jabber_tune_cb);

}

void jabber_tune_set(PurpleConnection *gc, const PurpleJabberTuneInfo *tuneinfo) {

  xmlnode *publish, *tunenode;

  JabberStream *js = gc->proto_data;

  publish = xmlnode_new("publish");

  xmlnode_set_attrib(publish,"node","http://jabber.org/protocol/tune");

  tunenode = xmlnode_new_child(xmlnode_new_child(publish, "item"), "tune");

  xmlnode_set_namespace(tunenode, "http://jabber.org/protocol/tune");

  if(tuneinfo) {

    if(tuneinfo->artist && tuneinfo->artist[0] != '\0')

      xmlnode_insert_data(xmlnode_new_child(tunenode, "artist"),tuneinfo->artist,-1);

    if(tuneinfo->title && tuneinfo->title[0] != '\0')

      xmlnode_insert_data(xmlnode_new_child(tunenode, "title"),tuneinfo->title,-1);

    if(tuneinfo->album && tuneinfo->album[0] != '\0')

      xmlnode_insert_data(xmlnode_new_child(tunenode, "source"),tuneinfo->album,-1);

    if(tuneinfo->url && tuneinfo->url[0] != '\0')

      xmlnode_insert_data(xmlnode_new_child(tunenode, "uri"),tuneinfo->url,-1);

    if(tuneinfo->time > 0) {

      char *length = g_strdup_printf("%d", tuneinfo->time);

      xmlnode_insert_data(xmlnode_new_child(tunenode, "length"),length,-1);

      g_free(length);

    }

    if(tuneinfo->track && tuneinfo->track[0] != '\0')

      xmlnode_insert_data(xmlnode_new_child(tunenode, "track"),tuneinfo->track,-1);

  }

  jabber_pep_publish(js, publish);

  /* publish is freed by jabber_pep_publish -> jabber_iq_send -> jabber_iq_free

     (yay for well-defined memory management rules) */

}