 ;; First we'll just set up some basic helpers and settings/variables we'll need.
 ;; We'll really want to move these to the configuration component when that exists. XXX
 
-(def tmp-dir "/tmp/")
+(def tmp-dir (or (:export-temp-dir env/env) "/tmp/")) ; XXX
 (defn full-path [filename] (str tmp-dir filename))
 
-(def app-url-base "https://localhost:3000")
-;(def app-url-base "https://polismath-aux.heroku.com")
+(def app-url-base (or (:export-server-url-base env/env) "http://localhost:3000"))
 (defn full-url
   [& path]
   (apply str app-url-base "/" path))

  (reset-server!)

  ;(client/request)
  (let [params {:basic-auth [(:server-auth-username env/env)
                             (:server-auth-pass env/env)]
                :query-params {:zinvite "6sc6vt"
                               ;:at-date 
                               :format "csv"}}]



;; Requests for exported files in aws.
:
(defn redirect-to-aws-url
  "Creates a redirection response, which redirects to the aws download link."
  [aws-cred filename]
