request logging added

This commit is contained in:
Christian Müller
2014-10-05 09:57:41 +02:00
parent 0dfbfc0824
commit f039a4c23e
+2
View File
@@ -147,6 +147,8 @@
hostURL (str (name scheme) "://" server-name hostURL (str (name scheme) "://" server-name
(when (not= 80 server-port) (str ":" server-port))) (when (not= 80 server-port) (str ":" server-port)))
request (assoc-in request [:params :hostURL] hostURL)] request (assoc-in request [:params :hostURL] hostURL)]
(println (str (java.util.Date.) ":") (request :request-method) (str hostURL (request :uri)) "-"
((request :headers) "user-agent"))
(if (get-setting :dev-mode) (if (get-setting :dev-mode)
(handler request) (handler request)
(try (handler request) (try (handler request)