在websocket庫中獲取客戶端IP地址

Question

我正在使用Network.WebSocket庫。 我嘗試了WS.requestHeaders . WS.pendingRequest PendingConnection上的WS.requestHeaders . WS.pendingRequest以獲取連接請求信息。 但是，似乎它沒有客戶端IP信息，只有Host密鑰中的服務器IP信息。 下面的示例輸出：

[("Upgrade","websocket"),("Sec-WebSocket-Extensions","permessage-deflate; 
client_max_window_bits"),("Sec-WebSocket-Key","<taken out for SO post>"),
("Connection","Upgrade"),("Sec-WebSocket-Version","13"),("Host","localhost:8080")]

在運行Network.Websocket時，一種獲取“客戶端IP”信息的好方法（我正在使用runWebSocketsSnap在Snap monad中運行該runWebSocketsSnap ）。 如果發生錯誤，我想記錄下來。

Answer 1

runWebSocketsSnap只是一個常規的Snap應用程序，因此您可以使用rqRemoteAddr來獲取遠程IP地址：

do
  addr <- getsRequest rqRemoteAddr
  runWebSocketsSnap $ \pending -> ...