           (get-in (:headers
                    (let [sample (last (sg/generate-examples amon/BaseEntity))]
                       (reset! poster-map (assoc-in @poster-map [:entity-property-code] (:property_code sample)))
-                     (client/post "http://127.0.0.1:8010/4/entities/" {:accept :json :content-type :json :basic-auth ["support@mastodonc.com" "password"] :body (json/write-str (assoc-in sample [:project_id]  (clojure.string/replace @project-loc  #"/4/projects/(.*?)" "$1")))})))
+                      (client/post (apply str base-addr "/4/entities/") {:accept :json :content-type :json :basic-auth ["support@mastodonc.com" "password"] :body (json/write-str (assoc-in sample [:project_id]  (clojure.string/replace @project-loc  #"/4/projects/(.*?)" "$1")))})))
                   ["Location"]))
   (log/info "Entity: " @entity-loc))
 

                       (gen/choose 0 59)
                       (gen/choose 0 59))))

(defn- get-date []
  (str (subs (str (last (gen/sample gen-date-time))) 0 19) "Z"))


          (get-in (:headers
                   (let [sample (last (sg/generate-examples amon/BaseProject))]
                     (reset! poster-map (assoc-in @poster-map [:project-name] (:name sample)))
                     (client/post (apply str base-addr @programme-loc "/projects/") {:accept :json :content-type :json :basic-auth ["support@mastodonc.com" "password"] :body (json/write-str (assoc-in sample [:programme_id]  (clojure.string/replace @programme-loc  #"/4/programmes/(.*?)" "$1")))})))
                  ["Location"]))
  (log/info "Project: " @project-loc))

