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

Move jendasap-checked to main file.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 22:08:03 +02:00
parent 1b376e94c4
commit 409bf71156
2 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/bbstool.scm
View file

@ -65,6 +65,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -web-dir- (make-parameter #f)) (define -web-dir- (make-parameter #f))
(define -bank-dir- (make-parameter #f)) (define -bank-dir- (make-parameter #f))
(define -cards-enabled- (make-parameter #t)) (define -cards-enabled- (make-parameter #t))
(define -jendasap-checked- (make-parameter "checked.ntlm"))
;; Arguments parsing ;; Arguments parsing
(command-line (command-line
@ -91,7 +92,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-bankdir (dir) "Where are bank CSV files" (-bankdir (dir) "Where are bank CSV files"
(-bank-dir- dir)) (-bank-dir- dir))
(-checked (file) "JendaSAP checked.ntlm file" (-checked (file) "JendaSAP checked.ntlm file"
(*jendasap-checked* file)) (-jendasap-checked- file))
"" ""
"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)))
@ -155,7 +156,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if (-action-) (if (-action-)
(let ((mb (load-members (*members-directory*) #t))) (let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-) (if (-needs-bank-)
(members-payments-process mb (-apikeys-file-) (-bank-dir-) (*jendasap-checked*)) (members-payments-process mb (-apikeys-file-) (-bank-dir-) (jendasap-checked-))
mb)) mb))
#f)) #f))

4
src/configuration.scm
View file

@ -31,7 +31,6 @@
*current-month* *current-month*
*member-suspend-max-months* *member-suspend-max-months*
*members-directory* *members-directory*
*jendasap-checked*
) )
(import scheme (import scheme
@ -53,7 +52,4 @@
;; Needed by multiple modules actually ;; Needed by multiple modules actually
(define *members-directory* (make-parameter "members")) (define *members-directory* (make-parameter "members"))
;; JendaSAP compatibility file with last checked Fio transaction
(define *jendasap-checked* (make-parameter "checked.ntlm"))
) )