gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add initial route/model support for uploading new files

Browse source
This commit is contained in:
Gered 2013-05-22 09:23:11 -04:00
parent 456309ddf7
commit 514593101b
2 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/blarg/models/files.clj
View file

@ -1,6 +1,7 @@
(ns blarg.models.files
(:use [blarg.models.db]
[blarg.datetime])
[blarg.datetime]
[blarg.util])
(:require [com.ashafa.clutch :as couch]
[clojure.java.io :as io]))
@ -34,4 +35,16 @@
(defn get-tree []
(->view-keys
(couch/with-db files
(couch/get-view "files" "listPaths" {:group true}))))
(couch/get-view "files" "listPaths" {:group true}))))
(defn add-file [path filename file content-type]
(let [proper-path (ensure-prefix path "/")
id (str proper-path filename)]
(if-let [doc (couch/with-db files
(couch/put-document {:_id id
:filename filename
:path proper-path
:last_modified_at (get-timestamp)
:published true}))]
(couch/with-db files
(couch/put-attachment doc file :filename filename :mime-type content-type)))))

11
src/blarg/routes/files.clj
View file

@ -14,6 +14,16 @@
:files (files/list-files path)
:tree (files/get-tree)}))
(defn handle-new-file [path file]
(println "path: " path ", file: " file)
(if-let [newfile (files/add-file
(ensure-prefix path "/")
(:filename file)
(:tempfile file)
(:content-type file))]
(resp/redirect (str "/listfiles" (ensure-prefix path "/")))
(throw (Exception. "Error uploading file"))))
(defn get-file [path]
(if-let [file (files/get-file path)]
(resp/content-type (:content_type file) (:data file))
@ -22,4 +32,5 @@
(defroutes files-routes
(restricted GET "/listfiles" [] (list-files "/"))
(restricted GET "/listfiles/*" [*] (list-files (ensure-prefix * "/")))
(restricted POST "/uploadfile" [path file] (handle-new-file path file))
(GET "/files/*" [*] (get-file (ensure-prefix * "/"))))