fix: make sure it's valid url before trying to trigger webhook

1 files changed, 8 insertions, 4 deletions

diff --git a/src/weepinbell/webhook.clj b/src/weepinbell/webhook.clj
index cfd796e..77345c5 100644
--- a/src/weepinbell/webhook.clj
+++ b/src/weepinbell/webhook.clj
@@ -1,12 +1,16 @@
 (ns weepinbell.webhook
   (:require [clj-http.client :as client]
             [taoensso.timbre :as timbre]
-            [weepinbell.config :refer [get-config]]))
+            [weepinbell.config :refer [get-config]]
+            [weepinbell.utils :refer [valid-http-url?]]))
 
 (defn trigger [keyw]
   ;; keyw = on-receive...
   (when-let [hooks (get (get-config :webhook) keyw)]
-    (doall (map #((client/post %)
-                  (timbre/info "Webhook triggered: " %))
-                hooks))))
+    (->> hooks
+         (filter string?)
+         (filter valid-http-url?)
+         (map #((client/post %)
+                (timbre/info "Webhook triggered: " %)))
+         doall)))