diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-09-04 04:30:06 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-09-04 04:30:06 -0400 |
| commit | 1cb38a65f0d85b58851a5a829ab059d6fe300759 (patch) | |
| tree | ef204b78a2348edb8917031507c46b1c8d9cbe43 /src | |
| parent | 622122468f565bfb1c52245affd07413c6aecca6 (diff) | |
Removed chat-version crap
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/src/site.clj b/src/site.clj index d66188e..7806d7b 100644 --- a/src/site.clj +++ b/src/site.clj @@ -640,7 +640,6 @@ WHERE u.user_id = ANY(?)" (defn directory [session offset] (let [st (fetch-template "directory" session) users (get-directory-info (:user_id session) offset)] - (prn users) (.setAttribute st "users" users) (cond (= offset 0) (.setAttribute st "prev" false) (= offset 1) (.setAttribute st "prev" "") @@ -670,18 +669,6 @@ WHERE u.user_id = ANY(?)" ;; Chat -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -; Chat format version history -; -; v0: Keys: users, messages, timestamp -; Date: Mists of dump antiquity -; -; v1: Keys: users, messages, timestamp, v -; Date: 2010/04/25 -; Note: Incorporates explicit version - -(def *chat-version-number* 1) - (defn validate-room-access [room-key session] (if-let [room (lookup-room room-key)] (or (not (room :admin_only)) @@ -714,7 +701,6 @@ WHERE u.user_id = ANY(?)" (.setAttribute "isadminroom" (room :admin_only)) (.setAttribute "json_room_key" (json-str (room :key))) (.setAttribute "json_user_nick" (if nick (json-str nick) "null")) - (.setAttribute "version" *chat-version-number*) (.setAttribute "roomname" (room :name)) (.setAttribute "dis" (= (room :name) "dis")) (.setAttribute "timestamp" now)) @@ -742,8 +728,7 @@ WHERE u.user_id = ANY(?)" :avatar (session :avatar)})) (commute users assoc nick (user-struct-from-session session)))) (resp-success (assoc (updates nick room old-ts) - :timestamp now - :v *chat-version-number*))))) + :timestamp now))))) (defn validated-refresh [session params] (let [room-key (params :room) @@ -814,7 +799,6 @@ WHERE u.user_id = ANY(?)" (.setAttribute st "json_user_nick" (if nick (json-str nick) "null")) (.setAttribute st "roomname" (room :name)) (.setAttribute st "timestamp" now) - (.setAttribute st "version" *chat-version-number*) (.toString st))) |