From d8025632f7f07326c9ec680527557198b960a3c2 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 25 Apr 2002 08:10:38 +0000
Subject: [PATCH] * adapted to new httpd interface (httpd-options)

---
 server.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/server.scm b/server.scm
index 57d0738..79fd96e 100755
--- a/server.scm
+++ b/server.scm
@@ -1,4 +1,4 @@
-#!/usr/local/bin/scsh \
+#!/home/andreas/bin/scsh \
 -lm modules.scm -dm -o http-top -e top -s
 !#
 
@@ -12,6 +12,7 @@
 
 (define-structure http-top (export top)
   (open httpd-core
+	httpd-make-options
 	cgi-server
 	httpd-basic-handlers
 	seval-handler
@@ -41,4 +42,8 @@
 	     (set-gid -2)  ; Should be (set-uid (->uid "nobody")) 
 	     (set-uid -2)))	; but NeXTSTEP loses. 
       (initialise-request-invariant-cgi-env)
-      (httpd ph 8001 "/zu/shivers"))))
+      (httpd (with-path-handler 
+	      ph
+	      (with-port
+	       8001 
+	       (with-root-directory "/home/andreas/hiwi/http")))))))