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-)))