Google App Engine 中的 Sandbar 或 Ring 会话的简单示例

Question

我正在尝试弄清楚如何让会话和 Flash 在 Google App Engine 中工作。有人可以提供一个使用 Ring 或 Sandbar 的清晰示例吗？我认为我的沙栏正在工作，特别是它没有告诉我 Var sandbar.stateful-session/sandbar-flash 未绑定，当我转储处理程序时，我得到 :flash 和 :session 虽然我不确定那是沙洲会话还是环会话。为了完整起见，我将提到我正在使用最新版本的 appengine-magic、ring、hiccup 和 sandbar。似乎没有任何不兼容或问题。

因此，一个清晰的示例最好使用 flash-put!、flash-get、session-put!和会话获取。

Answer 1

我通常不喜欢回答自己的问题，但在这种情况下，我会破例，因为：

a）没有很多易于理解的示例。

b) 最好有一个快速的工作示例供其他人使用。

注意：此处不需要 appengine-magic，这也适用于正常的响铃会话

代码

;; Place in a file called session.clj in the example project
(ns example.session
    "Works with the normal ring sessions 
     allowing you to use side-effects to manage them")

(declare current-session)

(defn wrap-session! [handler]
  (fn [request]
    (binding [current-session (atom (or (:session request) {}))]
      (let [response (handler request)]
        (assoc response :session @current-session)))))

(defn session-get
  ([k] (session-get k nil))
  ([k default] (if (vector? k)
                 (get-in @current-session k)
                 (get @current-session k default))))

(defn session-put!
  ([m]
     (swap! current-session (fn [a b] (merge a m)) m))
  ([k v]
     (swap! current-session (fn [a b] (merge a {k b})) v)))

(defn session-pop! [k]
  (let [res (get @current-session k)]
    (swap! current-session (fn [a b] (dissoc a b)) k)
    res))

(defn session-delete-key! [k]
  (swap! current-session (fn [a b] (dissoc a b)) k))

(defn session-destroy! []
  (swap! current-session (constantly nil)))


;; Place in a file called core.clj in the example project
(ns example.core
  (:use compojure.core
        [ring.middleware.keyword-params :only [wrap-keyword-params]]
        [ring.middleware.session :only [wrap-session]]
        [ring.middleware.session.cookie :only [cookie-store]]
        [example session])
  (:require [appengine-magic.core :as ae]))

(declare current-session)

(defroutes example-app-routes
  (GET "/" _
       (fn [req]
         (let [counter (session-get :counter 0)]
           {:status 200
            :headers {"Content-Type" "text/plain"}
            :body (str "started: " counter)})))
  (GET "/inc" _
       (fn [req]
         (let [counter (do 
                        (session-put! :counter (inc (session-get :counter 0)))
                        (session-get :counter))]
           {:status 200
            :headers {"Content-Type" "text/plain"}
            :body (str "incremented: " counter)}))))

(def example-app-handler
  (-> #'example-app-routes
      wrap-keyword-params
      wrap-session!
      (wrap-session {:cookie-name "example-app-session"
                     :store (cookie-store)})))

(ae/def-appengine-app example-app #'example-app-handler)

如何使用它

导航到 http://127.0.0.1:8080/inc 增加会话中的计数器，并且 http://127.0.0.1:8080/ 将显示会话中计数器的值。

总结会议！会话不需要工作，只需使用

(wrap-session {:cookie-name "example-app-session"
                     :store (cookie-store)})

即可为您提供工作功能会话。然而，我想通过副作用和总结会话来管理我的会话！提供该功能。要使用类似 flash 的功能，只需使用 session-put 即可！将值放入会话中，然后使用 session-pop！将其删除。

希望这有帮助。

Answer 2

如果你想使用GAE提供的Session，可以使用下面的

https://gist.github.com/1095841

在您的请求中包含类似环形的会话，但基于 GAE 会话支持。

如果您想要在此基础上进行有状态会话，您可以使用 Sandbar 提供的有状态会话 API

https://github.com /布伦托纳什沃思/沙洲