near/heyarne.all-my-friends.app
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Cleanup & save images with file extension

Browse source
This commit is contained in:
heyarne 2021-04-19 18:52:47 +02:00
commit b3813e51de
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/heyarne/all_my_friends/server.clj
View file

@ -5,16 +5,17 @@
[ring.middleware.defaults :refer [wrap-defaults site-defaults]] [ring.middleware.defaults :refer [wrap-defaults site-defaults]]
[ring.middleware.logger :as logger] [ring.middleware.logger :as logger]
[heyarne.all-my-friends.env :refer [env]]) [heyarne.all-my-friends.env :refer [env]])
(:import [java.text SimpleDateFormat])
(:gen-class)) (:gen-class))
(def rfc3339 (java.text.SimpleDateFormat. "yyyy-MM-dd'T'HH:mm:ssXXX")) (def rfc3339 (SimpleDateFormat. "yyyy-MM-dd'T'HH:mm:ssXXX"))
(defn upload! [file predictions] (defn upload! [file predictions]
(let [now (.format rfc3339 (java.util.Date.)) (let [now (.format rfc3339 (java.util.Date.))
uuid (java.util.UUID/randomUUID) uuid (java.util.UUID/randomUUID)
ext (re-find #"\.[\w]+$" (-> file :filename)) img-ext (re-find #"[\w]+$" (-> file :content-type))
filename (str "uploads/" now "--" uuid)] filename (str "uploads/" now "--" uuid)]
(io/copy (-> file :tempfile) (io/file (str filename ext))) (io/copy (-> file :tempfile) (io/file (str filename "." img-ext)))
(spit (str filename ".json") predictions))) (spit (str filename ".json") predictions)))
(def app (def app
@ -26,7 +27,7 @@
(let [{:keys [snapshot predictions]} (-> req :params)] (let [{:keys [snapshot predictions]} (-> req :params)]
(upload! snapshot predictions) (upload! snapshot predictions)
{:status 201 {:status 201
:body (str "Thanks :)")}))}] :body "Thanks :)"}))}]
["/*" (ring/create-resource-handler)]] ["/*" (ring/create-resource-handler)]]
{:conflicts (constantly nil)}))) {:conflicts (constantly nil)})))