From 6748d4327c0626f26998cc55cf7518bd8e0bf189 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 31 Mar 2025 21:12:04 +0200 Subject: [PATCH] Listen and SSL setup. --- backend/brminv.scm | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/backend/brminv.scm b/backend/brminv.scm index 2a82c31..8cf5bdc 100644 --- a/backend/brminv.scm +++ b/backend/brminv.scm @@ -2,6 +2,10 @@ command-line texts) +(define -port- (make-parameter #f)) +(define -certificate- (make-parameter #f)) +(define -key- (make-parameter #f)) + (command-line print-help (-h () "This help" @@ -18,7 +22,20 @@ (exit 0)) "" "Configuration options:" + (-p (port) "Listen port" + (-port- (string->number port))) + (-c (cert) "Certificate" + (-certificate- cert)) + (-k (key) "Private key" + (-key- key)) ) -(display "brminv") -(newline) +(define ssl? (and (-certificate-) (-key-) #t)) +(define port (or (-port-) (if ssl? 443 80))) + +(print banner-line) +(print "Port: " port) +(print "SSL: " ssl?) +(when ssl? + (print " Certificate:" (-certificate-)) + (print " Key:" (-key-)))