srv/scripts/cron-remove-inactive-users.lisp
Circling Skies 847c11ad95 Writes index in the UNIX way.
Adds support for TAGS in noweb files.

I really don't know whether the above is complete or not.
2025-09-19 20:13:56 -03:00

10 lines
315 B
Common Lisp

#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
(ql:quickload :loop :silent t)
(in-package #:loop)
(read-accounts!)
(remove-inactive-users!)
(write-accounts!)