Basic rooms functionality

1 files changed, 16 insertions, 0 deletions

diff --git a/src/utils.clj b/src/utils.clj
index 5d7af94..d278e56 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -1,5 +1,6 @@
 (ns utils
   (:import java.text.SimpleDateFormat
+           java.net.URL
            java.util.Date
            java.util.TimeZone
            java.io.File
@@ -10,6 +11,7 @@
            org.antlr.stringtemplate.StringTemplateGroup)
   (:use clojure.contrib.json.write
         clojure.contrib.sql
+        clojure.contrib.duck-streams
         clojure.contrib.str-utils
         compojure))
 
@@ -31,6 +33,12 @@
 
 ;; Misc
 
+(defn download-http-url [u]
+  (let [url (URL. u)]
+    (if (= (.getProtocol url) "http")
+      (slurp* url)
+      (throw (Exception. (str "Invalid url " u))))))
+
 (defn append [& vecs]
   (reduce into vecs))
 
@@ -197,6 +205,14 @@
   (with-connection *db*
     (.createArrayOf (connection) type (into-array arr))))
 
+(defn execute-query! [query & objects]
+  (with-connection *db*
+    (let [stmt (.prepareStatement (connection) query)]
+      (doseq [[i o] (map vector (iterate inc 1) objects)]
+        (.setObject stmt i o))
+      (println "update: " (.executeQuery stmt)))))
+              
+
 ;; Parsing
 
 (defn maybe-parse-int