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

Work on user selection.

Browse source
This commit is contained in:
Dominik Pantůček 2025-04-14 12:16:04 +02:00
parent a0752bb73a
commit 1815547daf
3 changed files with 58 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
backend/brminv.scm
View file

@ -47,6 +47,7 @@
(define -db-user- (make-parameter #f))
(define -db-name- (make-parameter #f))
(define -db-pass- (make-parameter #f))
(define -db-enabled- (make-parameter #t))
(command-line
print-help
@ -82,6 +83,8 @@
(-db-user- dbuser))
(-dp (dbpass) "Database password"
(-db-pass- dbpass))
(-dd () "Disable database"
(-db-enabled- #f))
)
(define ssl? (and (-certificate-) (-key-) #t))
@ -120,7 +123,8 @@
(print "current user id: " (current-user-id))
(print "current effective user id: " (current-effective-user-id))
(bar-db-init! (-db-name-) (-db-host-) (-db-user-) (-db-pass-))
(when (-db-enabled-)
(bar-db-init! (-db-name-) (-db-host-) (-db-user-) (-db-pass-)))
(define (handle-api-calls)
(define plst (cdr (uri-path (request-uri (current-request)))))