diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2017-09-18 21:57:05 +0200 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2017-09-18 21:57:05 +0200 |
| commit | 2a4d493e28100b8eca7d23300dd872c9f99e1f16 (patch) | |
| tree | 475ac57813c098a5b57461285156e6d64afa8f25 /src | |
| parent | 87ad259dba7de38b6e3ab954cd7b2f655358d877 (diff) | |
| download | cuirass-2a4d493e28100b8eca7d23300dd872c9f99e1f16.tar cuirass-2a4d493e28100b8eca7d23300dd872c9f99e1f16.tar.gz | |
cuirass: Add --listen command line option.
* bin/cuirass.in (show-help): Add help for --listen option.
(%options): Add listen option.
(main): Pass host to run-cuirass-server.
* doc/cuirass.texi (Invocation): Add --listen option.
* src/cuirass/http.scm (run-cuirass-server): Add named #:host parameter.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/http.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 23c3ad7..7434429 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -166,9 +166,12 @@ #:body (string-append "Resource not found: " (uri->string (request-uri request))))))) -(define* (run-cuirass-server db #:key (port 8080)) - (format (current-error-port) "listening on port ~A~%" port) - (run-server url-handler - 'http - `(#:port ,port) - db)) +(define* (run-cuirass-server db #:key (host "localhost") (port 8080)) + (let* ((host-info (gethostbyname host)) + (address (inet-ntop (hostent:addrtype host-info) + (car (hostent:addr-list host-info))))) + (format (current-error-port) "listening on ~A:~A~%" address port) + (run-server url-handler + 'http + `(#:host ,address #:port ,port) + db))) |