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

Prepare for syncing other mailinglists.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 18:11:51 +01:00
parent 28fa8e45a9
commit fbe3f02128
2 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/hackerbase.scm
View file

@ -226,7 +226,7 @@
#f))
;; Load ML(s) and merge them
(define-values (MB1 internal-ml)
(define-values (MB1 internal-ml MLS)
(if MB0
(let ()
(define mls (load-mailman-lists))
@ -234,8 +234,9 @@
(mbase-merge-mailman mb ml))
MB0
mls)
(find-mailman-list mls "internal")))
(values #f #f)))
(find-mailman-list mls "internal")
MLS))
(values #f #f #f)))
;; Load DokuWiki users
(define MB (if MB1
@ -371,9 +372,10 @@
(newline)
(print-unpaired-table MB))
((mlsync)
(if (-normal-month-)
(mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t))
(print "Mailman synchronization disabled with manually specified current month.")))
(cond ((-normal-month-)
(mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t)))
(else
(print "Mailman synchronization disabled with manually specified current month."))))
((notify)
(let ((nmembers (members-to-notify MB (-notify-months-))))
(newline)