1 files changed, 16 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj
index cdfb6be..9460187 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -378,6 +378,21 @@
 (defn valid-deadline? [deadline]
   deadline)
 
+(defn topic-map-from-room [r]
+  (let [topic (or @(r :topic) {})]
+    {"key" (r :key)
+     "topic" (topic :topic)
+     "deadline" (topic :deadline)
+     "maker" (topic :maker)}))
+
+(defn validate-topic-list [session]
+  (if (session :is_admin)
+    (let [st (fetch-template "topic_list" session)]
+      (.setAttribute st "rooms"
+                     (to-array (map topic-map-from-room (vals @rooms))))
+      (.toString st))
+    [404 "UNKNOWN_ROOM"]))
+
 (defn set-topic! [room topic deadline maker]
   (ref-set (room :topic) 
            {:topic topic
@@ -659,6 +674,7 @@
   (POST "/msg" (validated-msg session params))
   (POST "/submit-registration" (register session params))
   (POST "/update-profile" (update-profile session params))
+  (GET "/topic-list" (validate-topic-list session))
   (POST "/set-topic" (validate-set-topic session params))
   (GET "/directory" (directory session 0))
   (GET "/directory/:offset"
@@ -725,7 +741,6 @@
   ([script] {:port 8080})
   ([script port] {:port (maybe-parse-int port)}))
 
-(prn *command-line-args*)
 (def options (apply parse-command-args *command-line-args*))
 
 (start-user-flusher!)