1 files changed, 11 insertions, 4 deletions
diff --git a/src/utils.clj b/src/utils.clj
index 7abed4f..ea0176a 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -14,11 +14,14 @@
              :password "root"}))
 
 
-(defn kbytes [b]
-  (* b 1024))
+;; Misc
 
-(defn mbytes [b]
-  (* b 1024 1024))
+(defn seconds [t] (* t 1000))
+(defn minutes [t] (* t 60 1000))
+
+(defn kbytes [b] (* b 1024))
+
+(defn mbytes [b] (* b 1024 1024))
 
 ;; JSON responses
 
@@ -47,6 +50,10 @@
 	      (doall rs))))
    :count))
 
+(defn do-delete [table query]
+  (with-connection *db*
+    (delete-rows table query)))
+
 ;; Parsing
 
 (defn maybe-parse-int