gistfile1.txt

(declare ^{:dynamic true} *request-hooks*)

(defn add-request-hook [fun]
  (swap! *request-hooks* conj fun))

(defn request-hooks-handler
  "Middleware that lets you set up a hook that is called on exit"
  [handler]
  (fn [request]
    (binding [*request-hooks* (atom [])]
      (let [name (gensym)]
        (try
          (info "Entering a request hooks handler: " name " hooks: ")
          (handler request)
          (finally
            (info "Running request hooks: " name " hooks: " *request-hooks*)
            (map apply *request-hooks*)))))))

(defn threatbrain-file-upload-store [item]
  (let [temp-file (utils/make-temp-file "file-upload-")]
    (io/copy (:stream item) temp-file)
    (if true
      (do
        (info "Adding request hook to delete uploaded file: " temp-file)
        (when *request-hooks*
          (add-request-hook
           (fn []
             (info "Deleting temp file: " temp-file)
             (.delete temp-file)))))
      (warn "Request Hooks not enabled, cannot register uploaded files for deletion"))
    (-> (select-keys item [:filename :content-type])
        (assoc :tempfile temp-file
               :sha256 (utils/file-sha256 temp-file)
                 :size (.length temp-file)))))