scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scheme/httpd/surflets/start-surflet-server
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-request-handler
(alist-path-dispatcher
(list (cons "h" (home-dir-handler "public_html"
(make-file-directory-options)))
(list (cons "h" (home-dir-handler "public_html"))
; (cons "seval" seval-handler)
; (cons "man" (rman-handler #f "man?%s(%s)"
; "Generated by rman-gateway"))
; (cons "info" (info-handler #f #f #f
; "Generated by info-gateway"))
; (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
surflet-dir
(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")
"text/plain"))
(make-file-directory-options))))
(cons "img" (rooted-file-handler images-dir
(make-file-directory-options)))
(cons "img" (rooted-file-handler images-dir))
(cons "surflet" (surflet-handler surflet-dir)))
(rooted-file-or-directory-handler htdocs-dir
(make-file-directory-options)))))
(rooted-file-or-directory-handler htdocs-dir))))
)
))
;; EOF