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

Prepare for notifications.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 21:53:48 +02:00
parent ac3dce41a6
commit 1551ea15e6
3 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/bbstool.scm
View file

@ -32,7 +32,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
month
period
command-line
utils
util-list
ansi
members-base
primes
@ -70,6 +70,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -jendasap-checked- (make-parameter "checked.ntlm"))
(define -ml-all- (make-parameter #f))
(define -show-destroyed- (make-parameter #f))
(define -notify-months- (make-parameter 1))
;; Arguments parsing
(command-line
@ -144,6 +145,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-action- 'mlcheck))
(-mlsync () "Synchronize internal ML"
(-action- 'mlsync))
(-notify () "Members with debt for more than 1 month"
(-notify-months- 1)
(-action- 'notify))
(-notify3 () "Members with debt for more than 3 month"
(-notify-months- 3)
(-action- 'notify))
)
;; Run tests
@ -152,7 +159,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(dictionary-tests!)
(month-tests!)
(period-tests!)
(utils-tests!)
(util-list-tests!)
(ansi-tests!)
(command-line-tests!)
(members-dir-tests!)
@ -297,6 +304,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print " Missing: " missing))
(when (not (null? surplus))
(print " Outsiders: " surplus))))))
((notify)
(print "Notify" (-notify-months-)))
(else
(print "Nothing to do."))