+ remove standard options from file handlers

+ remove superfluous comment
This commit is contained in:
interp 2003-02-17 09:08:27 +00:00
parent 0823675325
commit ade0a8391f
1 changed files with 3 additions and 12 deletions

View File

@ -185,20 +185,13 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/su
with-resolve-ips? #f with-resolve-ips? #f
with-request-handler with-request-handler
(alist-path-dispatcher (alist-path-dispatcher
(list (cons "h" (home-dir-handler "public_html" (list (cons "h" (home-dir-handler "public_html"))
(make-file-directory-options)))
; (cons "seval" seval-handler) ; (cons "seval" seval-handler)
; (cons "man" (rman-handler #f "man?%s(%s)" ; (cons "man" (rman-handler #f "man?%s(%s)"
; "Generated by rman-gateway")) ; "Generated by rman-gateway"))
; (cons "info" (info-handler #f #f #f ; (cons "info" (info-handler #f #f #f
; "Generated by info-gateway")) ; "Generated by info-gateway"))
; (cons "cgi-bin" (cgi-handler cgi-bin-dir)) ; (cons "cgi-bin" (cgi-handler cgi-bin-dir))
;; Browsers cannot handle .SCM files: Opera shows
;; it as HTML, Netscape asks for a program to
;; view it. ROOTED-FILE-OR-DIRECTORY-HANDLER
;; should serve .SCM files as text/plain (I did
;; not want to write a handler just for this file
;; type.)
(cons "source" (rooted-file-or-directory-handler (cons "source" (rooted-file-or-directory-handler
surflet-dir surflet-dir
(with-file-name->content-type (with-file-name->content-type
@ -207,11 +200,9 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/su
".scm") ".scm")
"text/plain")) "text/plain"))
(make-file-directory-options)))) (make-file-directory-options))))
(cons "img" (rooted-file-handler images-dir (cons "img" (rooted-file-handler images-dir))
(make-file-directory-options)))
(cons "surflet" (surflet-handler surflet-dir))) (cons "surflet" (surflet-handler surflet-dir)))
(rooted-file-or-directory-handler htdocs-dir (rooted-file-or-directory-handler htdocs-dir))))
(make-file-directory-options)))))
) )
)) ))
;; EOF ;; EOF