;;; Scheme Underground Web Server -*- Scheme -*-
;;; Olin Shivers

;;; This file contains a few example top-level path-handlers and
;;; other useful fragments.

;;; We import procedures from these structures:
;;; httpd-core 
;;; cgi-server-package
;;; httpd-basic-handlers
;;; seval-handler-package


;;; - /h/<user>/<file-path> => serve <file-path> from ~user/public_html.
;;; - /seval  You may POST Scheme code to this URL, and receive the output.
;;; - Otherwise, serve files from the standard HTTP demon repository.

(define ph1
  (alist-path-dispatcher
      `(("h" . ,(home-dir-handler "public_html"))
	("seval" . ,seval-handler)
	("cgi-bin" . ,(cgi-handler "/usr/local/etc/httpd/cgi-bin")))
      (rooted-file-handler "/usr/local/etc/httpd/htdocs")))


;;; Do a rough approximation of NCSA httpd server semantics:
;;; - /~shivers/... serves file ~shivers/public_html/...
;;; - /cgi-bin/<prog> passes control to script 
;;;     /usr/local/etc/httpd/cgi-bin/<prog>
;;; - Otherwise, just serve files out of the standard directory.

(define ph2
  (alist-path-dispatcher
      `(("cgi-bin" . ,(cgi-handler "/usr/local/etc/httpd/cgi-bin")))
    (tilde-home-dir-handler "public_html"
        (rooted-file-handler "/usr/local/etc/httpd/htdocs"))))

;;; Greatest hits path handler.

(define ph3
  (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 (httpd1)
  (set-gid -2)  ; Should be (set-uid (->uid "nobody")) 
  (set-uid -2)	; but NeXTSTEP loses. 
  (initialise-request-invariant-cgi-env)
  (httpd ph 8001 "/usr/local/etc/httpd/htdocs"))