 (defn populate-usage-records
   []
   (rc/-init)
-  (doseq [day (some-days) i (range nb-records-per-day)]
-    (do
+  (doseq [day (some-days)]
+    (println "Populating " day)
+    (doseq [i (range nb-records-per-day)]
       (kc/insert rc/usage_records (kc/values (rand-usage-record day))))))
 
 

  []
  (compute-summaries (some-days)))

(defn compute-weekly-summaries
  []
  (->> (some-days)
       (drop 3) ;; so that first day is monday
       (take-nth 7)
       compute-summaries))

(defn curl
  [qs]
  (println
    (str "curl -H \"slipstream-authn-info: super ADMIN\" -X GET \"http://localhost:8201/ssclj/Usage"
       (tu/urlencode-params qs) "\"")))
;; public
;;

(defn delete-everything
  []
  (acl/-init)
  (rc/-init)
