From a164617625e65b2d949358d6bb897c5b14713362 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 6 Jan 2010 02:02:01 -0500 Subject: Updated logout --- src/site.clj | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index 3030df9..65d4d11 100755 --- a/src/site.clj +++ b/src/site.clj @@ -219,7 +219,7 @@ (resp-error "BAD_LOGIN")))) (defn logout [session] - [(session-dissoc :nick :user_id) + [(session-dissoc :nick :user_id :is_admin :avatar) (redirect-to "/")]) ;; Registration @@ -319,7 +319,7 @@ (defn validated-chat [session room-key] (let [room (@rooms room-key)] (if (and room - (or (not (room :admin-only)) (session :is_admin))) + (or (not (room :admin_only)) (session :is_admin))) (chat session room) (resp-error "UNKNOWN_ROOM")))) @@ -343,7 +343,7 @@ (let [room-key (params :room) room (@rooms room-key)] (if (and room - (or (not (room :admin-only)) (session :is_admin))) + (or (not (room :admin_only)) (session :is_admin))) (refresh session params room) (resp-error "UNKNOWN_ROOM")))) @@ -391,7 +391,7 @@ (let [room-key (params :room) room (@rooms room-key)] (if (and room - (or (not (room :admin-only)) (session :is_admin))) + (or (not (room :admin_only)) (session :is_admin))) (msg session params) (resp-error "UNKNOWN_ROOM")))) @@ -423,8 +423,9 @@ ;; Upload +; TODO (defn upload [session params] - "TODO") + nil) ;; Compojure Routes @@ -471,7 +472,7 @@ (dosync (doseq [room-db (fetch-rooms)] (alter rooms assoc (room-db :key) - {:admin-only (room-db :admin_only) + {:admin_only (room-db :admin_only) :room_id (room-db :room_id) :key (room-db :key) :name (room-db :name) -- cgit v1.2.3-70-g09d2