haskell - 如何使用 Scotty/wai 在代理后面记录真实 IP 地址

Question

这是我的 scotty 应用程序，请注意我如何将请求记录到控制台:

{-# LANGUAGE OverloadedStrings #-}
import Web.Scotty
import Network.Wai.Middleware.RequestLogger

import Data.Monoid (mconcat)

main = scotty 3000 $ do
    --log requests to console
    middleware logStdoutDev

    get "/:word" $ do
        beam <- param "word"
        html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]

我的 scotty 应用程序使用代理机制在 nginx 后面运行。这会导致 scotty 应用程序记录如下:

127.0.0.1 - - [27/Aug/2014:15:12:00 +0000] "GET / HTTP/1.0" 200 - ...

我想要 真实IP地址被记录。

我在 Node.js/Express 应用程序中遇到了同样的问题，我是这样解决的:

Express.js: how to get remote client address

我如何在 Scotty 中解决这个问题？

Answer 1

有一个 IPAddrSource wai-extra 中的数据类型起源于 wai-logger 包裹。因此，如果您希望 IP 地址来自 header ，看起来您可以执行以下操作:

{-# LANGUAGE OverloadedStrings #-}
import Web.Scotty
import Network.Wai.Middleware.RequestLogger

import Control.Monad.IO.Class
import Data.Monoid (mconcat)
import Data.Default

main = scotty 3000 $ do
    --log requests to console
    logger <- liftIO $ mkRequestLogger def { outputFormat = Apache FromHeader }
    middleware logger

    get "/:word" $ do
        beam <- param "word"
        html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]

从描述来看，它也像 Apache FromFallback将首先检查 header ，如果没有找到 header ，则使用套接字 IP 地址。

更新

您也可以在 scotty 之外创建记录器。功能:

main = do
    logger <- mkRequestLogger def { outputFormat = Apache FromHeader }
    scotty 3000 $ do
        middleware logger

        get "/:word" $ do
            beam <- param "word"
            html $ mconcat ["<h1>Scotty, ", beam, " me up!</h1>"]