* adapted to new httpd interface (httpd-options)

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")))))))