diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/site.clj b/src/site.clj index 98524d4..6fce880 100644 --- a/src/site.clj +++ b/src/site.clj @@ -607,7 +607,7 @@ WHERE user_id IN (defn msg [session params] (let [user-id (session :user_id) - mute (get (poll *active-mutes*) user-id) + mute (get (poll active-mutes) user-id) nick (session :nick) room-key (params :room) room (lookup-room room-key) @@ -617,7 +617,7 @@ WHERE user_id IN (cond (not room) (resp-error "BAD_ROOM") (not nick) (resp-error "NOT_LOGGED_IN") content-too-long? (resp-error "TOO_LONG") - mute (resp-error (format-mute mute)) + mute (resp-error (format-mute-error mute)) :else (let [content (validated-content content session) msg-info (insert-message! user-id nick (:avatar session) room content) @@ -1086,11 +1086,11 @@ WHERE user_id IN nick (session :nick) user-id (session :user_id) image (params :image) - mute (get (poll *active-mutes*) user-id) + mute (get (poll active-mutes) user-id) has-access (validate-room-access room-key session)] (cond (not nick) [200 "NOT_LOGGED_IN"] (not image) [200 "INVALID_REQUEST"] - mute [200 (format-mute mute)] + mute [200 (format-mute-error mute)] (not has-access) [200 "UNKNOWN_ROOM"] :else (do-upload session image (lookup-room room-key))))) @@ -1385,7 +1385,7 @@ WHERE user_id IN (def server (start-server (options :port))) -(start! *active-mutes*) +(start! active-mutes) (start-user-flusher!) (start-session-pruner!) |