+ remove standard options from file handlers
+ remove superfluous comment
This commit is contained in:
parent
0823675325
commit
ade0a8391f
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue