gistfile1.clj

(ns my.core
  (:require ...
            [ring.middleware [multipart-params :as mp]]))


(defn upload-picture [{:keys [tempfile content-type filename]}]
  (let [ext (.substring content-type (inc (.lastIndexOf content-type "/")))
        id (:id (session/get :user))]
    (if (or (nil? tempfile)
            (nil? id))
      "<h3>Error while upload!</h3>"
      (let [img-name (str "/userpics/" id "." ext)
            fname (str "." img-name)
            f (java.io.File. fname)]
        (if (.exists f)
          (.delete f))
        (io/copy tempfile (java.io.File. fname))
        (.delete tempfile)
        (if (db/update-user {:id (:id (session/get :user))
                             :image img-name})
          "<h3>File upload successful!</h3>"
          "<h3>Error while updating user picture!</h3>")))))

(defroutes app-routes
  (mp/wrap-multipart-params 
   (POST "/user/picture" {params :params} (upload-picture (get params :file))))))