request logging added

2014-10-05 09:57:41 +02:00
parent 0dfbfc0824
commit f039a4c23e
1 changed files with 2 additions and 0 deletions
@@ -147,6 +147,8 @@
            hostURL (str (name scheme) "://" server-name
                          (when (not= 80 server-port) (str ":" server-port)))
            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)
        (handler request)
        (try (handler request)