Mercurial > lxmppd-hg-xmllex / changeset
changeset
mod_proxy65: Throttle connections to prevent senders flooding the server's buffers if the receiver doesn't receive fast enough
Thu, 03 Dec 2009 14:15:30 +0000
- author
- Matthew Wild <mwild1@gmail.com>
- date
- Thu, 03 Dec 2009 14:15:30 +0000
- changeset 2306
- 21f0d80f244a
- parent 2305
- 7ddd00260808
- child 2307
- fc7e0962520a
mod_proxy65: Throttle connections to prevent senders flooding the server's buffers if the receiver doesn't receive fast enough
| plugins/mod_proxy65.lua | file | annotate | diff | comparison | revisions |
--- 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
