From f1c347386eceb02f60f41792e8b0e00601977446 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Thu, 9 Sep 2010 03:07:50 -0400
Subject: Add roomlist, per-room image limits

---
 src/admin.clj | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'src/admin.clj')

diff --git a/src/admin.clj b/src/admin.clj
index 7c7721e..9dbc65c 100644
--- a/src/admin.clj
+++ b/src/admin.clj
@@ -4,9 +4,29 @@
   (:use compojure
         email
         scheduled-agent
+        rooms
         user
         utils))
 
+;; Rooms
+
+(defn count-room-users [key]
+  (if-let [r (rooms/lookup-room key)]
+    (count @(:users r))
+    0))
+
+
+(defn show-rooms [session]
+  (if-vip
+   (let [rooms (do-select ["SELECT * FROM ROOMS ORDER BY CREATED_ON ASC"])
+         st    (fetch-template "roomlist" session)]
+     (.setAttribute st "rooms" (for [r rooms]
+                                 (stringify-and-escape
+                                  (assoc r
+                                    :created_on (format-yyyy-mm-dd (:created_on r))
+                                    :users (count-room-users (:key r))))))
+     (.toString st))))
+
 ;; Muting
 
 (def *mute-refresh-period-sec* 60)
-- 
cgit v1.2.3-70-g09d2