 
 (defn get-status-location-url
   [filename zinvite]
-  (full-url (str "datadump/status?filename=" filename "&zinvite=" zinvite)))
+  (private-url (str "datadump/status?filename=" filename "&zinvite=" zinvite)))
 
 (defn check-back-response
   ([filename zinvite status]

(def tmp-dir (or (:export-temp-dir env/env) "/tmp/")) ; XXX
(defn full-path [filename] (str tmp-dir filename))

(def app-url-base (or (:export-server-url-base env/env) "http://localhost:3000"))
(defn full-url
  [& path]
  (apply str app-url-base "/" path))


;; A ping handler will just be for debugging purposes


(defn complete-response
  [filename zinvite]
  (let [url (private-datadump-url filename zinvite)]
    {:status  201
     :headers {"Content-Type" "text/plain"
               "Location"     url}
