 (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
+(def private-app-url-base (or (:export-server-url-base env/env) "http://localhost:3000"))
+(def public-url-base "https://pol.is")
+(defn private-url
   [& path]
-  (apply str app-url-base "/" path))
+  (apply str private-app-url-base "/" path))
+
+(defn public-url
+  [& path]
+  (apply str public-app-url-base "/" path))
 
 
 ;; A ping handler will just be for debugging purposes

                 :file (full-path filename)))

;; This will end up redirecting to the aws download link
(defn get-datadump-url
  [filename zinvite]
  (full-url (str "datadump/results?filename=" filename "&zinvite=" zinvite)))


;; Email notification of completion



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

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