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