diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2011-01-02 16:05:23 -0500 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2011-01-02 16:05:23 -0500 |
| commit | b56c385a5fcf2baf915308147a593d1411fe2db0 (patch) | |
| tree | 415bbfc60b0228d951d569ee3ae44871b8bf7047 /src | |
| parent | e973500ec25b37d60fcfb0da25b341187fe7a359 (diff) | |
| parent | 8d44926c18bd96f9dd5b6da59e3c1b1704438e03 (diff) | |
Resolve dailyimgupload
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 17 |
1 files changed, 14 insertions, 3 deletions
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)) |