Fixes
This commit is contained in:
parent
1a87b41140
commit
77c588b487
|
@ -20,18 +20,18 @@
|
||||||
|
|
||||||
(defn- set-owner [path owner]
|
(defn- set-owner [path owner]
|
||||||
(->
|
(->
|
||||||
(Files/getFileAttributeView path PosixFileAttributeView 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 LinkOption/NOFOLLOW_LINKS)
|
(Files/getFileAttributeView path PosixFileAttributeView (into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
|
||||||
(.setGroup group)))
|
(.setGroup group)))
|
||||||
|
|
||||||
(defn make-dirs! [{:keys [company-name]}]
|
(defn make-dirs! [{:keys [company-name]}]
|
||||||
(let [attrs (Files/readAttributes (.toPath (io/file "srv/http/www.sompani.com"))
|
(let [attrs (Files/readAttributes (.toPath (io/file "srv/http/www.sompani.com"))
|
||||||
PosixFileAttributeView
|
PosixFileAttributeView
|
||||||
LinkOption/NOFOLLOW_LINKS)
|
(into-array LinkOption [LinkOption/NOFOLLOW_LINKS]))
|
||||||
group (.group attrs)
|
group (.group attrs)
|
||||||
owner (.owner attrs)]
|
owner (.owner attrs)]
|
||||||
(doseq [dir-str ["/srv/http/staging.%s.talent.careers-cache"
|
(doseq [dir-str ["/srv/http/staging.%s.talent.careers-cache"
|
||||||
|
|
Loading…
Reference in New Issue