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

- include Scheme-eval handler in start-web-server 

- don't ship start-extended-web-server
- tailor demo web page for start-web-server rather than
  start-extended-web-server
This commit is contained in:
sperber 2003-04-23 07:29:37 +00:00
parent 3733c09a42
commit b95d65509e
3 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -8,7 +8,7 @@ distdir = /tmp
DISTFILES = COPYING README RELEASE \ DISTFILES = COPYING README RELEASE \
Makefile packages.scm \ Makefile packages.scm \
start-web-server start-extended-web-server \ start-web-server \
httpd/*.scm ftpd/*.scm lib/*.scm \ httpd/*.scm ftpd/*.scm lib/*.scm \
doc/man.pdf doc/html \ doc/man.pdf doc/html \
doc/latex/*.tex doc/latex/*.sty doc/latex/*.t2p doc/latex/*.hdir \ doc/latex/*.tex doc/latex/*.sty doc/latex/*.t2p doc/latex/*.hdir \

4
start-web-server
View File

@ -10,6 +10,7 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
httpd-basic-handlers httpd-basic-handlers
httpd-file-directory-handlers httpd-file-directory-handlers
httpd-cgi-handlers httpd-cgi-handlers
httpd-seval-handlers
scheme-with-scsh) scheme-with-scsh)
(begin (begin
@ -126,7 +127,8 @@ exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
with-post-bind-thunk become-nobody-if-root with-post-bind-thunk become-nobody-if-root
with-request-handler with-request-handler
(alist-path-dispatcher (alist-path-dispatcher
(list (cons "cgi-bin" (cgi-handler cgi-bin-dir))) (list (cons "cgi-bin" (cgi-handler cgi-bin-dir))
(cons "seval" seval-handler))
(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))))))

8
web-server/root/htdocs/index2.html
View File

@ -11,12 +11,6 @@
<li><a href=../cgi-bin/comments.sh>A small CGI script</a></li> <li><a href=../cgi-bin/comments.sh>A small CGI script</a></li>
<li><a href=seval.html>Computing Scheme Forms <li><a href=seval.html>Computing Scheme Forms
Interactively</a></li> Interactively</a></li>
<li><a href=man?man>Get a man page</a><br>
(needs a matching man page installation;<br>
&nbsp;see httpd/rman-gateway.scm for details)</li>
<li><a href=info?(dir)Top>Get the dir info page</a><br>
(needs a matching info page installation;<br>
&nbsp;among others, we need non-gzipped info pages)</li>
<li><a href=files/text.txt>Text file</a></li> <li><a href=files/text.txt>Text file</a></li>
<li><a href=files>Directory</a></li> <li><a href=files>Directory</a></li>
<li><a href=files/zipped.gz>Compressed File</a></li> <li><a href=files/zipped.gz>Compressed File</a></li>
@ -29,7 +23,7 @@
<hr> <hr>
<!-- Created: Thu Aug 22 16:44:16 CEST 2002 --> <!-- Created: Thu Aug 22 16:44:16 CEST 2002 -->
<!-- hhmts start --> <!-- hhmts start -->
Last modified: Fri Jan 24 14:56:00 CET 2003 Last modified: Wed Apr 23 09:25:58 MST 2003
<!-- hhmts end --> <!-- hhmts end -->
</body> </body>
</html> </html>