From 438747cbab4d6c81f1257c8c3e875aa7cd452a87 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Wed, 22 Dec 2010 12:04:59 -0800 Subject: Add retry to directory fetch --- src/site.clj | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index fc7d541..3ec07a5 100644 --- a/src/site.clj +++ b/src/site.clj @@ -566,8 +566,19 @@ ORDER BY cnt DESC (for [u users] (merge u (find-first #(= (:nick u) (:nick %)) res)))))) +(defn try-execute [f n] + (try + (f) + (catch Exception e + (if (> n 0) + (try-execute f (dec n)) + (throw e))))) + +(def redis-directory-attempts 3) + (defn get-directory-info [user-id offset] - (let [res (fetch-redis-directory offset *per-directory-page*)] + (let [res (try-execute #(fetch-redis-directory offset *per-directory-page*) + redis-directory-attempts)] (map process-directory-entry (add-recent-posts-nick user-id res)))) @@ -1430,7 +1441,7 @@ ORDER BY cnt DESC (start-user-flusher!) (start-session-pruner!) -;(if (not= *server-url* "http://dump.fm") -; (start! random-poster)) +(if (not= *server-url* "http://dump.fm") + (start! random-poster)) -- cgit v1.2.3-70-g09d2