From da15cfb1e452a0af4902272ba351d5a6d0d0b56a Mon Sep 17 00:00:00 2001 From: dumpfmprod Date: Tue, 17 Jul 2012 21:40:57 -0400 Subject: update src, scripts, etc from 2012 --- src/site.clj | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/site.clj') 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)) -- cgit v1.2.3-70-g09d2