I have the following web server that I pieced together from code snippets
so I'm not sure how everything works really but most of it works. Now, I
want to put a file for download in download.html. I tried all kinds of href
specs but nothing works. Where should I put my file for download?
Here's the code below. Any constructive criticism welcome!
melipone
(ns fileupload.core
(:use [net.cgrand.enlive-html
:only [deftemplate defsnippet content clone-for
nth-of-type first-child do-> set-attr sniptest at emit*]]
[compojure.core]
[ring.adapter.jetty])
(:require (compojure [route :as route])
(ring.util [response :as response])
(ring.middleware [multipart-params :as mp])
(clojure.contrib [duck-streams :as ds]))
)
(defn render [t]
(apply str t))
(deftemplate index "fileupload/resources/index.html" [])
(deftemplate download "fileupload/resources/download.html" [])
(deftemplate upload-success "fileupload/resources/success.html" [])
(defn upload-file
[file]
; (ds/copy (file :tempfile) (ds/file-str "file.out"))
(ds/copy (file :tempfile) (ds/file-str (file :filename)))
(render (upload-success)))
(defn(ns fileupload.core
(:use [net.cgrand.enlive-html
:only [deftemplate defsnippet content clone-for
nth-of-type first-child do-> set-attr sniptest at emit*]]
[compojure.core]
[ring.adapter.jetty])
(:require (compojure [route :as route])
(ring.util [response :as response])
(ring.middleware [multipart-params :as mp])
(clojure.contrib [duck-streams :as ds]))
)
(defn render [t]
(apply str t))
(deftemplate index "fileupload/resources/index.html" [])
(deftemplate download "fileupload/resources/download.html" [])
(deftemplate upload-success "fileupload/resources/success.html" [])
(defn upload-file
[file]
; (ds/copy (file :tempfile) (ds/file-str "file.out"))
(ds/copy (file :tempfile) (ds/file-str (file :filename)))
(render (upload-success)))
(defn pload [params]
(println params)
(upload-file (get params "file")))
(defroutes public-routes
(GET "/upload" [] (render (index)))
(GET "/download" [] (render (download)))
(mp/wrap-multipart-params
;(POST "/file" {params :params} (upload-file (get params "file")))
(POST "/file" {params :params} (pload params))
)
)
(defn start-app []
(future (run-jetty (var public-routes) {:port 8000})))
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
