gered/toascii
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add app startup couchdb status checking

Browse source
This commit is contained in:
Gered 2014-04-06 13:17:56 -04:00
parent f8de73478e
commit 867d5ea9e5
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/toascii/handler.clj
View file

@ -1,5 +1,6 @@
(ns toascii.handler (ns toascii.handler
(:require [compojure.core :refer [defroutes]] (:require [clojure.string :as str]
[compojure.core :refer [defroutes]]
[compojure.route :as route] [compojure.route :as route]
[noir.util.middleware :refer [app-handler]] [noir.util.middleware :refer [app-handler]]
[taoensso.timbre :refer [log set-config!]] [taoensso.timbre :refer [log set-config!]]
@ -7,6 +8,7 @@
[clj-jtwig.core :as jtwig] [clj-jtwig.core :as jtwig]
[clj-jtwig.web.middleware :refer [wrap-servlet-context-path]] [clj-jtwig.web.middleware :refer [wrap-servlet-context-path]]
[toascii.route-utils :refer [find-routes]] [toascii.route-utils :refer [find-routes]]
[toascii.models.db :as db]
[toascii.models.flf :as flf] [toascii.models.flf :as flf]
[toascii.util :refer [log-formatter]] [toascii.util :refer [log-formatter]]
[toascii.config :refer [load-config!]] [toascii.config :refer [load-config!]]
@ -30,6 +32,11 @@
(load-config!) (load-config!)
(log :info "Checking DB status ...")
(if-let [missing-dbs (db/check-status)]
(log :error (str "Databases missing or not available: " (str/join "\n" missing-dbs)))
(log :info "DB status check passed."))
(reset! ring-app (reset! ring-app
(app-handler (app-handler
(find-routes "toascii.routes." app-routes) (find-routes "toascii.routes." app-routes)