Compojure로 javax.servlet.Filter 사용하기

Question

Clojure/Compojure를 사용하여 간단한 웹 사이트를 만들고 요청/응답에 서블릿 필터를 적용하려고합니다 (예 : 표준 javax.servlet.Filter 인스턴스) .

현재 소스 코드 인 경우 :

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

나는이 같은 필터를 추가하고 싶습니다 :

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

을 내 필터 이름은 javax.servlet.Filter의 어떤 임의의 인스턴스입니다.

어떻게 효율적이고 우아하게 만들 수 있습니까?

Answer 1

좋아요. 이제이 기능이 작동합니다. 올바른 방향으로 포인터를 보내 주셔서 감사합니다!

내 솔루션에는 필터링 된 서블릿과 필터 체인에 대한 프록시를 만드는 것이 포함되었습니다. 관심있는 사람을위한 아래의 코드 .....

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