/*
 fe-irc-server.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.,
    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/

#include "module.h"
#include <irssi/src/fe-common/irc/module-formats.h>
#include <irssi/src/core/signals.h>
#include <irssi/src/core/commands.h>
#include <irssi/src/core/misc.h>

#include <irssi/src/core/servers-setup.h>

#include <irssi/src/core/levels.h>
#include <irssi/src/irc/core/irc-chatnets.h>
#include <irssi/src/irc/core/irc-servers.h>
#include <irssi/src/irc/core/irc-channels.h>
#include <irssi/src/core/servers-reconnect.h>
#include <irssi/src/irc/core/irc-servers-setup.h>

#include <irssi/src/fe-common/core/fe-windows.h>
#include <irssi/src/fe-common/core/printtext.h>

const char *get_visible_target(IRC_SERVER_REC *server, const char *target)
{
	IRC_CHANNEL_REC *channel;

	if (*target == '!') {
		/* visible_name of !channels is different - don't bother
		   checking other types for now, they'll just slow up */
		channel = irc_channel_find(server, target);
		if (channel != NULL)
			return channel->visible_name;
	}

	return target;
}

/* SYNTAX: SERVER ADD|MODIFY [-4 | -6] [-cap | -nocap] [-tls_cert <cert>] [-tls_pkey <pkey>]
                             [-tls_pass <password>] [-tls_verify] [-tls_cafile <cafile>]
                             [-tls_capath <capath>] [-tls_ciphers <list>] [-tls | -notls]
                             [-starttls | -nostarttls | -disallow_starttls | -nodisallow_starttls]
                             [-auto | -noauto] [-network <network>] [-host <hostname>]
                             [-cmdspeed <ms>] [-cmdmax <count>] [-port <port>] <address> [<port>
                             [<password>]] */
/* NOTE: -network replaces the old -ircnet flag. */
static void sig_server_add_fill(IRC_SERVER_SETUP_REC *rec,
				GHashTable *optlist)
{
        IRC_CHATNET_REC *ircnet;
	char *value;

	value = g_hash_table_lookup(optlist, "network");
	/* For backwards compatibility, also allow the old name 'ircnet'.
	   But of course only if -network was not given. */
	if (!value)
		value = g_hash_table_lookup(optlist, "ircnet");

	if (value != NULL) {
		g_free_and_null(rec->chatnet);
		if (*value != '\0') {
			ircnet = ircnet_find(value);
			rec->chatnet = ircnet != NULL ?
				g_strdup(ircnet->name) : g_strdup(value);
		}
	}

	value = g_hash_table_lookup(optlist, "cmdspeed");
	if (value != NULL && *value != '\0') rec->cmd_queue_speed = atoi(value);
	value = g_hash_table_lookup(optlist, "cmdmax");
	if (value != NULL && *value != '\0') rec->max_cmds_at_once = atoi(value);
	value = g_hash_table_lookup(optlist, "querychans");
	if (value != NULL && *value != '\0') rec->max_query_chans = atoi(value);
	if (g_hash_table_lookup(optlist, "nodisallow_starttls") ||
	    g_hash_table_lookup(optlist, "nostarttls"))
		rec->starttls = STARTTLS_NOTSET;
	if (g_hash_table_lookup(optlist, "disallow_starttls"))
		rec->starttls = STARTTLS_DISALLOW;
	if (g_hash_table_lookup(optlist, "starttls")) {
		rec->starttls = STARTTLS_ENABLED;
		rec->use_tls = 0;
	}
	if (g_hash_table_lookup(optlist, "nocap"))
		rec->no_cap = 1;
	if (g_hash_table_lookup(optlist, "cap"))
		rec->no_cap = 0;
}

static void sig_server_waiting_info(IRC_SERVER_REC *server, const char *version)
{
	if (!IS_IRC_SERVER(server))
		return;

	printformat(server, NULL, MSGLEVEL_CLIENTCRAP, IRCTXT_SERVER_WAITING_CAP_LS, server,
	            version);
}

