我有一个compojure应用程序,它使用ring会话包装器来存储与当前用户关联的OAuth令牌.我希望这个令牌在服务器重新启动时保持可用,这样我就不必每次都要经过身份验证过程.
我假设使用cookie-store而不是默认的内存存储会有所帮助,但事实并非如此.我错过了什么？
这是代码的相关部分：
(defn auth-callback-handler
[session {code :code}]
(let [token (retrieve-token code)]
(-> (redirect "/") (assoc :session (assoc session :token token)))))
(defroutes app-routes
(GET "/" {session :session} (root-handler session))
(GET "/auth-callback" {session :session params :params} (auth-callback-handler session params))
(route/not-found "Not Found"))
(def app
(-> (handler/site app-routes)
(wrap-session {:store (cookie-store {:key "a 16-byte secret"})})))
解决方法
问题是你的应用程序中有2个包装会话中间件,因为处理程序/站点附带了一个.这导致加密/解密运行两次.要配置compojure会话句柄,请使用：
(def app
(site app-routes {:session {:store (cookie-store {:key "a 16-byte secret"})}}))
此外,您可能会对其中一些实现环SessionStore协议的项目感兴趣：
https://github.com/sritchie/couch-session
https://github.com/wuzhe/clj-redis-session
https://github.com/rmarianski/servlet-session-store
要使最后一个持久化,您需要检查所选servlet容器的文档.
