tildetown
/
tildetown-scripts
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sigh

master
tilde.town 2015-02-10 19:00:18 +00:00
parent 8490275d3c
commit eb6bc8fbd1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/userlist.hy
View File

@ -28,10 +28,17 @@
(defn bounded-find [path] (find path "-maxdepth" "3")) (defn bounded-find [path] (find path "-maxdepth" "3"))
(defn guarded-mtime [filename]
(let [[path (.rstrip filename)]]
(try
(getmtime path)
(catch [e Exception]
0))))
(defn modify-time [username] (defn modify-time [username]
(->> (.format "/home/{}/public_html" username) (->> (.format "/home/{}/public_html" username)
bounded-find bounded-find
(map (fn [filename] (getmtime (.rstrip filename)))) (map guarded-mtime)
list list
max)) max))