Move xlaunch to bin dir
[khome.git] / home / bin / websrv
CommitLineData
fc2e11b5
SK
1#! /usr/bin/env racket
2#lang racket
3;;; vim:ft=racket:
4
5(require (prefix-in env: web-server/servlet-env)
6 (prefix-in log: web-server/dispatchers/dispatch-log)
7 (prefix-in res: web-server/configuration/responders)
8 (prefix-in xpr: web-server/http/xexpr))
9
10;; TODO SSL
11
12(module+ main
13 (let* ([program (path->string (find-system-path 'run-file))]
747649b1 14 [log-file (current-error-port)]
fc2e11b5
SK
15 [listen-addr "0.0.0.0"]
16 [listen-port 8000]
17 [paths-to-serve '()]
18 [browser? #f])
19 (command-line
20 #:program program
21 #:once-each
22 [("-b" "--browser")
23 "Launch web browser."
24 (set! browser? #t)]
25 [("-a" "--addr")
26 ip-addr "Listen address."
27 (set! listen-addr ip-addr)]
28 [("-p" "--port")
29 port-number "Listen port."
747649b1 30 (set! listen-port (string->number port-number))]
fc2e11b5 31 [("-l" "--log")
747649b1 32 file "Log file [default: stderr]."
fc2e11b5
SK
33 (set! log-file file)]
34 #:args (path . paths)
35 (set! paths-to-serve (cons path paths)))
36 (define (custom-dispatcher _)
37 (xpr:response/xexpr
38 '(html
39 (head)
40 (body "if you're reading this - server configuration is wrong."))))
41 (env:serve/servlet
42 custom-dispatcher
43 #:listen-ip listen-addr
44 #:port listen-port
45 #:launch-browser? browser?
46 #:extra-files-paths paths-to-serve
47 #:log-file log-file
48 #:log-format log:paren-format
49 #:servlet-path ""
50 ;#:servlet-regexp #rx"" ; <-- causes / to be routed to custom-dispatcher.
51 )))
This page took 0.032905 seconds and 4 git commands to generate.