johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-12 06:24:17 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki Activity

🐛 Fix ip-addr parsing issue when it comes with port

Browse Source
This commit is contained in:
Andrey Antukh
2024-07-12 10:42:59 +02:00
parent f4b59cc5a0
commit a54160965d
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
backend/src/app/loggers/audit.clj
View File

@@ -35,9 +35,13 @@
(defn parse-client-ip (defn parse-client-ip
[request] [request]
(or (some-> (rreq/get-header request "x-forwarded-for") (str/split ",") first) (let [ip-addr (or (some-> (rreq/get-header request "x-forwarded-for") (str/split ",") first)
(rreq/get-header request "x-real-ip") (rreq/get-header request "x-real-ip")
(some-> (rreq/remote-addr request) str))) (some-> (rreq/remote-addr request) str))
ip-addr (-> ip-addr
(str/split ":" 2)
(first))]
ip-addr))
(defn extract-utm-params (defn extract-utm-params
"Extracts additional data from params and namespace them under "Extracts additional data from params and namespace them under