moved to integreat
This commit is contained in:
@@ -1,5 +1,6 @@
|
||||
(ns auto-ap.db.companies
|
||||
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn assign-namespace]]
|
||||
(:require [auto-ap.db.utils :refer [assign-namespace clj->db db->clj
|
||||
get-conn]]
|
||||
[auto-ap.entities.companies :as entity]
|
||||
[clojure.edn :as edn]
|
||||
[clojure.java.jdbc :as j]))
|
||||
|
||||
@@ -33,7 +33,7 @@
|
||||
(insert-multi!
|
||||
(for [{:keys [total date invoice-number customer-identifier vendor] :as row} parsed-invoices]
|
||||
(do
|
||||
(println row)
|
||||
|
||||
(assoc row
|
||||
:company-id (::company/id (parse/best-match companies customer-identifier))
|
||||
:imported false
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
(ns auto-ap.db.vendors
|
||||
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn assign-namespace]]
|
||||
(:require [auto-ap.db.utils :refer [assign-namespace clj->db db->clj
|
||||
get-conn]]
|
||||
[auto-ap.entities.vendors :as entities]
|
||||
[clojure.edn :as edn]
|
||||
[clojure.java.jdbc :as j]))
|
||||
|
||||
@@ -2,7 +2,6 @@
|
||||
(:require [auto-ap.db.companies :as companies]
|
||||
[auto-ap.routes.utils :refer [wrap-secure wrap-spec]]
|
||||
[auto-ap.entities.companies :as entity]
|
||||
[clojure.spec.alpha :as s]
|
||||
[compojure.core :refer [GET PUT context defroutes
|
||||
wrap-routes]]))
|
||||
|
||||
|
||||
@@ -3,6 +3,7 @@
|
||||
[auto-ap.db.reminders :as reminders]
|
||||
[auto-ap.db.vendors :as vendors]
|
||||
[auto-ap.routes.utils :refer [wrap-secure]]
|
||||
[config.core :refer [env]]
|
||||
[clj-http.client :as http]
|
||||
[clj-time.coerce :as c]
|
||||
[clj-time.core :as time]
|
||||
@@ -42,7 +43,7 @@
|
||||
(doseq [{:keys [vendor-name email id]} reminders]
|
||||
(println "Sending email to" email)
|
||||
(ses/send-email :destination {:to-addresses [email]}
|
||||
:source "invoices@mail.integreat.aws.brycecovertoperations.com"
|
||||
:source (:invoice-email env)
|
||||
:message {:subject "Reminder to send invoices"
|
||||
:body {:html (str "<h1>Hello " vendor-name ",</h1><p>This is a reminder to send this week's invoices to us. You can just reply to this email.</p> <p> - Integreat. </p>")
|
||||
:text (str "Hello " vendor-name ",\r\nThis is a reminder to send this week's invoices to us. You can just reply to this email.\r\n - Integreat.")}})
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
(ns auto-ap.routes.utils
|
||||
(:require [clojure.spec.alpha :as s]
|
||||
[buddy.auth :refer [authenticated?]]))
|
||||
(:require [buddy.auth :refer [authenticated?]]
|
||||
[clojure.spec.alpha :as s]))
|
||||
|
||||
(defn wrap-secure [handler]
|
||||
(fn [request]
|
||||
|
||||
@@ -1,8 +1,7 @@
|
||||
(ns auto-ap.routes.vendors
|
||||
(:require [auto-ap.db.vendors :as vendors]
|
||||
[auto-ap.routes.utils :refer [wrap-secure wrap-spec]]
|
||||
[auto-ap.entities.vendors :as entity]
|
||||
[clojure.spec.alpha :as s]
|
||||
[auto-ap.routes.utils :refer [wrap-secure wrap-spec]]
|
||||
[compojure.core :refer [GET POST PUT context defroutes
|
||||
wrap-routes]]))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user