45 lines
1.2 KiB
Scheme
45 lines
1.2 KiB
Scheme
|
#!/usr/local/bin/scsh \
|
||
|
|
-lm modules.scm -lm toothless.scm -dm -o http-top -e top -s
|
||
|
|
!#
|
||
|
|
|
||
|
|
;;; Scheme Underground Web Server -*- Scheme -*-
|
||
|
|
;;; Olin Shivers
|
||
|
|
|
||
|
|
;;; To compile as a heap-image:
|
||
|
|
;;; ,open http-top
|
||
|
|
;;; (dump-scsh-program top "server")
|
||
|
|
;;; then insert a #! trigger.
|
||
|
|
|
||
|
|
(define-structure http-top (export top)
|
||
|
|
(open httpd-core
|
||
|
|
cgi-server-package
|
||
|
|
httpd-basic-handlers
|
||
|
|
seval-handler-package
|
||
|
|
scsh
|
||
|
|
scheme)
|
||
|
|
(begin
|
||
|
|
|
||
|
|
;; Kitche-sink path handler.
|
||
|
|
|
||
|
|
(define ph
|
||
|
|
(alist-path-dispatcher
|
||
|
|
`(("h" . ,(home-dir-handler "public_html"))
|
||
|
|
("seval" . ,seval-handler)
|
||
|
|
("cgi-bin" . ,(cgi-handler "/usr/local/etc/httpd/cgi-bin")))
|
||
|
|
(tilde-home-dir-handler "public_html"
|
||
|
|
(rooted-file-handler "/usr/local/etc/httpd/htdocs"))))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; Crank up a server on port 8001, first resetting our identity to
|
||
|
|
;; user "nobody". Initialise the request-invariant part of the CGI
|
||
|
|
;; env before starting.
|
||
|
|
|
||
|
|
(define (top args)
|
||
|
|
(display "We be jammin, now.\n") (force-output)
|
||
|
|
(cond ((zero? (user-uid))
|
||
|
|
(set-gid -2) ; Should be (set-uid (->uid "nobody"))
|
||
|
|
(set-uid -2))) ; but NeXTSTEP loses.
|
||
|
|
(initialise-request-invariant-cgi-env)
|
||
|
|
(httpd ph 8001 "/zu/shivers"))))
|