update src, scripts, etc from 2012

1 files changed, 6 insertions, 2 deletions

diff --git a/src/site.clj b/src/site.clj
index f386f2a..44b0c07 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -225,6 +225,7 @@
        (if-let [[prev-date cur-date next-date] (parse-front-page-date dt-str)]
          (cond (.before cur-date earliest-daily-hall) (redirect-to "/")
                (.after cur-date today)                (redirect-to "/")
+               ;(not (:nick session))                  (serve-meme session "fullscreen")
                :else (let [st        (fetch-template "frontpage" session)
                            dumps     (map process-message-for-output
                                           (if (:nick session)
@@ -237,6 +238,7 @@
                        (if-not (.before prev-date earliest-daily-hall)
                          (.setAttribute st "prev_date"    (format-yyyymmdd prev-date)))
                        (.setAttribute st "current_date" (format-yyyymmdd cur-date))
+                       (.setAttribute st "timestamp" (System/currentTimeMillis))
                        (.toString st)))
          (redirect-to "/")))))
 
@@ -952,8 +954,9 @@ WHERE  user_id IN
   (str "select 
   url from image_urls
   where url ilike " (str-join " and url ilike " (take num-tokens (repeat "?"))) "
-  order by last_posted desc 
+  order by random()
   limit 200;"))
+;;  order by last_posted desc 
 
 ;; note: _ is a wildcard in a postgres 'like' query... 
 (defn search-replace-weird-chars [token]
@@ -1268,7 +1271,7 @@ WHERE  user_id IN
 
   ;; TODO: add form tokens for all destructive actions
   (POST "/msg" (validated-msg session params request))
-  (POST "/submit-registration" (register session params request))
+  (POST "/dubmit-registration" (register session params request))
   (POST "/update-profile" (update-profile session params))
   (GET "/directory" (directory session 0))
   (GET "/directory/:offset"
@@ -1282,6 +1285,7 @@ WHERE  user_id IN
   (GET  "/debug" (debug-page session flash))
   (POST "/debug" (debug-commmand! session params))
   (GET  "/mutes" (show-mutes session))
+  (GET  "/users" (show-users session))
   (GET  "/roomlist" (show-rooms session))
   (POST "/mute" (mute! session params))
   (POST "/cancel-mute" (handle-cancel-mute! session params))