Skip to content

Instantly share code, notes, and snippets.

@kornysietsma

kornysietsma/core.clj

Created June 7, 2011 11:09
Show Gist options
  • Save kornysietsma/1012040 to your computer and use it in GitHub Desktop.
Save kornysietsma/1012040 to your computer and use it in GitHub Desktop.
Download ZIP
sample app for mongodb-session bug
Raw
core.clj
(ns bugchk.core
(:use compojure.core
[compojure.response :only [resource]]
ring.middleware.json-params
ring.middleware.session
sandbar.stateful-session
[ring.adapter.jetty :only [run-jetty]])
(:require [compojure.route :as route]
[compojure.handler :as handler]
[clojure.java.io :as io]
[ring.util.response :as response]
[somnium.congomongo :as mongo]
[hozumi.mongodb-session :as mongoss]))
(def mongo-conn (mongo/make-connection "bugchk"))
(mongo/set-connection! mongo-conn)
(defroutes main-routes
(GET "/" [request]
(do
(println "session get:" (session-get "foo"))
(session-put! "foo" "bar")
(str "<html><body>Hello world! " (session-get "foo") " ...</body></html>"))))
(def app
(-> (handler/site main-routes)
(wrap-stateful-session {:store (mongoss/mongodb-store {:auto-key-change? true})})
))
(defn -main []
(let [port (Integer/parseInt (get (System/getenv) "PORT" "8080"))]
(run-jetty app {:port port})))
Raw
project.clj
(defproject bugchk "1.0.0-SNAPSHOT"
:description "Twitter conversation threader"
:dependencies [[org.clojure/clojure "1.2.1"]
[org.clojure/clojure-contrib "1.2.0"]
[compojure "0.6.3"]
[sandbar "0.3.0"]
[ring/ring-core "0.3.8"]
[ring/ring-jetty-adapter "0.3.8"]
[congomongo "0.1.3"]
[org.clojars.hozumi/mongodb-session "1.0.1"]]
:dev-dependencies [[lein-ring "0.4.0"]]
:ring {:handler bugchk.core/app})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment