]> code.bitgloo.com Git - clyne/bitgloo-web.git/commitdiff
better logging
authorClyne Sullivan <clyne@bitgloo.com>
Mon, 22 May 2023 14:28:21 +0000 (10:28 -0400)
committerClyne Sullivan <clyne@bitgloo.com>
Mon, 22 May 2023 14:28:21 +0000 (10:28 -0400)
project.clj
src/bitgloo_web/core.clj

index 538a8fdb6c08a7f8c373e33aa10432aaf08f98fb..9db96b3ba75e660e5217a706051d4047a219d294 100644 (file)
@@ -1,4 +1,4 @@
-(defproject bitgloo-web "0.4"
+(defproject bitgloo-web "0.5"
   :description "bitgloo website framework"
   :url "https://bitgloo.com"
   :license {:name "GPL-3.0-or-later" :url "https://www.gnu.org/licenses/gpl-3.0.en.html"}
index ba34e71c08c025e2d898b8192cfd401040b82b59..bd4ba6b1d00fbe4b4449a6f556365d863a008065 100644 (file)
   (fn [request]
     (when (= :get (:request-method request)) (handler request))))
 
-(defn wrap-log-request [handler]
+(defn wrap-log-transactions [handler]
   (fn [request]
-    (-> request
-        (select-keys [:headers :protocol :request-method :uri])
-        (update :headers get "x-forwarded-for")
-        (vals)
-        (conj "request:")
-        ((partial apply println)))
-    (handler request)))
+    (let [response (handler request)]
+      (println
+        (get-in request [:headers "x-forwarded-for"])
+        "-"
+        (str (java.util.Date.))
+        "-"
+        (:request-method request)
+        (:uri request)
+        (:protocol request)
+        "-"
+        (:status response))
+      response)))
 
 (defn wrap-not-found [handler] (fn [request] (or (handler request) not-found)))
 
@@ -58,7 +63,7 @@
           (wrap-not-modified)
           (wrap-only-gets)
           (wrap-not-found)
-          (wrap-log-request)
+          (wrap-log-transactions)
           (run-jetty {:port port})))
     (println "usage: bitgloo port content-path")))