-
Notifications
You must be signed in to change notification settings - Fork 6
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Migrate to sentry-clj. Getting rid of raven lib. (#65)
- Migration to sentry-clj library. - Getting rid of unsupported raven library.
- Loading branch information
1 parent
e442ea2
commit c3fa4f4
Showing
7 changed files
with
151 additions
and
38 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,115 @@ | ||
| (ns spootnik.reporter.sentry | ||
| (:require | ||
| [sentry-clj.core :as sentry-io] | ||
| [manifold.deferred :as d] | ||
| [clojure.string :as str] | ||
| [clojure.tools.logging :refer [error]] | ||
| [clojure.java.shell :as sh])) | ||
|
|
||
| (def http-requests-payload-stub | ||
| "Storage for stubbed http sentry events " | ||
| (atom nil)) | ||
|
|
||
| (defn in-memory? [dsn] | ||
| (or (= dsn ":memory:") | ||
| (nil? dsn))) | ||
|
|
||
| (def hostname-refresh-interval | ||
| "How often to allow reading /etc/hostname, in seconds." | ||
| 60) | ||
|
|
||
| (defn get-hostname | ||
| "Get the current hostname by shelling out to 'hostname'" | ||
| [] | ||
| (or | ||
| (try | ||
| (let [{:keys [exit out]} (sh/sh "hostname")] | ||
| (when (= exit 0) | ||
| (str/trim out))) | ||
| (catch Exception _)) | ||
| "<unknown>")) | ||
|
|
||
| (defn hostname | ||
| "Fetches the hostname by shelling to 'hostname', whenever the given age | ||
| is stale enough. If the given age is recent, as defined by | ||
| hostname-refresh-interval, returns age and val instead." | ||
| [[age val]] | ||
| (if (and val (<= (* 1000 hostname-refresh-interval) | ||
| (- (System/currentTimeMillis) age))) | ||
| [age val] | ||
| [(System/currentTimeMillis) (get-hostname)])) | ||
|
|
||
| (let [cache (atom [nil nil])] | ||
| (defn localhost | ||
| "Returns the local host name." | ||
| [] | ||
| (if (re-find #"^Windows" (System/getProperty "os.name")) | ||
| (or (System/getenv "COMPUTERNAME") "localhost") | ||
| (or (System/getenv "HOSTNAME") | ||
| (second (swap! cache hostname)))))) | ||
|
|
||
| (defn- payload->sentry-request [payload] | ||
| {:url (-> payload :uri) | ||
| :method (-> payload :request-method name clojure.string/upper-case) | ||
| :query-string (-> payload :query-string) | ||
| :headers (-> payload :headers)}) | ||
|
|
||
| (defn e->sentry-event | ||
| " | ||
| Supported event keys: | ||
| https://github.com/getsentry/sentry-clj/tree/master?tab=readme-ov-file#supported-event-keys | ||
| " | ||
|
|
||
| [e options tags] | ||
| (let [{:keys [message extra throwable]} e | ||
| message (or message (ex-message e)) | ||
| user (some-> extra :org/uuid str) | ||
| fingerprints (some-> options :fingerpint seq) | ||
| request (some-> extra :payload payload->sentry-request)] | ||
|
|
||
| (cond-> {:message message | ||
| :level :error | ||
| :platform "java" | ||
| :server-name (localhost)} | ||
|
|
||
| throwable (assoc :throwable throwable) | ||
| extra (assoc :extra extra) | ||
| (seq tags) (assoc :tags tags) | ||
| user (assoc :user user) | ||
| fingerprints (assoc :fingerprints fingerprints) | ||
| request (assoc :request request)))) | ||
|
|
||
| (defn send-event! [dsn options e tags] | ||
| (let [event (e->sentry-event e options tags)] | ||
| (if-not (in-memory? dsn) | ||
| (-> (try | ||
| (sentry-io/send-event event) | ||
| (catch Exception e | ||
| (d/error-deferred e))) | ||
|
|
||
| (d/chain | ||
| (fn [event-id] | ||
| (error e (str "captured exception as sentry event: " event-id)) | ||
| event-id)) | ||
|
|
||
| (d/catch (fn [e'] | ||
| (error e "Failed to capture exception" {:tags tags :capture-exception e'}) | ||
| (send-event! dsn options e' tags)))) | ||
|
|
||
| (swap! http-requests-payload-stub conj event)))) | ||
|
|
||
| (defn init! | ||
| " | ||
| Additional options can be found here: | ||
| https://github.com/getsentry/sentry-clj/tree/master?tab=readme-ov-file#additional-initialisation-options | ||
| " | ||
|
|
||
| [{:keys [dsn] :as sentry}] | ||
| (if-not (in-memory? dsn) | ||
| (sentry-io/init! dsn sentry) | ||
| (reset! http-requests-payload-stub []))) | ||
|
|
||
| (defn close! [{:keys [dsn]}] | ||
| (if-not (in-memory? dsn) | ||
| (sentry-io/close!) | ||
| (reset! http-requests-payload-stub nil))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters