logging: Add basic logging middleware

apossiblespace · Sep 9, 2024 · e0006bf · e0006bf
1 parent 57ffaeb
commit e0006bf
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/apossiblespace/parts.clj b/src/apossiblespace/parts.clj
@@ -48,6 +48,7 @@
        ["/register"
         {:post {:handler account/register-account}}]]]]
     {:data {:middleware [middleware/exception
+                         middleware/logging
                          [wrap-json-body {:keywords? true}]
                          wrap-json-response
                          auth/wrap-jwt-authentication]}})

diff --git a/src/apossiblespace/parts/api/middleware.clj b/src/apossiblespace/parts/api/middleware.clj
@@ -44,3 +44,11 @@
        {:status 500
         :body {:error "Internal server error"}})
      })))
+
+(defn logging
+  [handler]
+  (fn [request]
+    (let [user-id (get-in request [:identity :sub])
+          authenticated? (boolean user-id)]
+      (mulog/log ::request :request request, :authenticated? authenticated? :user-id user-id)
+      (handler request))))