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


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

(defn check-back-response
  ([filename zinvite status]

(defn send-email-notification!
  [filename params]
  (let [zinvite (:zinvite params)
        download-url (public-datadump-url filename zinvite)
        email-hiccup (completion-email-text zinvite download-url)]
    (email/send-email!
      "Christopher Small <chris@pol.is>"
