Простой пример сеансов Sandbar или Ring в Google App Engine - PullRequest
Новая
       30

Простой пример сеансов Sandbar или Ring в Google App Engine

4 голосов
/ 14 мая 2011

Я пытаюсь понять, как заставить сеансы и флэш работать в Google App Engine.Может ли кто-нибудь привести наглядный пример, используя Ring или Sandbar?Я думаю, что у меня работает песочница, в частности, она не говорит мне, что Var sandbar.stateful-session/sandbar-flash is unbound, и когда я сбрасываю обработчик, я получаю :flash и :session, хотя я не уверен, является ли это сеансом песочной панели или кольцевымДля полноты я упомяну, что я использую последние версии appengine-magic, ring, hiccup и sandbar.Кажется, что нет никаких несовместимостей или проблем.

Так что ясный пример желательно с использованием flash-put!, flash-get, session-put! and session-get.

Ответы [ 2 ]

4 голосов
/ 03 июня 2011

Я обычно не люблю отвечать на свои вопросы, однако в этом случае я сделаю исключение, потому что:

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!не требуется для работы сессий, просто использование 

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

даст вам рабочие функциональные сессии.Однако я хотел управлять своими сессиями с побочными эффектами и сессией обертывания!обеспечивает эту функциональность.Чтобы использовать флеш-подобную функциональность, просто используйте сессионный ввод!поместить значение в сессию и затем использовать session-pop!чтобы удалить его.

Надеюсь, это полезно.

1 голос
/ 23 июля 2011

Если вы хотите использовать сеансы, предоставляемые GAE, вы можете использовать следующие

https://gist.github.com/1095841

для включения сеанса в виде звонка в ваши запросы, но на основе поддержки сеанса GAE.

Если вы хотите, чтобы сеансы с отслеживанием состояния поверх этого, вы можете использовать API сеанса с сохранением состояния, предоставленный Sandbar

https://github.com/brentonashworth/sandbar

...