added frontpage code

1 files changed, 14 insertions, 4 deletions

diff --git a/src/site.clj b/src/site.clj
index 90db5dc..43e7f9a 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -192,8 +192,18 @@
 
 ;; Landing
 
+(defn front-page [session]
+  (let [st        (fetch-template "frontpage" session)
+        date-str  (format-yyyymmdd (Date.))
+        dumps     (map process-message-for-output
+                       (fetch-redis-daily-hall date-str 0 100))]
+    (.setAttribute st "dumps" dumps)
+    (.toString st)))
+
 (defn landing [session]
-  (redirect-to "/chat"))
+  (if (is-vip? session)
+    (front-page session)
+    (redirect-to "/chat")))
 
 (defn log-login [user_id ip]
   ;; i'm using do-cmds here because update-values can't deal with stuff like 'last_login = now()'
@@ -763,7 +773,7 @@ WHERE  user_id IN
    (when (and (= tag "favorite")
               (not (= (msg :nick) (:nick user))))
      (if-not (or (:admin_only msg) (= (:user_id user) (:user_id msg)))
-       (incrby-redis-favscore! (:nick msg) (:message_id msg) 1 (:is_image msg)))
+       (incrby-redis-favscore! msg 1))
      (insert-fav-notification! (msg :nick)
                                (user :nick)
                                (user :avatar)
@@ -801,7 +811,7 @@ WHERE  user_id IN
       (if-not (zero? rows-deleted)
         (do
           (if-not (or (:admin_only msg) (= user-id (:user_id msg)))
-            (incrby-redis-favscore! (:nick msg) msg-id -1 (:is_image msg)))
+            (incrby-redis-favscore! msg -1))
           (resp-success "OK"))
         (resp-error "NO_TAG")))))
 
@@ -1126,7 +1136,7 @@ WHERE  user_id IN
     (.setAttribute st "dumps" (map process-message-for-output msgs))
     (.toString st)))
 
-;; MGMT logic
+;; MGMT
 
 (def mgmt-pw "idontgetit")