brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add -list action.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-29 19:07:06 +02:00
parent fc80430217
commit 313ba6971d
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/hackerbase.scm
View file

@ -151,6 +151,8 @@
(-action- 'unpaired)) (-action- 'unpaired))
(-edit () "Edit selected user" (-edit () "Edit selected user"
(-action- 'edit)) (-action- 'edit))
(-list () "Lists active members"
(-action- 'list))
"" ""
"Id Management Actions:" "Id Management Actions:"
(-idstats () "Returns information about available member ids" (-idstats () "Returns information about available member ids"
@ -359,7 +361,7 @@
(print "Mailman synchronization disabled with manually specified current month."))) (print "Mailman synchronization disabled with manually specified current month.")))
((notify) ((notify)
(let ((nmembers (members-to-notify MB (-notify-months-)))) (let ((nmembers (members-to-notify MB (-notify-months-))))
/ (newline) (newline)
(if (null? nmembers) (if (null? nmembers)
(print "Everyone paid on time.") (print "Everyone paid on time.")
(let () (let ()
@ -388,6 +390,11 @@
(if (-send-emails-) (if (-send-emails-)
(make+send-summary-email MB) (make+send-summary-email MB)
(make+print-summary-email MB))) (make+print-summary-email MB)))
((list)
(for-each (lambda (mr)
(print (brmember-nick mr)))
(find-members-by-predicate MB brmember-active?)
))
(else (else
(print "Nothing to do. Try running with: -h")) (print "Nothing to do. Try running with: -h"))