Add bind_host setting requested by Artemis
This commit is contained in:
parent
29007b0e29
commit
e0fec5fa9c
3 changed files with 8 additions and 3 deletions
|
@ -30,7 +30,9 @@
|
||||||
(define ch (make-channel))
|
(define ch (make-channel))
|
||||||
(define (start)
|
(define (start)
|
||||||
(serve/launch/wait
|
(serve/launch/wait
|
||||||
#:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
|
#:listen-ip (if (equal? (config-get 'bind_host) "auto")
|
||||||
|
(if (config-true? 'debug) "127.0.0.1" #f)
|
||||||
|
(config-get 'bind_host))
|
||||||
#:port (string->number (config-get 'port))
|
#:port (string->number (config-get 'port))
|
||||||
(λ (quit)
|
(λ (quit)
|
||||||
(channel-put ch (lambda () (semaphore-post quit)))
|
(channel-put ch (lambda () (semaphore-post quit)))
|
||||||
|
|
4
dist.rkt
4
dist.rkt
|
@ -20,7 +20,9 @@
|
||||||
(require (only-in "src/page-file.rkt" page-file))
|
(require (only-in "src/page-file.rkt" page-file))
|
||||||
|
|
||||||
(serve/launch/wait
|
(serve/launch/wait
|
||||||
#:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
|
#:listen-ip (if (equal? (config-get 'bind_host) "auto")
|
||||||
|
(if (config-true? 'debug) "127.0.0.1" #f)
|
||||||
|
(config-get 'bind_host))
|
||||||
#:port (string->number (config-get 'port))
|
#:port (string->number (config-get 'port))
|
||||||
(λ (quit)
|
(λ (quit)
|
||||||
(dispatcher-tree
|
(dispatcher-tree
|
||||||
|
|
|
@ -29,12 +29,13 @@
|
||||||
|
|
||||||
(define default-config
|
(define default-config
|
||||||
'((application_name . "BreezeWiki")
|
'((application_name . "BreezeWiki")
|
||||||
|
(bind_host . "auto")
|
||||||
|
(port . "10416")
|
||||||
(canonical_origin . "")
|
(canonical_origin . "")
|
||||||
(debug . "false")
|
(debug . "false")
|
||||||
(feature_search_suggestions . "true")
|
(feature_search_suggestions . "true")
|
||||||
(instance_is_official . "false") ; please don't turn this on, or you will make me very upset
|
(instance_is_official . "false") ; please don't turn this on, or you will make me very upset
|
||||||
(log_outgoing . "true")
|
(log_outgoing . "true")
|
||||||
(port . "10416")
|
|
||||||
(strict_proxy . "false")
|
(strict_proxy . "false")
|
||||||
|
|
||||||
(feature_offline::enabled . "false")
|
(feature_offline::enabled . "false")
|
||||||
|
|
Loading…
Reference in a new issue