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

Sync members to ML - dry run.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 21:46:38 +02:00
parent 8c6230fe24
commit 5798d02edf
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/bbstool.scm
View file

@ -167,17 +167,19 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#f)) #f))
;; Load ML(s) and merge them ;; Load ML(s) and merge them
(define MB (define-values (MB internal-ml)
(if (-ml-all-) (if (-ml-all-)
(let () (let ()
(define mls (load-mailman-lists)) (define mls (load-mailman-lists))
(foldl (lambda (mb ml) (values (foldl (lambda (mb ml)
(members-base-merge-mailman mb ml)) (members-base-merge-mailman mb ml))
MB0 MB0
mls)) mls)
(find-maiman-list mls "internal")))
(let () (let ()
(define internal-ml (load-mailman-list "internal")) (define internal-ml (load-mailman-list "internal"))
(members-base-merge-mailman MB0 internal-ml)))) (values (members-base-merge-mailman MB0 internal-ml)
internal-ml))))
;; If a member is specified by either id or nick, get its record ;; If a member is specified by either id or nick, get its record
(define mr (define mr
@ -271,7 +273,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print-unpaired-table MB)) (print-unpaired-table MB))
((mlsync) ((mlsync)
(if (-normal-month-) (if (-normal-month-)
(print "Mailman sync.") (mailman-sync-members internal-ml (members-base-active-emails MB))
(print "Mailman synchronization disabled with manually specified current month."))) (print "Mailman synchronization disabled with manually specified current month.")))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))