From ce1f04ee404bc373169cd2e8efa7804206bc85de Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Tue, 8 Jan 2019 16:09:46 +0100 Subject: [PATCH] proxy: Allow selecting throttled bandwidth in MBit/s Signed-off-by: Michael Tremer --- html/cgi-bin/proxy.cgi | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/html/cgi-bin/proxy.cgi b/html/cgi-bin/proxy.cgi index 16b3b0e14e..0bf72fed20 100644 --- a/html/cgi-bin/proxy.cgi +++ b/html/cgi-bin/proxy.cgi @@ -56,7 +56,7 @@ my %mainsettings=(); my %checked=(); my %selected=(); -my @throttle_limits=(64,128,256,384,512,768,1024,1280,1536,1792,2048,2560,3072,3584,4096,5120,6144,7168,8192,10240,12288,16384,20480); +my @throttle_limits=(64,128,256,512,1024,1536,2048,3072,4096,5120,6144,7168,8192,10240,16384,20480,51200,102400); my $def_ports_safe="80 # http\n21 # ftp\n443 # https\n563 # snews\n70 # gopher\n210 # wais\n1025-65535 # unregistered ports\n280 # http-mgmt\n488 # gss-http\n591 # filemaker\n777 # multiling http\n800 # Squids port (for icons)\n"; my $def_ports_ssl="443 # https\n563 # snews\n"; @@ -1430,7 +1430,15 @@ END ; foreach (@throttle_limits) { - print "\t\n"; + my $val = $_; + my $unit = "kbit/s"; + + if ($val >= 1024) { + $unit = "Mbit/s"; + $val /= 1024; + } + + print "\t\n"; } print <