diff options
Diffstat (limited to 'src/rooms.clj')
| -rw-r--r-- | src/rooms.clj | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/rooms.clj b/src/rooms.clj index 736a96e..5e1feb1 100644 --- a/src/rooms.clj +++ b/src/rooms.clj @@ -85,6 +85,7 @@ (alter (room :messages) (swap cons) msg)) (defn create-and-add-room! [key] + (println "Creating room " key) (do-select ["INSERT INTO rooms (key, name, description) VALUES (?, ?, ?) RETURNING room_id" key key key]) @@ -98,16 +99,18 @@ (:room_id (or (first (do-select ["SELECT room_id FROM rooms WHERE lower(key) = ?" (lower-case key)])) - (create-and-add-room!) + (create-and-add-room! key) (throw (Exception. (str "Unable to create room " key)))))) (defn- get-or-create-room-bot-id! [nick] ((comp :user_id first) (or (do-select ["SELECT user_id FROM users WHERE lower(nick) = ?" (lower-case nick)]) - (do-select ["INSERT INTO users (nick, hash, email) + (do + (do-select ["INSERT INTO users (nick, hash, email) VALUES (?, ?, ?) RETURNING user_id" - nick "GARBAGE" "info@dump.fm"])))) + nick "GARBAGE" "info@dump.fm"]) + (println "Creating bot " nick))))) (defn get-or-create-room-bot! [key] (let [nick (str "~" key)] |