(ns fame
  (:use scheduled-agent
	utils))

; should probably cache this to disk somewhere
(def hall-of-fame-update-frequency (* 3 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))