[英]How to add headers when connecting to a websocket in Haskell
我正在尝试创建一个WebSocket客户端以连接到现有服务器( mtgox api )。
首先,要弄清楚连接到WebSocket的方法,我发现了以下示例代码https://github.com/jaspervdj/websockets/blob/master/example/client.hs
问题是Mtgox需要在连接时发送标头,但我不确定如何发送标头。
更新:为了帮助解决这个问题,我也创建了一个简单的websocket服务器。 当我从Chrome JavaScript控制台通过JavaScript WebSocket连接到它时,看到以下标头:
requestHeaders = [("Upgrade","websocket"),("Connection","Upgrade"),
("Host","127.0.0.1:8001"),("Origin","chrome://newtab"),("Pragma","no-cache"),
("Cache-Control","no-cache"),("Sec-WebSocket-Key","yOsPEMHx9AyT9u3ssNma/Q=="),
("Sec-WebSocket-Version","13"),("Sec-WebSocket-Extensions","x-webkit-deflate-frame"),
("User-Agent","Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_5) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/28.0.1500.95 Safari/537.36")]
而当我通过Haskell客户端连接时,仅看到以下标头:
requestHeaders = [("Host","127.0.0.1"),("Connection","Upgrade"),
("Upgrade","websocket"),("Sec-WebSocket-Key","X3hMDW4fAau53dbz7w4MTw=="),
("Sec-WebSocket-Version","13")]
我不知道MtGox实际需要哪些标头,但我的计划是只发送与Chrome发送的标头相同的标头,因为那样可以。
根据以下答案,除了WebSocket-Protocol标头外,这是不可能的: Websockets客户端API中的HTTP标头
代替使用的connect
我用connectWith
,这允许“起源”报头被设置。 尽管我看不到如何添加其他标头,但这是MtGox所需的标头。 只要提供一个基于HTTP的url作为来源,它就可以成功连接。
WS.connectWith "websocket.mtgox.com" 80 "/mtgox" (Just "http://anything") Nothing app
似乎几乎没有必要添加任何其他标头,并且推测这就是为什么未提供任何机制的原因。 但是,查看源代码 ,可以通过复制粘贴connectWith
和connectWithSocket
的代码来更改添加到Request对象的标头。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.