/*
 * gaim
 *
 * Gaim 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

#include "internal.h"
#include "prpl.h"
#include "util.h"
#include "debug.h"

#include "yahoo_friend.h"

static YahooFriend *yahoo_friend_new(void)
{
	YahooFriend *ret;

	ret = g_new0(YahooFriend, 1);
	ret->status = YAHOO_STATUS_OFFLINE;
	ret->stealth = YAHOO_STEALTH_DEFAULT;

	return ret;
}

YahooFriend *yahoo_friend_find(GaimConnection *gc, const char *name)
{
	struct yahoo_data *yd;
	const char *norm;

	g_return_val_if_fail(gc != NULL, NULL);
	g_return_val_if_fail(gc->proto_data != NULL, NULL);

	yd = gc->proto_data;
	norm = gaim_normalize(gaim_connection_get_account(gc), name);

	return g_hash_table_lookup(yd->friends, norm);
}

YahooFriend *yahoo_friend_find_or_new(GaimConnection *gc, const char *name)
{
	YahooFriend *f;
	struct yahoo_data *yd;
	const char *norm;

	g_return_val_if_fail(gc != NULL, NULL);
	g_return_val_if_fail(gc->proto_data != NULL, NULL);

	yd = gc->proto_data;
	norm = gaim_normalize(gaim_connection_get_account(gc), name);

	f = g_hash_table_lookup(yd->friends, norm);
	if (!f) {
		f = yahoo_friend_new();
		g_hash_table_insert(yd->friends, g_strdup(norm), f);
	}

	return f;
}

void yahoo_friend_set_ip(YahooFriend *f, const char *ip)
{
	if (f->ip)
		g_free(f->ip);
	f->ip = g_strdup(ip);
}

const char *yahoo_friend_get_ip(YahooFriend *f)
{
	return f->ip;
}

void yahoo_friend_set_game(YahooFriend *f, const char *game)
{
	if (f->game)
		g_free(f->game);

	if (game)
		f->game = g_strdup(game);
	else
		f->game = NULL;
}

const char *yahoo_friend_get_game(YahooFriend *f)
{
	return f->game;
}

void yahoo_friend_set_status_message(YahooFriend *f, char *msg)
{
	if (f->msg)
		g_free(f->msg);

	f->msg = msg;
}

const char *yahoo_friend_get_status_message(YahooFriend *f)
{
	return f->msg;
}

void yahoo_friend_set_buddy_icon_need_request(YahooFriend *f, gboolean needs)
{
	f->bicon_sent_request = !needs;
}

gboolean yahoo_friend_get_buddy_icon_need_request(YahooFriend *f)
{
	return !f->bicon_sent_request;
}

void yahoo_friend_free(gpointer p)
{
	YahooFriend *f = p;
	if (f->msg)
		g_free(f->msg);
	if (f->game)
		g_free(f->game);
	if (f->ip)
		g_free(f->ip);
	g_free(f);
}

void yahoo_process_stealth(GaimConnection *gc, struct yahoo_packet *pkt)
{
	GSList *l = pkt->hash;
	YahooFriend *f;
	char *who = NULL;
	int value = 0;

	while (l) {
		struct yahoo_pair *pair = l->data;

		switch (pair->key) {
			case 7:
				who = pair->value;
				break;
			case 31:
				value = strtol(pair->value, NULL, 10);
				break;
		}

		l = l->next;
	}

	if (value != 1 && value != 2) {
		gaim_debug_error("yahoo", "Received unknown value for stealth key: %d\n", value);
		return;
	}

	g_return_if_fail(who != NULL);

	f = yahoo_friend_find(gc, who);
	if (!f)
		return;

	if (pkt->service == YAHOO_SERVICE_STEALTH_PERM) {
		gaim_debug_info("yahoo", "Setting permanent stealth for %s to %d.\n", who, (value == 1));
		/* If setting from perm offline to online when in invisible status,
		 * this has already been taken care of (when the temp status changed) */
		if (value == 2 && f->stealth == YAHOO_STEALTH_ONLINE) {
		} else {
			if (value == 1) /* Setting Perm offline */
				f->stealth = YAHOO_STEALTH_PERM_OFFLINE;
			else
				f->stealth = YAHOO_STEALTH_DEFAULT;
		}
	} else {
		gaim_debug_info("yahoo", "Setting session stealth for %s to %d.\n", who, (value == 1));
		if (value == 1)
			f->stealth = YAHOO_STEALTH_ONLINE;
		else
			f->stealth = YAHOO_STEALTH_DEFAULT;
	}
}

void yahoo_friend_update_stealth(GaimConnection *gc, const char *name,
		YahooStealthVisibility stealth)
{
	struct yahoo_data *yd = gc->proto_data;
	struct yahoo_packet *pkt = NULL;
	YahooFriend *f;

	if (!yd->logged_in)
		return;

	f = yahoo_friend_find(gc, name);
	if (!f)
		return;

	/* No need to change the value if it is already correct */
	if (f->stealth == stealth) {
		gaim_debug_info("yahoo", "Not setting stealth because there are no changes.\n");
		return;
	}

	if (stealth == YAHOO_STEALTH_PERM_OFFLINE) {
		pkt = yahoo_packet_new(YAHOO_SERVICE_STEALTH_PERM,
				YAHOO_STATUS_AVAILABLE, yd->session_id);

		yahoo_packet_hash(pkt, "ssss",
				1, gaim_connection_get_display_name(gc),
				31, "1", 13, "2", 7, name);
	} else if (stealth == YAHOO_STEALTH_DEFAULT) {
		if (f->stealth == YAHOO_STEALTH_PERM_OFFLINE) {
			pkt = yahoo_packet_new(YAHOO_SERVICE_STEALTH_PERM,
					YAHOO_STATUS_AVAILABLE, yd->session_id);

			yahoo_packet_hash(pkt, "ssss",
					1, gaim_connection_get_display_name(gc),
					31, "2", 13, "2", 7, name);
		} else if (yd->current_status == YAHOO_STATUS_INVISIBLE) {
			pkt = yahoo_packet_new(YAHOO_SERVICE_STEALTH_SESSION,
					YAHOO_STATUS_AVAILABLE, yd->session_id);
			yahoo_packet_hash(pkt, "ssss",
				1, gaim_connection_get_display_name(gc),
				31, "2", 13, "1", 7, name);
		}
	} else if (stealth == YAHOO_STEALTH_ONLINE) {
		if (f->stealth == YAHOO_STEALTH_PERM_OFFLINE) {
			pkt = yahoo_packet_new(YAHOO_SERVICE_STEALTH_PERM,
					YAHOO_STATUS_AVAILABLE, yd->session_id);
			yahoo_packet_hash(pkt, "ssss",
					1, gaim_connection_get_display_name(gc),
					31, "2", 13, "2", 7, name);
			yahoo_packet_send_and_free(pkt, yd);
		}

		pkt = yahoo_packet_new(YAHOO_SERVICE_STEALTH_SESSION,
				YAHOO_STATUS_AVAILABLE, yd->session_id);
		yahoo_packet_hash(pkt, "ssss",
				1, gaim_connection_get_display_name(gc),
				31, "1", 13, "1", 7, name);
	}

	if (pkt)
		yahoo_packet_send_and_free(pkt, yd);
}
