Removed unused db functions

1 files changed, 0 insertions, 72 deletions

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))