From a0ff1251ce9fc1452fcd8c92737897f414f365c0 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Wed, 23 Jun 2010 06:05:18 -0400
Subject: Added hall of fame

---
 src/fame.clj | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/fame.clj

(limited to 'src/fame.clj')

diff --git a/src/fame.clj b/src/fame.clj
new file mode 100644
index 0000000..8f0ae4f
--- /dev/null
+++ b/src/fame.clj
@@ -0,0 +1,27 @@
+(ns fame
+  (:use scheduled-agent
+	utils))
+
+; should probably cache this to disk somewhere
+(def hall-of-fame-update-frequency (* 4 60 60))
+
+(def hall-of-fame-query "
+select m.created_on, m.message_id, m.content, u.nick, u.avatar, r.key, count(*)
+from tags t, messages m, rooms r, users u
+where t.message_id = m.message_id
+and m.user_id = u.user_id
+and m.room_id = r.room_id
+and r.admin_only = false
+group by m.created_on, m.message_id, m.content, u.nick, u.avatar, r.key
+order by count(*) desc
+limit 50
+")
+
+(defn fetch-hall-of-fame []
+  (do-select [hall-of-fame-query]))
+
+
+(def hall-results (scheduled-agent fetch-hall-of-fame
+				   hall-of-fame-update-frequency
+				   nil))    
+     
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2