tildetown-scripts/scripts/userlist.hy

(import [os [listdir]])
(import [datetime [datetime]])

;; this script emits HTML on standard out that constitutes a user
;; list. It denotes who has not updated their page from the
;; default. It also reports the time this script was run.

(def timestamp (.strftime (.now datetime) "%Y-%m-%d %H:%M:%S"))

(defn slurp [filename]
  (try
    (.read (apply open [filename "r"] {"encoding" "utf-8"}))
  (catch [e Exception]
    "")))

(def default-html (slurp "/etc/skel/public_html/index.html"))

(defn dir->html [username]
  (let [[default (= default-html (slurp (.format "/home/{}/public_html/index.html" username)))]]
    (.format "<li><a href=\"http://tilde.town/~{}\">{}</a> {}</li>"
             username username
             (if default
               "(default :3)"
               ""))))

(def user-list (->> (listdir "/home")
                sorted
                (filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))
                (map dir->html)
                (.join "\n")))

(print (.format "<sub>generated at {}</sub><br><ul>{}</ul>" timestamp user-list))