 (defn full-url
   [& path]
   (apply str app-url-base "/" path))
+
+
+;; A ping handler will just be for debugging purposes
 
 (defn ping-handler
   "Simple ping handler. Returns response with edn representation of the request as the body.

  (stop-server!)
  )

(comment
  (require '[clj-http.client :as client])


                                                  :filename filename
                                                  :lastupdate (System/currentTimeMillis)))
             {:upsert true}))

(defn get-export-status
  [filename]
  (mc/find-one (db/mongo-db (:env/env :mongolab-uri))
               (db/mongo-collection-name "exports")
               {:filename filename}))

(defn notify-mongo
  [filename status params]
  (update-export-status filename {:status status :params params}))


;; We use AWS to store conversation exports whcih took a long time to compute.
;; These exports are set to expire automatically.

;; move to component; uncomment on commit XXX
;(def aws-cred {:access-key (env/env :aws-access-key)
               ;:secret-key (env/env :aws-secret-key)})

