add info-gateway to example server

This commit is contained in:
interp 2002-08-29 14:34:57 +00:00
parent ecd5afadbe
commit 865a4822c3
2 changed files with 9 additions and 3 deletions

View File

@ -12,6 +12,7 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
cgi-server cgi-server
seval-handler seval-handler
rman-gateway rman-gateway
info-gateway
let-opt let-opt
scsh scsh
scheme) scheme)
@ -133,7 +134,9 @@ exec scsh -lm packages.scm -dm -o http-test -e main -s "$0" "$@"
(list (cons "h" (home-dir-handler "public_html")) (list (cons "h" (home-dir-handler "public_html"))
(cons "seval" seval-handler) (cons "seval" seval-handler)
(cons "man" (rman-handler #f "man?%s(%s)" (cons "man" (rman-handler #f "man?%s(%s)"
"bernauer@informatik.uni-tuebingen.de")) "Generated by rman-gateway"))
(cons "info" (info-handler #f #f #f
"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)))))))))
)) ))

View File

@ -11,8 +11,11 @@
<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> <li><a href=man?man>Get a man page</a><br>
(provided a matching man page installation;<br> (needs a matching man page installation;<br>
&nbsp;see httpd/rman-gateway.scm for details)</li> &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>
@ -25,7 +28,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: Thu Aug 29 12:51:43 CEST 2002 Last modified: Thu Aug 29 16:37:20 CEST 2002
<!-- hhmts end --> <!-- hhmts end -->
</body> </body>
</html> </html>