turning everything on.
This commit is contained in:
@@ -20,7 +20,10 @@
|
||||
(let [[{:keys [message-id receipt-handle body]}] (:messages (sqs/receive-message {:queue-url queue-url
|
||||
:wait-time-seconds 1
|
||||
:count 1}))]
|
||||
|
||||
(when message-id
|
||||
(sqs/delete-message {:queue-url queue-url
|
||||
:receipt-handle receipt-handle} )
|
||||
(log/infof "processing message %s with body %s" message-id body )
|
||||
(cond
|
||||
(= ":intuit" body)
|
||||
@@ -46,8 +49,7 @@
|
||||
(p/import-plaid)
|
||||
(catch Exception e
|
||||
(log/error e))))
|
||||
(sqs/delete-message {:queue-url queue-url
|
||||
:receipt-handle receipt-handle} )))))
|
||||
))))
|
||||
|
||||
(defn fake-message []
|
||||
(sqs/send-message {:queue-url (:requests-queue-url env)
|
||||
|
||||
@@ -186,7 +186,7 @@
|
||||
:error
|
||||
|
||||
(not= "POSTED" (:transaction/status transaction))
|
||||
:not-posted
|
||||
:not-ready
|
||||
|
||||
(and (:bank-account/start-date bank-account)
|
||||
(not (t/after? (coerce/to-date-time (:transaction/date transaction))
|
||||
|
||||
@@ -66,5 +66,5 @@
|
||||
|
||||
|
||||
(mount/defstate import-worker
|
||||
:start (scheduler/every (* 1000 60 60 4) import-yodlee)
|
||||
:start (scheduler/every (* 1000 60 60 8) import-yodlee)
|
||||
:stop (scheduler/stop import-worker))
|
||||
|
||||
@@ -45,8 +45,12 @@
|
||||
#'sysco/sysco-invoice-importer
|
||||
#'auto-ap.background.invoices/close-auto-invoices-worker
|
||||
#'gq-clients/current-balance-worker
|
||||
|
||||
|
||||
#'yodlee/import-worker
|
||||
#'yodlee2/import-worker
|
||||
#'yodlee2/account-worker
|
||||
#'intuit/import-worker
|
||||
#'intuit/account-worker
|
||||
#'plaid/import-worker
|
||||
#'migrate/migrate-start]))]
|
||||
(log/info "starting without " without)
|
||||
|
||||
@@ -55,10 +59,4 @@
|
||||
(apply mount/start-without without)))
|
||||
|
||||
(comment
|
||||
#'yodlee/import-worker
|
||||
#'yodlee2/import-worker
|
||||
#'yodlee2/account-worker
|
||||
#'intuit/import-worker
|
||||
#'intuit/account-worker
|
||||
#'plaid/import-worker
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user