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

Directory handlers now have a default option.

This commit is contained in:
mainzelm 2003-02-20 16:37:11 +00:00
parent bc6324e252
commit 1b0b3f5690
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
start-extended-web-server
View File

@ -141,8 +141,7 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
with-log-file log-file-name with-log-file log-file-name
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)
;; You may want to adapt this to your site. ;; You may want to adapt this to your site.
(cons "man" (rman-handler 'man (cons "man" (rman-handler 'man
@ -154,8 +153,7 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
(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)))
(rooted-file-or-directory-handler htdocs-dir (rooted-file-or-directory-handler htdocs-dir)))))
(make-file-directory-options))))))
)) ))
;; EOF ;; EOF

4
start-web-server
View File

@ -127,9 +127,7 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
(list (cons "cgi-bin" (cgi-handler cgi-bin-dir))) (list (cons "cgi-bin" (cgi-handler cgi-bin-dir)))
(tilde-home-dir-handler "public_html" (tilde-home-dir-handler "public_html"
(rooted-file-or-directory-handler (rooted-file-or-directory-handler
htdocs-dir htdocs-dir))))))
(make-file-directory-options))
(make-file-directory-options))))))
)) ))
;; EOF ;; EOF