/* SYNTAX: SERVER LIST */
static void cmd_server_list(const char *data)
{
	GString *str;
	GSList *tmp;

	str = g_string_new(NULL);
	printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP, IRCTXT_SETUPSERVER_HEADER);
	for (tmp = setupservers; tmp != NULL; tmp = tmp->next) {
		IRC_SERVER_SETUP_REC *rec = tmp->data;

		if (!IS_IRC_SERVER_SETUP(rec))
                        continue;

		g_string_truncate(str, 0);
		if (rec->password != NULL)
			g_string_append(str, "(pass), ");
		if (rec->autoconnect)
			g_string_append(str, "autoconnect, ");
		if (rec->no_proxy)
			g_string_append(str, "noproxy, ");
		if (rec->no_cap)
			g_string_append(str, "nocap, ");
		if (rec->starttls == STARTTLS_DISALLOW)
			g_string_append(str, "disallow_starttls, ");
		if (rec->starttls == STARTTLS_ENABLED)
			g_string_append(str, "starttls, ");
		if (rec->use_tls)
			g_string_append(str, "tls, ");
		if (rec->tls_cert) {
			g_string_append_printf(str, "tls_cert: %s, ", rec->tls_cert);
			if (rec->tls_pkey)
				g_string_append_printf(str, "tls_pkey: %s, ", rec->tls_pkey);
			if (rec->tls_pass)
				g_string_append_printf(str, "(pass), ");
		}
		if (!rec->tls_verify)
			g_string_append(str, "notls_verify, ");
		if (rec->tls_cafile)
			g_string_append_printf(str, "tls_cafile: %s, ", rec->tls_cafile);
		if (rec->tls_capath)
			g_string_append_printf(str, "tls_capath: %s, ", rec->tls_capath);
		if (rec->tls_ciphers)
			g_string_append_printf(str, "tls_ciphers: %s, ", rec->tls_ciphers);
		if (rec->tls_pinned_cert)
			g_string_append_printf(str, "tls_pinned_cert: %s, ", rec->tls_pinned_cert);
		if (rec->tls_pinned_pubkey)
			g_string_append_printf(str, "tls_pinned_pubkey: %s, ",
			                       rec->tls_pinned_pubkey);

		if (rec->max_cmds_at_once > 0)
			g_string_append_printf(str, "cmdmax: %d, ", rec->max_cmds_at_once);
		if (rec->cmd_queue_speed > 0)
			g_string_append_printf(str, "cmdspeed: %d, ", rec->cmd_queue_speed);
		if (rec->max_query_chans > 0)
			g_string_append_printf(str, "querychans: %d, ", rec->max_query_chans);
		if (rec->own_host != NULL)
			g_string_append_printf(str, "host: %s, ", rec->own_host);

		if (str->len > 1) g_string_truncate(str, str->len-2);
		printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP, IRCTXT_SETUPSERVER_LINE,
			    rec->address, rec->port,
			    rec->chatnet == NULL ? "" : rec->chatnet,
			    str->str);
	}
	printformat(NULL, NULL, MSGLEVEL_CLIENTCRAP, IRCTXT_SETUPSERVER_FOOTER);
	g_string_free(str, TRUE);
}

void fe_irc_server_init(void)
{
	signal_add("server add fill", (SIGNAL_FUNC) sig_server_add_fill);
	signal_add("server waiting cap ls", (SIGNAL_FUNC) sig_server_waiting_info);
	command_bind("server list", NULL, (SIGNAL_FUNC) cmd_server_list);

	command_set_options("server add",
	                    "-ircnet -network -cmdspeed -cmdmax -querychans starttls "
	                    "nostarttls disallow_starttls nodisallow_starttls cap nocap");
	command_set_options("server modify",
	                    "-ircnet -network -cmdspeed -cmdmax -querychans starttls nostarttls "
	                    "disallow_starttls nodisallow_starttls cap nocap");
}

void fe_irc_server_deinit(void)
{
	signal_remove("server add fill", (SIGNAL_FUNC) sig_server_add_fill);
	signal_remove("server waiting cap ls", (SIGNAL_FUNC) sig_server_waiting_info);
	command_unbind("server list", (SIGNAL_FUNC) cmd_server_list);
}