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

* adpated to new handler combinators 

* change script call header (using exec ... now)
This commit is contained in:
interp 2002-08-22 15:33:37 +00:00
parent 2c9b931100
commit 017d5408e8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scheme/httpd/server.scm
View File

@ -1,5 +1,6 @@
#!/home/andreas/bin/scsh \
-lm modules.scm -dm -o http-top -e top -s
#!/bin/sh
IFS=" "
exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@"
!#
;;; Scheme Underground Web Server -*- Scheme -*-
@ -27,8 +28,10 @@
`(("h" . ,(home-dir-handler "public_html"))
("seval" . ,seval-handler)
("cgi-bin" . ,(cgi-handler "/usr/local/etc/httpd/cgi-bin")))
(tilde-home-dir-handler "public_html"
(rooted-file-handler "/usr/local/etc/httpd/htdocs"))))
(make-path-handler
tilde-home-dir-handler-predicate
(tilde-home-dir-handler "public_html")
(rooted-file-handler "/usr/local/etc/httpd/htdocs"))))
@ -47,4 +50,4 @@
ph
(with-port
8001
(with-root-directory "/home/andreas/hiwi/http")))))))
(with-root-directory "/usr/local/etc/httpd")))))))