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

Show destroyed only when requested in fees.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 23:36:12 +02:00
parent b00139bd89
commit 6a597d71c8
2 changed files with 113 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/bbstool.scm
View file

@ -69,6 +69,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -normal-month- (make-parameter #t))
(define -jendasap-checked- (make-parameter "checked.ntlm"))
(define -ml-all- (make-parameter #f))
(define -show-destroyed- (make-parameter #f))
;; Arguments parsing
(command-line
@ -98,6 +99,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-jendasap-checked- file))
(-ml-all () "Load all mailman lists"
(-ml-all- #t))
(-destroyed () "Show destroyed members in -fees"
(-show-destroyed- #t))
""
"Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -262,7 +265,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "No problems found."))))
((fees)
(newline)
(print-members-fees-table MB))
(print-members-fees-table MB (-show-destroyed-)))
((repl)
(repl))
((genweb)