notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Alternative requset listener

Browse Source
This commit is contained in:
Bryce Covert
2021-12-18 19:28:58 -08:00
parent 64720a4bd6
commit 88f070550e
1 changed files with 15 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/background/requests.clj
View File

@@ -7,9 +7,9 @@
[auto-ap.intuit.import :as i] [auto-ap.intuit.import :as i]
[unilog.context :as lc])) [unilog.context :as lc]))
(def stopped? (atom false))
(defn process-1 [] (defn process-1 []
(lc/with-context {:source "Request poller"}
(log/info "Checking SQS...")
(let [[{:keys [message-id receipt-handle body]}] (:messages (sqs/receive-message {:queue-url (:requests-queue-url env) (let [[{:keys [message-id receipt-handle body]}] (:messages (sqs/receive-message {:queue-url (:requests-queue-url env)
:count 1}))] :count 1}))]
(when message-id (when message-id
@@ -20,23 +20,12 @@
(catch Exception e (catch Exception e
(log/error e)))) (log/error e))))
(sqs/delete-message {:queue-url (:requests-queue-url env) (sqs/delete-message {:queue-url (:requests-queue-url env)
:receipt-handle receipt-handle} )))) :receipt-handle receipt-handle} )))))
(defn fake-message [] (defn fake-message []
(sqs/send-message {:queue-url (:requests-queue-url env) (sqs/send-message {:queue-url (:requests-queue-url env)
:message-body ":intuit"} )) :message-body ":intuit"} ))
(defn listen-sqs []
(lc/with-context {:source "Request poller"}
(loop []
(process-1)
(log/info "Checking SQS....")
(Thread/sleep 5000)
(when-not @stopped?
(log/info "stopping")
(recur)))))
(mount/defstate request-listener (mount/defstate request-listener
:start (future (listen-sqs)) :start (scheduler/every (* 1000 5) process-1)
:stop (reset! stopped? true)) :stop (scheduler/stop request-listener))