scheduled-agents must be started now

1 files changed, 9 insertions, 4 deletions

diff --git a/src/site.clj b/src/site.clj
index 6eba82b..571aafb 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -261,14 +261,14 @@
 (defn load-invalid-nicks []
   (set (read-lines *reserved-nicks-path*)))
 
-(def *reserved-nicks*
+(def reserved-nicks
      (scheduled-agent load-invalid-nicks
                       *reserved-nicks-refresh-period-sec*
                       (load-invalid-nicks)))
 
 (defn nick-reserved? [nick]
   (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"]
-    (or (contains? (poll *reserved-nicks*) nick)
+    (or (contains? (poll reserved-nicks) nick)
         (> (count (do-select [query (lower-case nick)])) 0))))
 
 (defn register [session params]
@@ -993,8 +993,6 @@ FROM   users u
   (GET  "/mutes" (show-mutes session))
   (POST "/mute" (mute! session params))
   (POST "/cancel-mute" (handle-cancel-mute! session params))
-  (GET  "/feed-test" (feed-test-page session))
-  (POST "/feed-test" (feed-test session params))
   (GET  "/profile-test/:t" (profile session "ryder" "0" (params :t)))
 
   ;; Footer pages
@@ -1077,6 +1075,13 @@ FROM   users u
      (apply parse-command-args *command-line-args*))
 
 (load-rooms!)
+(start! reserved-nicks)
 (start-server (options :port))
+(start! *user-scores*)
+(start! *user-info*)
+
+(Thread/sleep 3000) ; Delay these to reduce start-load
 (start-user-flusher!)
 (start-session-pruner!)
+(start! feed-downloader)
+(start! feed-inserter)