/*
 channels-setup.c : irssi

    Copyright (C) 1999-2000 Timo Sirainen

    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 "module.h"
#include "signals.h"

#include "channels.h"
#include "channels-setup.h"
#include "nicklist.h"
#include "irc-server.h"
#include "server-setup.h"

#include "lib-config/iconfig.h"
#include "settings.h"

GSList *setupchannels;

#define ircnet_match(a, b) \
	((a[0]) == '\0' || (b != NULL && g_strcasecmp(a, b) == 0))

SETUP_CHANNEL_REC *channels_setup_find(const char *channel, IRC_SERVER_REC *server)
{
	GSList *tmp;

	g_return_val_if_fail(channel != NULL, NULL);
	g_return_val_if_fail(server != NULL, NULL);

	for (tmp = setupchannels; tmp != NULL; tmp = tmp->next) {
		SETUP_CHANNEL_REC *rec = tmp->data;

		if (g_strcasecmp(rec->name, channel) == 0 &&
		    ircnet_match(rec->ircnet, server->connrec->ircnet))
			return rec;
	}

	return NULL;
}

void channels_setup_destroy(SETUP_CHANNEL_REC *channel)
{
	g_return_if_fail(channel != NULL);

	g_free(channel->name);
	g_free(channel->ircnet);
	g_free_not_null(channel->password);
	g_free_not_null(channel->botmasks);
	g_free_not_null(channel->autosendcmd);
	g_free_not_null(channel->background);
	g_free_not_null(channel->font);
	g_free(channel);

	setupchannels = g_slist_remove(setupchannels, channel);
}

/* connected to server, autojoin to channels. */
static void event_connected(IRC_SERVER_REC *server)
{
	GString *chans, *keys;
	GSList *tmp;
	int use_keys;

	g_return_if_fail(server != NULL);

	if (server->connrec->reconnection)
		return;

	/* join to the channels marked with autojoin in setup */
	chans = g_string_new(NULL);
	keys = g_string_new(NULL);

	use_keys = FALSE;
	for (tmp = setupchannels; tmp != NULL; tmp = tmp->next) {
		SETUP_CHANNEL_REC *rec = tmp->data;

		if (!rec->autojoin || !ircnet_match(rec->ircnet, server->connrec->ircnet))
			continue;

		g_string_sprintfa(chans, "%s,", rec->name);
		g_string_sprintfa(keys, "%s,", rec->password == NULL ? "x" : rec->password);
		if (rec->password != NULL)
			use_keys = TRUE;
	}

	if (chans->len > 0) {
		g_string_truncate(chans, chans->len-1);
		g_string_truncate(keys, keys->len-1);
		if (use_keys) g_string_sprintfa(chans, " %s", keys->str);

		channels_join(server, chans->str, TRUE);
	}

	g_string_free(chans, TRUE);
	g_string_free(keys, TRUE);
}

/* channel wholist received: send the auto send command */
static void channel_wholist(CHANNEL_REC *channel)
{
	SETUP_CHANNEL_REC *rec;
	NICK_REC *nick;
	char **bots, **bot, *str;

	g_return_if_fail(channel != NULL);

	rec = channels_setup_find(channel->name, channel->server);
	if (rec == NULL || rec->autosendcmd == NULL || !*rec->autosendcmd)
		return;

	if (rec->botmasks == NULL || !*rec->botmasks) {
		/* just send the command. */
		signal_emit("send command", 3, rec->autosendcmd, channel->server, channel);
	}

	/* find first available bot.. */
	bots = g_strsplit(rec->botmasks, " ", -1);
	for (bot = bots; *bot != NULL; bot++) {
		nick = nicklist_find(channel, *bot);
		if (nick == NULL)
			continue;

		/* got one! */
		str = g_strdup_printf(rec->autosendcmd, nick->nick);
		signal_emit("send command", 3, str, channel->server, channel);
		g_free(str);
		break;
	}
	g_strfreev(bots);
}

static SETUP_CHANNEL_REC *setupchannel_add(CONFIG_NODE *node)
{
	SETUP_CHANNEL_REC *rec;
	char *channel, *ircnet, *password, *botmasks, *autosendcmd, *background, *font;

	g_return_val_if_fail(node != NULL, NULL);

	channel = config_node_get_str(node, "name", NULL);
	ircnet = config_node_get_str(node, "ircnet", NULL);
	if (channel == NULL || ircnet == NULL) {
		/* missing information.. */
		return NULL;
	}

	password = config_node_get_str(node, "password", NULL);
	botmasks = config_node_get_str(node, "botmasks", NULL);
	autosendcmd = config_node_get_str(node, "autosendcmd", NULL);
	background = config_node_get_str(node, "background", NULL);
	font = config_node_get_str(node, "font", NULL);

	rec = g_new(SETUP_CHANNEL_REC, 1);
	rec->autojoin = config_node_get_bool(node, "autojoin", FALSE);
	rec->name = g_strdup(channel);
	rec->ircnet = g_strdup(ircnet);
	rec->password = (password == NULL || *password == '\0') ? NULL : g_strdup(password);
	rec->botmasks = (botmasks == NULL || *botmasks == '\0') ? NULL : g_strdup(botmasks);
	rec->autosendcmd = (autosendcmd == NULL || *autosendcmd == '\0') ? NULL : g_strdup(autosendcmd);
	rec->background = (background == NULL || *background == '\0') ? NULL : g_strdup(background);
	rec->font = (font == NULL || *font == '\0') ? NULL : g_strdup(font);

	setupchannels = g_slist_append(setupchannels, rec);
	return rec;
}

static void channels_read_config(void)
{
	CONFIG_NODE *node;
	GSList *tmp;

	while (setupchannels != NULL)
		channels_setup_destroy(setupchannels->data);

	/* Read channels */
	node = iconfig_node_traverse("channels", FALSE);
	if (node != NULL) {
		for (tmp = node->value; tmp != NULL; tmp = tmp->next)
			setupchannel_add(tmp->data);
	}
}

void channels_setup_init(void)
{
	source_host_ok = FALSE;

	channels_read_config();
	signal_add("event connected", (SIGNAL_FUNC) event_connected);
	signal_add("channel wholist", (SIGNAL_FUNC) channel_wholist);
        signal_add("setup reread", (SIGNAL_FUNC) channels_read_config);
}

void channels_setup_deinit(void)
{
	while (setupchannels != NULL)
		channels_setup_destroy(setupchannels->data);

	signal_remove("event connected", (SIGNAL_FUNC) event_connected);
	signal_remove("channel wholist", (SIGNAL_FUNC) channel_wholist);
        signal_remove("setup reread", (SIGNAL_FUNC) channels_read_config);
}