web: server: Support virtual hosts.

* bin/tissue (tissue-run-web): Add hosts configuration option.
* tissue/web/server.scm: Import (tissue utils).
(start-web-server): Add host parameters argument.
(handler): Read database based on Host header.

1 files changed, 4 insertions, 0 deletions

diff --git a/bin/tissue b/bin/tissue
index bf69100..4b524b8 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -251,6 +251,10 @@ Run a web search service reading configuration from CONFIG-FILE.
                                    listen-repl)
                            (make-unix-domain-server-socket #:path listen-repl))))))
        (start-web-server (listen->socket-address (assq-ref args 'listen))
+                         (or (assq-ref args 'hosts)
+                             ;; Assume current directory as default.
+                             `(("localhost"
+                                (indexed-repository . ,(getcwd)))))
                          %xapian-index
                          (tissue-configuration-web-css (load-config)))))))