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

Quiet option.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 21:30:00 +02:00
parent 990340ded9
commit 131def55a8
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -37,7 +37,8 @@ HACKERBASE-DEPS=hackerbase.scm month.import.scm \
cards.import.scm members-print.import.scm \ cards.import.scm members-print.import.scm \
members-payments.import.scm web-static.import.scm \ members-payments.import.scm web-static.import.scm \
environment.import.scm mailman.import.scm texts.import.scm \ environment.import.scm mailman.import.scm texts.import.scm \
tests.import.scm reminders.import.scm logging.import.scm tests.import.scm reminders.import.scm logging.import.scm \
progress.import.scm
HACKERBASE-OBJS=hackerbase.o testing.o listing.o month.o period.o \ HACKERBASE-OBJS=hackerbase.o testing.o listing.o month.o period.o \
ansi.o util-dict-list.o command-line.o members-base.o \ ansi.o util-dict-list.o command-line.o members-base.o \

16
src/hackerbase.scm
View file

@ -39,11 +39,8 @@
tests tests
reminders reminders
util-mail util-mail
logging) logging
progress)
;; Print banner
(print "HackerBase 0.9.5 (c) 2023 Brmlab, z.s.")
(newline)
;; Command-line options and configurable parameters ;; Command-line options and configurable parameters
(define -needs-bank- (make-parameter #f)) (define -needs-bank- (make-parameter #f))
@ -58,6 +55,7 @@
(define -show-destroyed- (make-parameter #f)) (define -show-destroyed- (make-parameter #f))
(define -notify-months- (make-parameter 1)) (define -notify-months- (make-parameter 1))
(define -send-emails- (make-parameter #f)) (define -send-emails- (make-parameter #f))
(define -quiet- (make-parameter #f))
;; Configuration overrides ;; Configuration overrides
(define =members-directory= (make-parameter #f)) (define =members-directory= (make-parameter #f))
@ -106,6 +104,9 @@
(*mailto-override* email)) (*mailto-override* email))
(-logfile (filename) "Enable logging to file" (-logfile (filename) "Enable logging to file"
(*log-file* filename)) (*log-file* filename))
(-quiet () "Suppress all output"
(-quiet- #t)
(*progress-quiet* #t))
"" ""
"Query options:" "Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id))) (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -159,6 +160,11 @@
(-action- 'notify)) (-action- 'notify))
) )
;; Print banner
(when (not (-quiet-))
(print "HackerBase 0.9.5 (c) 2023 Brmlab, z.s.")
(newline))
;; Load default configuration ;; Load default configuration
(load-configuration!) (load-configuration!)