# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1259849730 0
# Node ID 21f0d80f244a14cad5e9751b43f3511fc2525675
# Parent  7ddd0026080814db8f156580a6edac29c540e65c
mod_proxy65: Throttle connections to prevent senders flooding the server's buffers if the receiver doesn't receive fast enough

diff -r 7ddd00260808 -r 21f0d80f244a plugins/mod_proxy65.lua
--- a/plugins/mod_proxy65.lua	Thu Dec 03 14:13:09 2009 +0000
+++ b/plugins/mod_proxy65.lua	Thu Dec 03 14:15:30 2009 +0000
@@ -80,6 +80,7 @@
 				transfers[sha].initiator = conn;
 				session.sha = sha;
 				module:log("debug", "initiator connected ... ");
+				throttle_sending(conn, transfers[sha].target);
 			end
 			conn:write(string.char(5, 0, 0, 3, sha:len()) .. sha .. string.char(0, 0)); -- VER, REP, RSV, ATYP, BND.ADDR (sha), BND.PORT (2 Byte)
 		else
@@ -253,3 +254,25 @@
 
 connlisteners.start(module.host .. ':proxy65');
 component = componentmanager.register_component(host, handle_to_domain);
+local sender_lock_threshold = 1024;
+function throttle_sending(sender, receiver)
+	sender:pattern(sender_lock_threshold);
+	local sender_locked;
+	local _sendbuffer = receiver.sendbuffer;
+	function receiver.sendbuffer()
+		_sendbuffer();
+		if sender_locked and receiver.bufferlen() < sender_lock_threshold then
+			sender:lock(false); -- Unlock now
+			sender_locked = nil;
+		end
+	end
+	
+	local _readbuffer = sender.readbuffer;
+	function sender.readbuffer()
+		_readbuffer();
+		if not sender_locked and receiver.bufferlen() >= sender_lock_threshold then
+			sender_locked = true;
+			sender:lock(true);
+		end
+	end
+end