1 files changed, 356 insertions, 0 deletions

diff --git a/src/core/servers-reconnect.c b/src/core/servers-reconnect.c
new file mode 100644
index 00000000..d4d8b942
--- /dev/null
+++ b/src/core/servers-reconnect.c
@@ -0,0 +1,356 @@
+/*
+ servers-reconnect.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 "commands.h"
+#include "network.h"
+#include "signals.h"
+
+#include "servers-setup.h"
+#include "servers-reconnect.h"
+
+#include "settings.h"
+
+GSList *reconnects;
+static int last_reconnect_tag;
+static int reconnect_timeout_tag;
+static int reconnect_time;
+
+static void server_reconnect_add(SERVER_CONNECT_REC *conn,
+				 time_t next_connect)
+{
+	RECONNECT_REC *rec;
+
+	g_return_if_fail(IS_SERVER_CONNECT(conn));
+
+	rec = g_new(RECONNECT_REC, 1);
+	rec->tag = ++last_reconnect_tag;
+	rec->conn = conn;
+	rec->next_connect = next_connect;
+
+	reconnects = g_slist_append(reconnects, rec);
+}
+
+static void server_reconnect_destroy(RECONNECT_REC *rec, int free_conn)
+{
+	g_return_if_fail(rec != NULL);
+
+	reconnects = g_slist_remove(reconnects, rec);
+
+	signal_emit("server reconnect remove", 1, rec);
+	if (free_conn) server_connect_free(rec->conn);
+	g_free(rec);
+
+	if (reconnects == NULL)
+	    last_reconnect_tag = 0;
+}
+
+static int server_reconnect_timeout(void)
+{
+	SERVER_CONNECT_REC *conn;
+	GSList *list, *tmp;
+	time_t now;
+
+	/* If server_connect() removes the next reconnection in queue,
+	   we're screwed. I don't think this should happen anymore, but just
+	   to be sure we don't crash, do this safely. */
+	list = g_slist_copy(reconnects);
+	now = time(NULL);
+	for (tmp = list; tmp != NULL; tmp = tmp->next) {
+		RECONNECT_REC *rec = tmp->data;
+
+		if (g_slist_find(reconnects, rec) == NULL)
+			continue;
+
+		if (rec->next_connect <= now) {
+			conn = rec->conn;
+			server_reconnect_destroy(rec, FALSE);
+			server_connect(conn);
+		}
+	}
+
+	g_slist_free(list);
+	return 1;
+}
+
+static void sserver_connect(SERVER_SETUP_REC *rec, SERVER_CONNECT_REC *conn)
+{
+	conn->address = g_strdup(rec->address);
+	conn->port = rec->port;
+
+	server_setup_fill_reconn(conn, rec);
+	if (rec->last_connect > time(NULL)-reconnect_time) {
+		/* can't reconnect this fast, wait.. */
+		server_reconnect_add(conn, rec->last_connect+reconnect_time);
+	} else {
+		/* connect to server.. */
+		server_connect(conn);
+	}
+}
+
+static SERVER_CONNECT_REC *
+server_connect_copy_skeleton(SERVER_CONNECT_REC *src)
+{
+	SERVER_CONNECT_REC *dest;
+
+        dest = NULL;
+	signal_emit("server connect copy", 2, &dest, src);
+	g_return_val_if_fail(dest != NULL, NULL);
+
+	dest->proxy = g_strdup(src->proxy);
+        dest->proxy_port = src->proxy_port;
+	dest->proxy_string = g_strdup(src->proxy_string);
+
+	dest->chatnet = g_strdup(src->chatnet);
+	dest->nick = g_strdup(src->nick);
+	dest->username = g_strdup(src->username);
+	dest->realname = g_strdup(src->realname);
+
+	if (src->own_ip != NULL) {
+		dest->own_ip = g_new(IPADDR, 1);
+		memcpy(dest->own_ip, src->own_ip, sizeof(IPADDR));
+	}
+
+	dest->channels = g_strdup(src->channels);
+	dest->away_reason = g_strdup(src->away_reason);
+
+	return dest;
+}
+
+#define server_should_reconnect(server) \
+	((server)->connection_lost && \
+	((server)->connrec->chatnet != NULL || !(server)->banned))
+
+static void sig_reconnect(SERVER_REC *server)
+{
+	SERVER_CONNECT_REC *conn;
+	SERVER_SETUP_REC *sserver;
+	GSList *tmp;
+	int found, through;
+	time_t now;
+
+	g_return_if_fail(IS_SERVER(server));
+
+	if (reconnect_time == -1 || !server_should_reconnect(server))
+		return;
+
+	conn = server_connect_copy_skeleton(server->connrec);
+
+	/* save the server status */
+	if (server->connected) {
+		conn->reconnection = TRUE;
+
+		g_free_not_null(conn->away_reason);
+		conn->away_reason = !server->usermode_away ? NULL :
+			g_strdup(server->away_reason);
+
+		signal_emit("server reconnect save status", 2, conn, server);
+	}
+
+	sserver = server_setup_find(server->connrec->address,
+				    server->connrec->port);
+
+	if (sserver != NULL) {
+		/* save the last connection time/status */
+		sserver->last_connect = server->connect_time == 0 ?
+			time(NULL) : server->connect_time;
+		sserver->last_failed = !server->connected;
+                if (server->banned) sserver->banned = TRUE;
+	}
+
+	if (sserver == NULL || conn->chatnet == NULL) {
+		/* not in any chatnet, just reconnect back to same server */
+		conn->address = g_strdup(server->connrec->address);
+		conn->port = server->connrec->port;
+		conn->password = server->connrec->password == NULL ? NULL :
+			g_strdup(server->connrec->password);
+
+		if (server->connect_time != 0 &&
+		    time(NULL)-server->connect_time > reconnect_time) {
+			/* there's been enough time since last connection,
+			   reconnect back immediately */
+			server_connect(conn);
+		} else {
+			/* reconnect later.. */
+			server_reconnect_add(conn, (server->connect_time == 0 ? time(NULL) :
+						    server->connect_time) + reconnect_time);
+		}
+		return;
+	}
+
+	/* always try to first connect to the first on the list where we
+	   haven't got unsuccessful connection attempts for the last half
+	   an hour. */
+
+	now = time(NULL);
+	for (tmp = setupservers; tmp != NULL; tmp = tmp->next) {
+		SERVER_SETUP_REC *rec = tmp->data;
+
+		if (rec->chatnet != NULL && g_strcasecmp(conn->chatnet, rec->chatnet) == 0 &&
+		    !rec->banned && (!rec->last_connect || !rec->last_failed ||
+				     rec->last_connect < now-FAILED_RECONNECT_WAIT)) {
+			sserver_connect(rec, conn);
+			return;
+		}
+	}
+
+	/* just try the next server in list */
+	found = through = FALSE;
+	for (tmp = setupservers; tmp != NULL; ) {
+		SERVER_SETUP_REC *rec = tmp->data;
+
+		if (!found && g_strcasecmp(rec->address, server->connrec->address) == 0 &&
+		    server->connrec->port == rec->port)
+			found = TRUE;
+		else if (found && !rec->banned && rec->chatnet != NULL &&
+			 g_strcasecmp(conn->chatnet, rec->chatnet) == 0) {
+			sserver_connect(rec, conn);
+			break;
+		}
+
+		if (tmp->next != NULL) {
+			tmp = tmp->next;
+			continue;
+		}
+
+		if (through) {
+			/* shouldn't happen unless there's no servers in
+			   this chatnet in setup.. */
+                        server_connect_free(conn);
+			break;
+		}
+
+		tmp = setupservers;
+		found = through = TRUE;
+	}
+}
+
+/* Remove all servers from reconnect list */
+/* SYNTAX: RMRECONNS */
+static void cmd_rmreconns(void)
+{
+	while (reconnects != NULL)
+		server_reconnect_destroy(reconnects->data, TRUE);
+}
+
+static RECONNECT_REC *reconnect_find_tag(int tag)
+{
+	GSList *tmp;
+
+	for (tmp = reconnects; tmp != NULL; tmp = tmp->next) {
+		RECONNECT_REC *rec = tmp->data;
+
+		if (rec->tag == tag)
+			return rec;
+	}
+
+	return NULL;
+}
+
+/* Try to reconnect immediately */
+/* SYNTAX: RECONNECT <tag> */
+static void cmd_reconnect(const char *data, SERVER_REC *server)
+{
+	SERVER_CONNECT_REC *conn;
+	RECONNECT_REC *rec;
+	char *str;
+	int tag;
+
+	if (*data == '\0') {
+		/* reconnect back to same server */
+		if (server == NULL) cmd_return_error(CMDERR_NOT_CONNECTED);
+		str = g_strdup_printf("%s %d %s %s", server->connrec->address,
+				      server->connrec->port, server->connrec->password,
+				      server->connrec->nick);
+		signal_emit("command server", 2, str, server);
+		g_free(str);
+		return;
+	}
+
+	if (g_strncasecmp(data, "RECON-", 6) == 0)
+		data += 6;
+
+	tag = atoi(data);
+	rec = tag <= 0 ? NULL : reconnect_find_tag(tag);
+
+	if (rec == NULL)
+		signal_emit("server reconnect not found", 1, data);
+	else {
+		conn = rec->conn;
+		server_reconnect_destroy(rec, FALSE);
+		server_connect(conn);
+	}
+}
+
+static void cmd_disconnect(const char *data, SERVER_REC *server)
+{
+	RECONNECT_REC *rec;
+	int tag;
+
+	if (g_strncasecmp(data, "RECON-", 6) != 0)
+		return; /* handle only reconnection removing */
+
+	rec = sscanf(data+6, "%d", &tag) == 1 && tag > 0 ?
+		reconnect_find_tag(tag) : NULL;
+
+	if (rec == NULL)
+		signal_emit("server reconnect not found", 1, data);
+	else
+		server_reconnect_destroy(rec, TRUE);
+	signal_stop();
+}
+
+static void read_settings(void)
+{
+	reconnect_time = settings_get_int("server_reconnect_time");
+}
+
+void servers_reconnect_init(void)
+{
+	settings_add_int("server", "server_reconnect_time", 300);
+
+	reconnects = NULL;
+	last_reconnect_tag = 0;
+
+	reconnect_timeout_tag = g_timeout_add(1000, (GSourceFunc) server_reconnect_timeout, NULL);
+	read_settings();
+
+	signal_add("server connect failed", (SIGNAL_FUNC) sig_reconnect);
+	signal_add("server disconnected", (SIGNAL_FUNC) sig_reconnect);
+	command_bind("rmreconns", NULL, (SIGNAL_FUNC) cmd_rmreconns);
+	command_bind("reconnect", NULL, (SIGNAL_FUNC) cmd_reconnect);
+	command_bind_first("disconnect", NULL, (SIGNAL_FUNC) cmd_disconnect);
+	signal_add("setup changed", (SIGNAL_FUNC) read_settings);
+}
+
+void servers_reconnect_deinit(void)
+{
+	g_source_remove(reconnect_timeout_tag);
+
+	while (reconnects != NULL)
+		server_reconnect_destroy(reconnects->data, TRUE);
+
+	signal_remove("server connect failed", (SIGNAL_FUNC) sig_reconnect);
+	signal_remove("server disconnected", (SIGNAL_FUNC) sig_reconnect);
+	command_unbind("rmreconns", (SIGNAL_FUNC) cmd_rmreconns);
+	command_unbind("reconnect", (SIGNAL_FUNC) cmd_reconnect);
+	command_unbind("disconnect", (SIGNAL_FUNC) cmd_disconnect);
+	signal_remove("setup changed", (SIGNAL_FUNC) read_settings);
+}