From 017d5408e8568a157136134f2a0c5cc612019f8d Mon Sep 17 00:00:00 2001 From: interp Date: Thu, 22 Aug 2002 15:33:37 +0000 Subject: [PATCH] * adpated to new handler combinators * change script call header (using exec ... now) --- scheme/httpd/server.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/scheme/httpd/server.scm b/scheme/httpd/server.scm index b7b1b2f..937d508 100755 --- a/scheme/httpd/server.scm +++ b/scheme/httpd/server.scm @@ -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")))))))