5

我一直在谷歌搜索有关如何使用 Snap 会话的示例。到目前为止什么都没有。有人可以指点我一篇文章或带有基于 cookie 的会话的简单示例的内容吗？

一个代码片段将非常受欢迎。就像将用户名放入会话中并在每次请求之前检查其存在和有效性。我查看了 Snap.extension.session 但我仍然太菜鸟，无法仅从库代码中弄清楚如何使用它。

我知道 setInSession 是将会话值放入 cookie 的函数，但我无法从签名中完全弄清楚如何使用它：

setInSession k v = Map.insert k v `liftM` getSession >>= setSession

或者如何将整个东西粘合在一起。

我不知道要求一些示例代码是否违反规则，但如果我能在网上找到任何东西，我就不会这样做。

先感谢您。

- - 更新 - -

我按照下面的示例和链接进行操作，但事情仍然不正确。

我只想要一个简单的测试，它读取一个键和一个值并将其放入会话 cookie，然后我想读回会话值并显示。

所以我初始化了我的会话并将其置于主应用程序状态。

s <- nestSnaplet "" sess $ initCookieSessionManager "config/site_key.txt" "sess" (Just 3600)

第一个混淆是会话初始化功能需要的关键。在初始项目设置期间不会创建密钥。

那么我该如何创建呢？项目文件结构中的密钥应该放在哪里以便函数可以找到它？

然后处理程序：

putCookie :: Handler App App ()
putCookie = do
  par <- getPostParams
  let k = T.decodeUtf8 $ head (par ! (B.pack "key"))
  let v = T.decodeUtf8 $ head (par ! (B.pack "value"))
  with sess $ setInSession k v
  heistLocal (bindString "message" "Cookie inserted!") $ render "reply"

这只是从 web 表单中读取键和值，它应该将键值对放在 cookie 中。好吧，显然它没有。

shCookie :: Handler App App ()
shCookie = do
  v <- with sess $ getFromSession "key"
  heistLocal (bindString "message" (fromMaybe "" v)) $ render "reply"

这个只是读回来并显示。我总是得到一个空字符串，这意味着没有这样的事情。

以上任何内容看起来都不正确吗？我在哪里犯错？一切编译正确，但会话 cookie 不存在。

4

1 回答 1

3

Snap.extension.session是指这个模块吗？AFAIK 该snap-auth软件包已弃用。

您可以使用实现为snaplet的新会话 api。

查看如何设置您的应用程序以使用会话和身份验证 snaplets的示例。然后您将能够在会话中存储数据：

data App = App
{ _heist :: Snaplet (Heist App)
, _sess :: Snaplet SessionManager
, _auth :: Snaplet (AuthManager App)
}
makeLens ''App

myHandler :: Handler App App ()
myHandler = do
  with sess $ setInSession "key" "value"

添加：

带有站点密钥的文件将自动创建。该函数initCookieSessionManager（在此处定义）使用包中的getKey函数clientsession（请参见此处）。从文档：If the file does not exist or is corrupted a random key will be generated and stored in that file.

我认为您的处理程序不起作用，因为您没有提交会话（请参见commitSession 此处）您可以在每个更新会话的处理程序中提交它，或者使用wrapHandlers和/或withSession自动执行它。

于 2012-04-03T17:22:23.343 回答