file upload

gistfile1.lisp

(ns file-uploadr.views.upload
  (:require [file-uploadr.views.common :as common]
            [noir.response :as res]
            [noir.content.pages :as pages])
  (:use noir.core
        hiccup.core
        hiccup.page-helpers
        hiccup.form-helpers))

(defpage "/" []
         (common/layout
           (form-to {:enctype "multipart/form-data"}
                    [:post "/upload"]
                    (label :file "File to upload")
                    (file-upload :file)
                    [:br]
                    (submit-button "Upload"))))

(defpage [:post "/upload"] {:keys [file]}
         (if-not (= "0" (:size file))
             (res/redirect "/success")
           (res/redirect "/fail")))

(defpage "/success" []
         (common/layout 
           [:p "File upload successful!"]))

(defpage "/fail" []
         (common/layout
           [:p "File upload FAIL!"]))