sigh
这个提交包含在:
父节点
8490275d3c
当前提交
eb6bc8fbd1
@ -28,10 +28,17 @@
|
||||
|
||||
(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]
|
||||
(->> (.format "/home/{}/public_html" username)
|
||||
bounded-find
|
||||
(map (fn [filename] (getmtime (.rstrip filename))))
|
||||
(map guarded-mtime)
|
||||
list
|
||||
max))
|
||||
|
||||
|
在新工单中引用
屏蔽一个用户