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

Basic payments pairing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 16:18:51 +02:00
parent d8b3f57868
commit a1f059df8b
2 changed files with 49 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bbstool.scm
View file

@ -43,7 +43,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
member-parser
member-fees
members-dir
csv-simple)
csv-simple
members-payments)
;; Print banner
(print "bbstool 0.6 (c) 2023 Brmlab, z.s.")
@ -51,6 +52,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;; Command-line options and configurable parameters
(define *members-directory* (make-parameter "members"))
(define *apikeys-file* (make-parameter "apikey.ntlm"))
(define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f))
(define -action- (make-parameter #f))
@ -111,7 +113,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline))
;; Load the members database (required for everything anyway)
(define MB (load-members (*members-directory*) #t))
(define MB (members-payments-process
(load-members (*members-directory*) #t)
(*apikeys-file*)))
;; If a member is specified by either id or nick, get its record
(define mr
@ -140,7 +144,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(let ()
(print-member-table mr)
(print-member-calendar-table mr)
(print "Total fees: " (member-fees-total mr)))
(print "Total fees: " (member-fees-total mr))
(print mr)
)
(print-members-base-table MB))
(newline))
((print-stats)