Servlets 将javax.servlet.Filter与Compojure一起使用

Servlets 将javax.servlet.Filter与Compojure一起使用,servlets,openid,clojure,servlet-filters,compojure,Servlets,Openid,Clojure,Servlet Filters,Compojure,我正在尝试使用Clojure/Compojure构建一个简单的网站,并希望为请求/响应应用一个servlet过滤器(即标准的javax.servlet.filter实例) e、 g.如果当前源代码为: (defroutes my-app (GET "/*" (html [:h1 "Hello Foo!!"])) ) 我想添加如下过滤器: (defroutes my-app (GET "/*" (FILTER my-filter-name (html [:h1

我正在尝试使用Clojure/Compojure构建一个简单的网站,并希望为请求/响应应用一个servlet过滤器(即标准的javax.servlet.filter实例)

e、 g.如果当前源代码为:

(defroutes my-app
  (GET "/*"
    (html [:h1 "Hello Foo!!"]))
)
我想添加如下过滤器:

(defroutes my-app
  (GET "/*"
    (FILTER my-filter-name
      (html [:h1 "Hello Foo!!"])))
)
其中,我的过滤器名称是javax.servlet.filter的任意实例


你知道如何有效而优雅地完成这项工作吗?

好的,我现在已经开始工作了!感谢cgrand为我们指明了正确的方向

我的解决方案涉及为过滤servlet和过滤链创建代理。以下代码适用于感兴趣的任何人

(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))

要将筛选器应用于所有路由还是仅应用于部分路由?在第一种情况下,在Servlet级别将过滤器置于环/复合器之上可能更容易。在第二种情况下,您需要编写(使用reify或proxy)适配器,将过滤器转换为中间件。非常感谢您的帮助。我想做第二个,但似乎不可能,因为过滤器需要的请求/响应参数没有作为参数传递给中间件系统。我正在尝试第一个-如果我让它工作,我会发布一个答案!要完成第二步,还需要创建在请求/响应映射之上实现HttpServletRequest/Response的对象。或者使用现有的实现(例如),但我认为用具体化实现它们比处理有状态的模拟对象更简单——正如Rich Hickey所说的“那些模拟对象,它们在模拟你”!您不需要将过滤器定义添加到web.xml文件中吗?