Add customHeaders flag
Former-commit-id: fec205291e26e8d64fca5ff753580b1a64592601 Former-commit-id: 6050a5408343c2d07a02cbcbf778ba3148a42126 [formerly 902076332615bb34f38b9c2ed51bcb165aa08fcd] [formerly 3c3c90b0bf53a73818cecf5a8ab8e2d649dad35e [formerly 0bdea96822211a4eb95a90435c66049965e7aff5 [formerly 0bdea96822211a4eb95a90435c66049965e7aff5 [formerly 0bdea96822211a4eb95a90435c66049965e7aff5 [formerly 9ce5c1a09c9945223df26609b9e725b3f93f014e]]]]] Former-commit-id: 1c79ed2bd07cbf476f69b06ed9a134a63dd285cb [formerly 2cc27e84320fdc7245b64515b082f29bd24cf299] Former-commit-id: c213a08c5adfe7857635db8d2b1c0d836a6e1207 Former-commit-id: 86624be4dfa00559808a1ee3d3568a455f99e5e2 Former-commit-id: 8f7937f2320beb2356c8cf8af7241d452cacd3cf Former-commit-id: 4b30c019bfd2c847698cec7c2980e7139e813f24 [formerly ed0aa0b199a4e417c3edfb2764ae8b0a90f908ad] Former-commit-id: 5473698ef4f0b331d8622af6a9131cf6a2674c59
This commit is contained in:
parent
f851d9e361
commit
8bd805b0d3
6 changed files with 74 additions and 33 deletions
|
@ -9,6 +9,8 @@ import qualified Network.Socket.ByteString as N
|
|||
import qualified Data.Conduit.Network.TLS as N
|
||||
import qualified Data.Streaming.Network as N
|
||||
|
||||
import Data.CaseInsensitive ( CI )
|
||||
import qualified Data.CaseInsensitive as CI
|
||||
import Control.Concurrent.Async as Async
|
||||
import Data.ByteString (hPutStr)
|
||||
import Control.Concurrent (threadDelay)
|
||||
|
@ -51,6 +53,7 @@ testTCPLocalToRemote useTLS = do
|
|||
, hostHeader = "toto.com"
|
||||
, tlsSNI = "toto.com"
|
||||
, websocketPingFrequencySec = 30
|
||||
, customHeaders = [(CI.mk "toto", "tata"), (CI.mk "titi", "tutu")]
|
||||
}
|
||||
let client = runClient tunnelSetting
|
||||
|
||||
|
@ -112,6 +115,7 @@ testUDPLocalToRemote useTLS = do
|
|||
, hostHeader = "toto.com"
|
||||
, tlsSNI = "toto.com"
|
||||
, websocketPingFrequencySec = 30
|
||||
, customHeaders = [(CI.mk "toto", "tata"), (CI.mk "titi", "tutu")]
|
||||
}
|
||||
let client = runClient tunnelSetting
|
||||
|
||||
|
@ -172,6 +176,7 @@ testSocks5Tunneling useTLS = do
|
|||
, hostHeader = "toto.com"
|
||||
, tlsSNI = "toto.com"
|
||||
, websocketPingFrequencySec = 30
|
||||
, customHeaders = [(CI.mk "toto", "tata"), (CI.mk "titi", "tutu")]
|
||||
}
|
||||
let client = runClient tunnelSetting
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue