(use '[appengine-magic.multipart-params :only [wrap-multipart-params]])
(require '[gaeclj.models :as m])

(defn recording-create
  [{params :multipart-params :as req}]
  (let [rec-info (get params "filename")]
    (m/save-rec! rec-info)
    (response "saved")))

; gaeclj.models
(defn save-rec! [params]
  (s3/put-object cred "rod-bucket" (:filename params)  (apply str (map char (:bytes params))))