From 137fd71eced7732550f448dc42e2422340241d7b Mon Sep 17 00:00:00 2001
From: Scott Ostler <sostler@deathmachine.local>
Date: Thu, 4 Mar 2010 23:02:10 -0500
Subject: Removed stats

---
 src/utils.clj | 34 ----------------------------------
 1 file changed, 34 deletions(-)

(limited to 'src/utils.clj')

diff --git a/src/utils.clj b/src/utils.clj
index 5a2c913..3180e89 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -40,40 +40,6 @@
 	      (doall rs))))
    :count))
 
-
-;; Stats
-
-(defn msg-stats [ts]
-  (let [qry (str "SELECT created_on::date, count(*) FROM messages "
-                 "GROUP BY created_on::date "
-                 "ORDER BY created_on::date")]
-    (do-select [qry])))
-
-(defn new-user-stats [ts]
-  (let [qry (str "SELECT created_on::date, count(*) FROM users "
-                 "GROUP BY created_on::date "
-                 "ORDER BY created_on::date")]
-    (do-select [qry])))
-
-(defn msgs-per-user-stats [ts]
-  true)
-
-(def *stat-map* {"msgs" msg-stats
-                 "new users" new-user-stats
-                 "msgs per user" msgs-per-user-stats})
-
-(defn stats [session params]
-  (let [stat (params :stat)
-        ts   (params :timescale)]
-    (if-let [f (*stat-map* stat)]
-      (resp-success (f ts))
-      (resp-error "UNKNOWN STAT"))))
-
-(defn validated-stats [session params]
-  (if (session :is_admin)
-    (stats session params)
-    (resp-error "BAD_REQUEST")))
-
 ;; Parsing
 
 (defn maybe-parse-int 
-- 
cgit v1.2.3-70-g09d2