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

add `source' directory 

Note: The MIME type reported by CORE is wrong and irritates Netscape.
This commit is contained in:
interp 2002-10-21 08:24:58 +00:00
parent fa61699155
commit f0106b48e7
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/httpd/surflets/start-surflet-server
View File

@ -166,6 +166,10 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/se
(with-simultaneous-requests simultaneous-requests (with-simultaneous-requests simultaneous-requests
(with-syslog? #t (with-syslog? #t
(with-logfile log-file-name (with-logfile log-file-name
;; The following settings are made to avoid dns lookups.
(with-reported-port port
(with-fqdn "localhost"
(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"))
@ -175,8 +179,12 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/se
; (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))
(cons "source" (lambda (path req)
(format #t "source~%")
((rooted-file-or-directory-handler servlet-dir) path req)))
(cons "servlet" (servlet-handler servlet-dir "/servlet/"))) (cons "servlet" (servlet-handler servlet-dir "/servlet/")))
(rooted-file-or-directory-handler htdocs-dir)))))))))) (rooted-file-or-directory-handler htdocs-dir)))))))))))
))
)) ))
;; EOF ;; EOF