front page going live

1 files changed, 3 insertions, 5 deletions

diff --git a/src/site.clj b/src/site.clj
index fdcf089..b5f400b 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -194,16 +194,14 @@
 
 (defn front-page [session]
   (let [st        (fetch-template "frontpage" session)
-        date-str  "20100503";(format-yyyymmdd (Date.))
+        date-str  (format-yyyymmdd (Date.))
         dumps     (map process-message-for-output
-                       (fetch-redis-daily-hall date-str 0 30))]
+                       (fetch-redis-daily-hall date-str 0 20))]
     (.setAttribute st "dumps" dumps)
     (.toString st)))
 
 (defn landing [session]
-  (if (is-vip? session)
-    (front-page session)
-    (redirect-to "/chat")))
+  (front-page session))
 
 (defn log-login [user_id ip]
   ;; i'm using do-cmds here because update-values can't deal with stuff like 'last_login = now()'