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

Split out api-servlets.

Browse source
This commit is contained in:
Dominik Pantůček 2025-04-08 22:52:00 +02:00
parent c86bdc383f
commit 960edc13e7
3 changed files with 53 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
backend/brminv.scm
View file

@ -32,7 +32,8 @@
intarweb
uri-common
(chicken string)
postgresql)
postgresql
api-servlets)
(define -port- (make-parameter #f))
(define -certificate- (make-parameter #f))
@ -112,8 +113,7 @@
(define plst (cdr (uri-path (request-uri (current-request)))))
(cond ((and (not (null? plst))
(equal? (car plst) "api"))
(send-response #:body "API call")
#t)
(api-dispatch (cdr plst)))
(else
#f)))