211 |
|
|
212 |
let download_control = TcpBufferedSocket.create_read_bandwidth_controler |
let download_control = TcpBufferedSocket.create_read_bandwidth_controler |
213 |
"Download" |
"Download" |
214 |
(!!max_hard_download_rate * 2048) (* TODO: changed from 1024 to 2048 because of bug *) |
(!!max_hard_download_rate * 1024) |
215 |
|
|
216 |
|
|
217 |
let _ = |
let _ = |
221 |
option_hook max_hard_download_rate (fun _ -> |
option_hook max_hard_download_rate (fun _ -> |
222 |
let rate = !!max_hard_download_rate in |
let rate = !!max_hard_download_rate in |
223 |
TcpBufferedSocket.change_rate download_control |
TcpBufferedSocket.change_rate download_control |
224 |
(rate * 2048)) (* TODO: changed from 1024 to 2048 because of bug *) |
(rate * 1024)) |
225 |
|
|
226 |
let udp_write_controler = UdpSocket.new_bandwidth_controler upload_control |
let udp_write_controler = UdpSocket.new_bandwidth_controler upload_control |
227 |
|
|