summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-08-18 16:10:52 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-08-18 16:10:52 +0200
commitd1c51370a79867089f002a0b61cc3c6eb0680d08 (patch)
treedcfeca254f0a29053dc57a502e8b7761e30a179e /src
parent9acbd8e14f6ef3ec5a04081294a26ecc3a3333ec (diff)
Fix view user_visible_lazychat_messages; adapt Lafargue implementation.
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/lazychat.clj40
1 files changed, 28 insertions, 12 deletions
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj
index bfee679..5986264 100644
--- a/src/mulk/benki/lazychat.clj
+++ b/src/mulk/benki/lazychat.clj
@@ -36,7 +36,7 @@
(with-dbt
(map :user (query "SELECT \"user\" FROM user_visible_lazychat_messages
WHERE message = ?"
- message-id))))
+ (:id (:id message-id))))))
(defn fill-in-author-details [x]
x)
@@ -52,10 +52,11 @@
(let [id (or id
(:id (query1 "SELECT nextval('lazychat_messages_id_seq')::INTEGER AS id")))]
(sql/with-query-results ids
- ["INSERT INTO lazychat_messages(id, author, content, format, visibility)
- VALUES (?, ?, ?, ?, ?)
+ ["INSERT INTO lazychat_messages(id, author, content, format)
+ VALUES (?, ?, ?, ?)
RETURNING id"
- id user content format visibility]
+ id user content format]
+ (log (fmt nil "~S ~S ~S ~S" id user content format))
(doseq [referee referees]
(sql/insert-values :lazychat_references
[:referrer :referee]
@@ -64,6 +65,19 @@
(sql/insert-values :lazychat_targets
[:message :target]
[id (int target)]))
+ (case visibility
+ ("public")
+ (sql/do-prepared
+ "INSERT INTO lazychat_targets
+ SELECT ?, role FROM role_tags WHERE tag = 'world'"
+ [id])
+ ("protected")
+ (sql/do-prepared
+ "INSERT INTO lazychat_targets
+ SELECT ?, role FROM role_tags WHERE tag = 'inner_circle'"
+ [id])
+ ("private")
+ (do))
(enqueue lafargue-events
(with-meta
(fill-in-author-details
@@ -78,7 +92,7 @@
(create-lazychat-message-by-user! *user* msg))
(defn push-message-to-xmpp [msg]
- (let [targets (filter integer? (determine-targets {:id msg}))]
+ (let [targets (filter integer? (determine-targets (:id msg)))]
(enqueue xmpp/messages {:message msg,
:targets targets})))
@@ -106,11 +120,13 @@
:targets targets))))
(defn may-read? [user message]
- (or (= (:visibility message) "public")
- (and user (= (:visibility message) "protected"))
- (and user
- (= (:visibility message) "personal")
- (contains? (:targets message) user))))
+ (with-dbt
+ (seq
+ (query "SELECT 't' FROM user_visible_lazychat_messages
+ WHERE \"user\" IS NOT DISTINCT FROM ?
+ AND \"message\" = ?"
+ user
+ message))))
(defn may-post? [user]
user)
@@ -204,7 +220,7 @@
(defpage-async "/lafargue/events" {} conn
(if (websocket? conn)
- (let [messages (filter* #(may-read? *user* %) lafargue-events)]
+ (let [messages (filter* #(may-read? *user* (:id %)) lafargue-events)]
(receive-all messages
(fn [msg]
(async-push conn (render-message-as-json msg)))))
@@ -239,7 +255,7 @@
(defpage [:get "/lafargue/messages/:id"] {id :id}
(with-dbt
(let [message (select-message id)]
- (if (may-read? *user* message)
+ (if (may-read? *user* (:id message))
(response/json message)
{:status 403}))))