zilti
/
sompani-toolbox
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed warnings, set the MX priority default to 0

This commit is contained in:
Daniel Ziltener 2020-08-21 15:25:47 +02:00
parent d2b9c6a32b
commit 532bb967c3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/com/sompani/onboarding.clj
View File

@ -9,7 +9,7 @@
LinkOption) LinkOption)
(java.nio.file.attribute PosixFileAttributeView (java.nio.file.attribute PosixFileAttributeView
FileAttribute) FileAttribute)
(java.io BufferedReader File) (java.io BufferedReader #_File)
(org.openqa.selenium.firefox FirefoxDriver) (org.openqa.selenium.firefox FirefoxDriver)
(org.openqa.selenium By))) (org.openqa.selenium By)))
@ -93,7 +93,7 @@
(Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS])) (Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
(.setOwner owner))) (.setOwner owner)))
(defn- set-group [path group] #_(defn- set-group [path group]
(-> (->
(Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS])) (Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
(.setGroup group))) (.setGroup group)))
@ -152,7 +152,7 @@
(printf " ok.\n")) (printf " ok.\n"))
;; ## Certificates ;; ## Certificates
(defn generate-certs! [{:keys [company-name company-domain] :as datamap}] (defn generate-certs! [{:keys [_company-name _company-domain] :as datamap}]
(println "Generating certificates...") (println "Generating certificates...")
(let [command (map #(cljstache/render % datamap) (let [command (map #(cljstache/render % datamap)
["certbot" "certonly" "--nginx" ["certbot" "certonly" "--nginx"
@ -174,8 +174,8 @@
{:type "A" :name (format "staging.%s" company-name) :content "185.163.117.139"} {:type "A" :name (format "staging.%s" company-name) :content "185.163.117.139"}
{:type "AAAA" :name company-name :content "2a03:4000:3b:2bb:18ea:e0ff:fe8c:aa9a"} {:type "AAAA" :name company-name :content "2a03:4000:3b:2bb:18ea:e0ff:fe8c:aa9a"}
{:type "AAAA" :name (format "staging.%s" company-name) :content "2a03:4000:3b:2bb:18ea:e0ff:fe8c:aa9a"} {:type "AAAA" :name (format "staging.%s" company-name) :content "2a03:4000:3b:2bb:18ea:e0ff:fe8c:aa9a"}
{:type "MX" :name company-name :content "mx.yandex.net." :priority 50} {:type "MX" :name company-name :content "mx.yandex.net." :priority 0}
{:type "MX" :name (format "m.%s.talent.careers" company-name) :content "feedback-smtp.eu-west-1.amazonses.com" :priority 50} {:type "MX" :name (format "m.%s.talent.careers" company-name) :content "feedback-smtp.eu-west-1.amazonses.com" :priority 0}
{:type "TXT" :name (format "m.%s.talent.careers" company-name) :content "v=spf1 include:amazonses.com ~all"} {:type "TXT" :name (format "m.%s.talent.careers" company-name) :content "v=spf1 include:amazonses.com ~all"}
{:type "TXT" :name (format "%s.talent.careers" company-name) :content "v=spf1 redirect=_spf.yandex.net"} {:type "TXT" :name (format "%s.talent.careers" company-name) :content "v=spf1 redirect=_spf.yandex.net"}
{:type "TXT" :name (format "_dmarc.%s" company-name) :content "v=DMARC1; p=none; rua=sompani-d@dmarc.report-uri.com"}]) {:type "TXT" :name (format "_dmarc.%s" company-name) :content "v=DMARC1; p=none; rua=sompani-d@dmarc.report-uri.com"}])
@ -197,10 +197,10 @@
;; # Main initialization ;; # Main initialization
(def cli-options (def cli-options
[["-d" "--domain VCDOMAIN" "The domain of the VC to onboard" [["-d" "--domain VCDOMAIN" "The domain of the VC to onboard. Example: connectventures.co"
:default nil :default nil
:id :vc-domain] :id :vc-domain]
["-n" "--name VCNAME" "The name of the VC to onboard" ["-n" "--name VCNAME" "The name of the VC to onboard. Example: connectventures"
:default nil :default nil
:id :vc-name] :id :vc-name]
[nil "--deploy-directories" "Create deploy directories"] [nil "--deploy-directories" "Create deploy directories"]
@ -219,7 +219,7 @@
nginx nginx
certify certify
help] help]
:as options} :as _options}
(:options (parse-opts args cli-options)) (:options (parse-opts args cli-options))
datamap {:company-name vc-name :company-domain vc-domain}] datamap {:company-name vc-name :company-domain vc-domain}]
(if help (if help