From 4fe7aff4d1b8605d4997b842481cc78bd062fe2a Mon Sep 17 00:00:00 2001
From: Guus Sliepen <guus@tinc-vpn.org>
Date: Wed, 10 Nov 2004 21:56:31 +0000
Subject: [PATCH 1/1] Add BlockingTCP option, useful when using TCPOnly on slow
 or congested links.

---
 doc/tinc.conf.5.in |  7 +++++++
 src/net.h          |  1 +
 src/net_setup.c    |  2 ++
 src/net_socket.c   | 21 +++++++++++++++++++++
 4 files changed, 31 insertions(+)

diff --git a/doc/tinc.conf.5.in b/doc/tinc.conf.5.in
index 9e2e2708..1797aa7c 100644
--- a/doc/tinc.conf.5.in
+++ b/doc/tinc.conf.5.in
@@ -120,6 +120,13 @@ will by default listen on all of them for incoming connections.
 It is possible to bind only to a single interface with this variable.
 .Pp
 This option may not work on all platforms.
+.It Va BlockingTCP Li = yes | no Po no Pc Bq experimental
+This options selects whether TCP connections, when established, should use blocking writes.
+When turned off, tinc will never block when a TCP connection becomes congested, but will have to terminate that connection instead.
+If turned on, tinc will not terminate connections but will block, thereby unable to process data to/from other connections.
+Turn this option on if you also use
+.Va TCPOnly
+and tinc terminates connections frequently.
 .It Va ConnectTo Li = Ar name
 Specifies which other tinc daemon to connect to on startup.
 Multiple
diff --git a/src/net.h b/src/net.h
index b5692ef2..b82ca830 100644
--- a/src/net.h
+++ b/src/net.h
@@ -117,6 +117,7 @@ typedef struct outgoing_t {
 extern int maxtimeout;
 extern int seconds_till_retry;
 extern int addressfamily;
+extern bool blockingtcp;
 
 extern listen_socket_t listen_socket[MAXSOCKETS];
 extern int listen_sockets;
diff --git a/src/net_setup.c b/src/net_setup.c
index 7896addf..0c9f27c3 100644
--- a/src/net_setup.c
+++ b/src/net_setup.c
@@ -286,6 +286,8 @@ bool setup_myself(void)
 	if(get_config_bool(lookup_config(myself->connection->config_tree, "TCPOnly"), &choice) && choice)
 		myself->options |= OPTION_TCPONLY;
 
+	get_config_bool(lookup_config(config_tree, "BlockingTCP"), &blockingtcp);
+
 	if(get_config_bool(lookup_config(myself->connection->config_tree, "PMTUDiscovery"), &choice) && choice)
 		myself->options |= OPTION_PMTU_DISCOVERY;
 
diff --git a/src/net_socket.c b/src/net_socket.c
index efa0f559..9095d575 100644
--- a/src/net_socket.c
+++ b/src/net_socket.c
@@ -41,6 +41,7 @@
 int addressfamily = AF_UNSPEC;
 int maxtimeout = 900;
 int seconds_till_retry = 5;
+bool blockingtcp = false;
 
 listen_socket_t listen_socket[MAXSOCKETS];
 int listen_sockets;
@@ -240,6 +241,16 @@ void finish_connecting(connection_t *c)
 
 	ifdebug(CONNECTIONS) logger(LOG_INFO, _("Connected to %s (%s)"), c->name, c->hostname);
 
+#ifdef O_NONBLOCK
+	if(blockingtcp) {
+		int flags = fcntl(c->socket, F_GETFL);
+
+		if(fcntl(c->socket, F_SETFL, flags & ~O_NONBLOCK) < 0) {
+			logger(LOG_ERR, _("fcntl for %s: %s"), c->hostname, strerror(errno));
+		}
+	}
+#endif
+
 	c->last_ping_time = now;
 
 	send_id(c);
@@ -425,6 +436,16 @@ bool handle_new_meta_connection(int sock)
 
 	ifdebug(CONNECTIONS) logger(LOG_NOTICE, _("Connection from %s"), c->hostname);
 
+#ifdef O_NONBLOCK
+	if(blockingtcp) {
+		int flags = fcntl(c->socket, F_GETFL);
+
+		if(fcntl(c->socket, F_SETFL, flags & ~O_NONBLOCK) < 0) {
+			logger(LOG_ERR, _("fcntl for %s: %s"), c->hostname, strerror(errno));
+		}
+	}
+#endif
+
 	connection_add(c);
 
 	c->allow_request = ID;
-- 
2.20.1