From 90537b1498485f7571cedd47ed5700cd49f82afe Mon Sep 17 00:00:00 2001
From: Scott Ostler <sbostler@gmail.com>
Date: Thu, 11 Nov 2010 13:34:49 -0500
Subject: Removed unused db functions

---
 src/site.clj | 72 ------------------------------------------------------------
 1 file changed, 72 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index 3029f6a..6f97c81 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -110,34 +110,6 @@
                    (new-messages room ts))
    "favs"     (new-favs nick ts)})
 
-(defn count-messages-by-nick [nick image-only]
-  (let [query (str "SELECT COUNT(*)
-		    FROM messages m, users u, rooms r
-		    WHERE m.user_id = u.user_id AND u.nick = ?
-                    AND r.room_id = m.room_id AND r.admin_only = false "
-		   (if image-only "AND m.is_image = true " ""))]
-    (do-count [query nick])))
-
-(defn fetch-messages-by-nick 
-  ([nick image-only] (fetch-messages-by-nick nick image-only 0))
-  ([nick image-only offset]
-     (let [query (str "SELECT m.content, m.created_on, m.message_id, u.nick, u.avatar, r.key
-                       FROM messages m, users u, rooms r
-                       WHERE m.user_id = u.user_id AND u.nick = ?
-                       AND r.room_id = m.room_id AND r.admin_only = false "
-                      (if image-only "AND m.is_image = true " "")
-                      "ORDER BY created_on DESC
-                       LIMIT ? OFFSET ?")]
-       (do-select [query nick *dumps-per-page* offset]))))
-
-(defn fetch-message-by-id [m-id]
-  (let [query "SELECT m.message_id, m.content, m.created_on, m.user_id,
-                      u.nick, u.avatar, r.key, r.admin_only
-               FROM messages m, users u, rooms r
-               WHERE m.user_id = u.user_id
-               AND r.room_id = m.room_id
-               AND m.message_id = ?"]
-    (first (do-select [query (maybe-parse-int m-id -1)]))))
 
 (defn fetch-public-message-by-id [m-id]
   (let [msg (tags/fetch-dump-by-id m-id)]
@@ -401,22 +373,6 @@ ORDER BY cnt DESC
                      (map
                       (comp take-images :content)
                       dumps))))))
-  
-(defn count-dumps-posted [nick]
-  (:count
-   (first 
-    (do-select ["select count(*) from messages m, users u
-                 where m.user_id = u.user_id and lower(u.nick) = ?
-                 and m.is_image = true" (.toLowerCase nick)]))))
-
-(defn count-dumps-user-faved [nick]
-  (:count
-   (first
-    (do-select ["select count(distinct(m.message_id)) from users u, tags t, messages m
-                 where lower(u.nick) = ? and u.user_id = t.user_id
-                 and t.tag = 'favorite'
-                 and t.message_id = m.message_id and m.is_image = true"
-		(.toLowerCase nick)]))))
 
 (defn profile
   ([session profile-nick] (profile session profile-nick "profile"))
@@ -602,34 +558,6 @@ order by count desc limit ? offset ?")
       "score_ent" (score-to-entity score)
       "score"     score)))
 
-(defn recent-posts-query [user-id]
-  (format "
-SELECT    u.user_id, u.nick, u.avatar,
-          m.content, m.message_id%s
-FROM      users u
-LEFT JOIN messages m on m.message_id =
-           (SELECT message_id FROM messages
-            WHERE user_id = u.user_id
-            AND is_image
-            AND room_id IN (SELECT room_id from rooms where admin_only = false)
-            ORDER BY created_on desc LIMIT 1)
-WHERE  u.user_id = ANY(?)"
-          (if user-id
-            (format
-             ",
-          EXISTS (SELECT 1 FROM tags
-                  WHERE tag = 'favorite' AND user_id = %s AND message_id = m.message_id) AS favorited"
-             user-id)
-            ", false AS favorited")))
-
-(defn lookup-recent-posts [user-tag-id user-ids]
-  (do-select [(recent-posts-query user-tag-id)
-              (sql-array "int" user-ids)]))
-
-(defn lookup-recent-posts-tagless [user-tag-id user-ids]
-  (do-select [(recent-posts-query nil)
-              (sql-array "int" user-ids)]))
-
 (def directory-cache-ttl (minutes 10))
 (def memoized-lookup-recent-posts-tagless
      (ttl-memoize lookup-recent-posts-tagless directory-cache-ttl))
-- 
cgit v1.2.3-70-g09d2