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

Integrate mlcheck into default info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-30 17:10:58 +02:00
parent 6580480502
commit 13985085ca
2 changed files with 21 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/hackerbase.scm
View file

@ -170,8 +170,6 @@
(-fname- file:gnuplot-data))
""
"Mailman Actions:"
(-mlcheck () "Check internal ML"
(-action- 'mlcheck))
(-mlsync () "Synchronize internal ML"
(-action- 'mlsync))
""
@ -275,7 +273,23 @@
(newline)
(if mr
(print-member-table mr)
(print-members-base-table MB))
(let ()
(print-members-base-table MB)
(newline)
(let-values (((missing surplus)
(mailman-compare-members internal-ml
(mbase-active-emails MB #:suspended #t))))
(if (null? (cdr internal-ml))
(print "Skipping ML check - not loaded")
(if (and (null? missing)
(null? surplus))
(print "Internal mailing list membership in sync.")
(let ()
(print "Internal mailing list:")
(when (not (null? missing))
(print " Missing: " missing))
(when (not (null? surplus))
(print " Outsiders: " surplus))))))))
(newline))
((print-stats)
(newline)
@ -342,19 +356,6 @@
(if (-normal-month-)
(mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t))
(print "Mailman synchronization disabled with manually specified current month.")))
((mlcheck)
(let-values (((missing surplus)
(mailman-compare-members internal-ml
(mbase-active-emails MB #:suspended #t))))
(if (and (null? missing)
(null? surplus))
(print "Internal mailing list membership in sync.")
(let ()
(print "Internal mailing list:")
(when (not (null? missing))
(print " Missing: " missing))
(when (not (null? surplus))
(print " Outsiders: " surplus))))))
((notify)
(let ((nmembers (members-to-notify MB (-notify-months-))))
(newline)