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

Working dir, dns and nginx creation

This commit is contained in:
Daniel Ziltener 2019-12-09 15:13:27 +01:00
parent 77c588b487
commit 8c776921ee
1 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,8 @@
spy get-env]])
(:import (java.nio.file Files
LinkOption)
(java.nio.file.attribute PosixFileAttributeView)))
(java.nio.file.attribute PosixFileAttributeView
FileAttribute)))
(def vault-client (vault/new-client "http://127.0.0.1:8200"))
@ -29,11 +30,12 @@
(.setGroup group)))
(defn make-dirs! [{:keys [company-name]}]
(let [attrs (Files/readAttributes (.toPath (io/file "srv/http/www.sompani.com"))
PosixFileAttributeView
(into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
group (.group attrs)
owner (.owner attrs)]
(let [attrs (Files/getFileAttributeView (.toPath (io/file "/srv/http/www.sompani.com"))
PosixFileAttributeView
(into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
;; group (.group attrs)
owner (.getOwner attrs)
fattr (into-array FileAttribute [])]
(doseq [dir-str ["/srv/http/staging.%s.talent.careers-cache"
"/srv/http/staging.%s.talent.careers-logs"
"/srv/http/staging.%s.talent.careers-sessions"
@ -45,30 +47,33 @@
"/srv/http/%s.talent.careers-uploads"
"/srv/http/%s.talent.careers.1234"]
:let [dir (.toPath (io/file (format dir-str company-name)))]]
(Files/createDirectory dir nil)
(Files/createDirectory dir fattr)
(set-owner dir owner)
(set-group dir group)
;; (set-group dir group)
)
(let [link (.toPath (io/file (format "/srv/http/staging.%s.talent.careers" company-name)))]
(Files/createSymbolicLink link
(.toPath (io/file (format "/srv/http/staging.%s.talent.careers-1234" company-name)))
nil)
fattr)
(set-owner link owner)
(set-group link group))
;; (set-group link group)
)
(let [link (.toPath (io/file (format "/srv/http/%s.talent.careers" company-name)))]
(Files/createSymbolicLink link
(.toPath (io/file (format "/srv/http/%s.talent.careers-1234" company-name)))
nil)
fattr)
(set-owner link owner)
(set-group link group))))
;; (set-group link group)
)))
(defn create-nginx-server! [datamap]
(doseq [file ["resources/nginx/skel.talent.careers"
"resources/nginx/staging.skel.talent.careers"]
:let [out-file (format "/etc/nginx/servers-available/%s" (str/replace file #"skel" (:company-name datamap)))]]
(info "using template" file "to create" out-file)
(-> (slurp file)
(doseq [file ["skel.talent.careers"
"staging.skel.talent.careers"]
:let [in-file (str "resources/nginx/" file)
out-file (format "/etc/nginx/servers-available/%s" (str/replace file #"skel" (:company-name datamap)))]]
(info "using template" in-file "to create" out-file)
(-> (slurp in-file)
(cljstache/render datamap)
(spit out-file))))