Snap界面-获取操作系统和浏览器信息

Question

我正在使用Snap信息，并且想知道是否有某种类型的Request函数（例如:: Request-> IO Snap（）或:: Request-> Handler App App（））返回操作系统或浏览器信息用户访问网页。

我想获取正在访问网页的人的操作系统和浏览器信息。

Answer 1

您可以通过getHeader获得User-Agent HTTP标头，因为Request具有HasHeaders实例。

示例片段：

import qualified Data.ByteString.Char8 as CS
import qualified Data.CaseInsensitive as CI
import Data.Maybe (listToMaybe)

uaName :: ByteString
uaName = CS.pack "User-Agent"
-- You can avoid CS.pack with OverloadedStrings extension.

uahName :: CI ByteString
uahName = CI.mk uaName
-- OverloadedStrings also gets rid of the CI.mk call.

getUserAgent :: Request -> Snap (Maybe ByteString)
getUserAgent rq = return . coerce $ getHeader uahName rq
 where 
    coerce :: Maybe [ByteString] -> Maybe ByteString
    coerce = (>>= listToMaybe)
    -- Some HTTP headers can appear multiple times, hence the list.
    -- `coerce` ignores all but the first occurrence.

有关更详细/较少自愿性的信息，您可以将JS注入初始请求中，并设置可以用rqCookies在rqCookies的请求中提取的cookie。