This repository has been archived by the owner on Apr 29, 2023. It is now read-only.
/
appender.clj
108 lines (95 loc) · 4.28 KB
/
appender.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
;; mostly copied from https://github.com/yeller/yeller-timbre-appender/blob/master/src/yeller/timbre_appender.clj
;; Thanks Tom!
(ns oc.lib.sentry.appender
(:require [sentry-clj.core :as sentry]
[taoensso.timbre :as timbre]))
(def stacktrace-depth 20)
(defn- extract-ex-data [throwable]
(if-let [data (ex-data throwable)]
{:ex-data data}
{}))
(defn- extract-arg-data [raw-args]
(if-let [m (first (filter map? raw-args))]
m
{}))
(defn- extract-data [throwable raw-args]
(let [arg-data (extract-arg-data raw-args)
ex-data (extract-ex-data throwable)]
(merge
arg-data
{:custom-data (merge ex-data (:custom-data arg-data {}))})))
(defn- extract-message [args]
(clojure.string/join " " (map str args)))
(defn- trim-stacktrace
"Reduce the stacktrace to just `stacktrace-depth` many frames to avoid too big a body for Sentry."
[ex-map]
(let [ex (-> ex-map :exception first)
trimmed (reverse
(take stacktrace-depth
(-> ex
:stacktrace
:frames
reverse)))]
(assoc ex-map :exception [(assoc-in ex [:stacktrace :frames] trimmed)])))
(defn appender
"Sentry timbre appender to send error level messages with a throwable to Sentry."
[{:keys [dsn release environment]}]
(assert dsn (str "The Sentry appender requires a dsn, none given:" dsn))
(let [sentry-client (sentry/init! dsn)]
(when release
(.setRelease sentry-client release))
(when environment
(.setEnvironment sentry-client environment)))
{:doc "A timbre appender that sends errors to getsentry.com"
:min-level :error ; critical this not drop to warn or below as this appender logs at warning level (infinite loop!)
:enabled? true
:async? true
:rate-limit nil
:fn (fn [args]
(timbre/warn "Sentry appender: invoked")
(let [throwable @(:?err_ args)
data (if throwable
(extract-data throwable @(:vargs_ args))
(extract-message (:vargs args)))
payload (cond-> {:message data}
throwable (assoc :message (.getMessage throwable))
throwable (assoc-in [:extra :exception-data] data)
throwable (assoc :throwable throwable)
; environment (assoc :environment environment)
; release (assoc :release release)
;; Disable for now
; false (trim-stacktrace)
; false (sentry-interfaces/stacktrace throwable)
)
result (try (sentry/send-event payload)
(catch Exception e
e))]
(timbre/warn "Sentry appender: captured -\n" result)))})
(comment
;; for repl testing
(do (require '[taoensso.timbre :as timbre])
(require '[oc.lib.sentry.appender :reload true])
(timbre/merge-config! {:appenders {:sentry-appender (oc.lib.sentry.appender/appender
{:dsn "https://50ad5c0d6ffa47119259403854dc4d5d:2721d28d6622450c85cec0d4b5ea27e8@sentry.io/51845"
:environment "test"})}})
(dotimes [_ 1]
(timbre/error (ex-info "921392813" {:foo 1})
{:custom-data {:params {:user-id 1}}})))
(do (require '[taoensso.timbre :as timbre])
(require '[oc.lib.sentry.appender :reload true])
(timbre/merge-config! {:appenders {:sentry-appender (oc.lib.sentry.appender/appender
{:dsn "https://50ad5c0d6ffa47119259403854dc4d5d:2721d28d6622450c85cec0d4b5ea27e8@sentry.io/51845"})}})
(dotimes [_ 1]
(try
(/ 1 0)
(catch Exception e
(timbre/error e)))))
(do (require '[taoensso.timbre :as timbre])
(require '[oc.lib.sentry-appender :reload true])
(timbre/merge-config! {:appenders {:sentry-appender (oc.lib.sentry-appender/sentry-appender
{:dsn "https://50ad5c0d6ffa47119259403854dc4d5d:2721d28d6622450c85cec0d4b5ea27e8@sentry.io/51845"
:environment "local"
:release "your-release-LAST_COMMIT_SHA"})}})
(dotimes [_ 1]
(timbre/error "Test just" "string stuff")))
)