Sử dụng javax.servlet.Filter với Compojure

Question

Tôi đang cố gắng xây dựng một trang web đơn giản bằng Clojure/Compojure và muốn cấp dữ liệu áp dụng bộ lọc servlet cho yêu cầu/phản hồi (ví dụ: một cá thể javax.servlet.Filter tiêu chuẩn) .

ví dụ: nếu mã nguồn hiện nay là:

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

Tôi muốn thêm một bộ lọc như thế này:

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

đâu my-filter-name là một số ví dụ độc đoán của javax.servlet.Filter.

Bất kỳ ý tưởng nào về cách thực hiện điều này một cách hiệu quả và thanh lịch?

Answer 1

Ok giờ tôi đã làm việc này! Cảm ơn cgrand cho các con trỏ đi đúng hướng!

Giải pháp của tôi liên quan đến việc tạo proxy cho servlet đã lọc và chuỗi bộ lọc. Mã bên dưới cho bất kỳ ai quan tâm .....

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