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

Configurable bank directory.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 22:30:42 +02:00
parent f436e9e07c
commit d6d47e91fc
2 changed files with 23 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/bbstool.scm
View file

@ -61,6 +61,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -fname- (make-parameter #f))
(define -run-tests?- (make-parameter #f))
(define -web-dir- (make-parameter #f))
(define -bank-dir- (make-parameter #f))
;; Arguments parsing
(command-line
@ -84,6 +85,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(*table-border-style* (string->symbol style)))
(-apikey (fname) "File with Fio API keys"
(-apikeys-file- fname))
(-bankdir (dir) "Where are bank CSV files"
(-bank-dir- dir))
""
"Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -139,7 +142,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if (-action-)
(let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-)
(members-payments-process mb (-apikeys-file-))
(members-payments-process mb (-apikeys-file-) (-bank-dir-))
mb))
#f))