fix find permission issue with a hack

master
Nathaniel Smith 2015-02-10 10:45:37 -08:00
parent 5acf7ea3e1
commit 72c63189e1
1 changed files with 3 additions and 1 deletions

View File

@ -26,9 +26,11 @@
"(default :3)" "(default :3)"
"")))) ""))))
(defn bounded-find [path] (find path "-maxdepth" "3"))
(defn modify-time [username] (defn modify-time [username]
(->> (.format "/home/{}/public_html" username) (->> (.format "/home/{}/public_html" username)
find bounded-find
(map (fn [filename] (getmtime (.rstrip filename)))) (map (fn [filename] (getmtime (.rstrip filename))))
list list
max)) max))