Используя javax.servlet. Фильтр с Compojure

Question

Используя javax.servlet. Фильтр с Compojure

Я пытаюсь создать простое использование веб-сайта Clojure / Compojure и хотеть питаться применяют фильтр сервлета к запросу / ответ (т.е. стандарт javax.servlet. Экземпляр фильтра).

например, если текущий исходный код:

(defroutes my-app
  (GET "/*"
    (html [:h1 "Hello Foo!!"]))
)

Я хотел бы добавить фильтр как это:

(defroutes my-app
  (GET "/*"
    (FILTER my-filter-name
      (html [:h1 "Hello Foo!!"])))
)

Где my-filter-name является некоторым произвольным экземпляром javax.servlet. Фильтр.

Какая-либо идея, как сделать это эффективно и изящно?

6

servlets openid clojure servlet-filters compojure

задан BalusC 10 May 2010 в 21:42

1 ответ

Другие вопросы по тегам:

servlets openid clojure servlet-filters compojure

Похожие вопросы:

score 9 · Accepted Answer

Ок, теперь у меня все работает! Спасибо cgrand за указание правильного направления!

Мое решение включало создание прокси для фильтруемого сервлета и цепочки фильтров. Код ниже для тех, кому интересно.....

(def pass-through-filter 
  (proxy [javax.servlet.Filter] []
    (doFilter
      [request response #^javax.servlet.FilterChain filterchain]
      (do
        (.doFilter filterchain request response)))))

(defn filter-chain 
  [#^javax.servlet.Servlet servlet]
  (proxy [javax.servlet.FilterChain] []
    (doFilter
      [request response]
      (.service servlet request response))))

(defn filtered-servlet 
  [#^javax.servlet.Filter servlet-filter handler]
  (let [#^javax.servlet.Servlet base-servlet (servlet handler)
        the-filter-chain (filter-chain base-servlet)]
    (proxy [javax.servlet.http.HttpServlet] []
      (service
        [request response] 
        (.doFilter servlet-filter request response the-filter-chain))
      (init
        [config] 
        (.init base-servlet config)))))

(defroutes my-app
  (GET "/*"
    (html 
      [:h1 "Hello Foo!!"]))
  (ANY "*"
    [404 "Page not found"]))

(run-server {:port 80}
  "/*" (filtered-servlet pass-through-filter my-app))