From a2d93e5956f82c5f136e7e5e7872be05948807e4 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Sun, 25 Oct 2015 17:45:55 +0100
Subject: [PATCH] Larger upload buffer, limit upload to 20MB/s.

---
 upmgr.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/upmgr.pas b/upmgr.pas
index 7842951..0c8688f 100644
--- a/upmgr.pas
+++ b/upmgr.pas
@@ -148,7 +148,7 @@ end;
 procedure tPrv.Cont;
  var s:tMemoryStream;
  var sz:LongWord;
- var buf:array [1..2048] of byte;
+ var buf:array [1..4096] of byte;
  begin
  //writeln('upmgr: CONT! ',chan);
  Assert(Active and isOpen);
@@ -280,6 +280,7 @@ procedure tAggr.Init(const source:tNetAddr);
  tcs.CanSend:=@Cont;
  tcs.maxTimeout:=8;
  tcs.OnTimeout:=@TCTimeout;
+ tcs.Limit.Rate:=20*1024*1024; {20MB}
  prv:=nil;
  cnt:=0;
 end;
-- 
2.11.4.GIT