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

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-syslog? #t
(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
(alist-path-dispatcher
(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
; "Generated by info-gateway"))
; (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/")))
(rooted-file-or-directory-handler htdocs-dir))))))))))
(rooted-file-or-directory-handler htdocs-dir)))))))))))
))
))
;; EOF