From 25fa9fbca5a382e3037157ee561416eaf1afde0b Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 21 Nov 2003 19:05:02 +0000
Subject: [PATCH] Make it a bit more portable. Change default port from
 webcache to http-alt.

---
 scheme/httpd/surflets/start-surflet-server | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/scheme/httpd/surflets/start-surflet-server b/scheme/httpd/surflets/start-surflet-server
index 212d818..4f4471a 100755
--- a/scheme/httpd/surflets/start-surflet-server
+++ b/scheme/httpd/surflets/start-surflet-server
@@ -1,12 +1,13 @@
 #!/bin/sh
 echo "Loading..."
 fullpath=`which $0`
-# $sunet is either $SUNETHOME or created out of fullpath
-# Kind of a hack, I know.
-sunet=${SUNETHOME:-`dirname $fullpath`/../..}
-ssax=${SSAXPATH:-$sunet/SSAX}                    # path to SSAX
+# $sunet is either $SUNET or created out of fullpath
+# Kind of a hack, I know.  We're still waiting for this library
+#installing system.
+sunethome=${SUNET:-`dirname $fullpath`/../..}
+ssaxhome=${SSAX:-`dirname $fullpath`/../../../SSAX} # path to SSAX
 
-exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/surflets/packages.scm -dm -o surflet-server -e main -s "$0" "$@"
+exec scsh -lm $sunethome/packages.scm -lm $ssaxhome/lib/packages.scm -lm $sunethome/httpd/surflets/packages.scm -dm -o surflet-server -e main -s "$0" "$@"
 !#
 
 (define-structure surflet-server
@@ -38,7 +39,7 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/su
  htdocs-dir     directory of html files (default: ./web-server/root/htdocs)
  surflet-dir    directory of SUrflet files  (default: ./web-server/root/surflets)
  images-dir     directory of images files (default: ./web-server/root/img)
- port           port server is listening to (default: 8080)
+ port           port server is listening to (default: 8008)
  log-file-name  directory where to store the logfile in CLF
                  (default: ./web-server/httpd.log)
  requests       maximal amount of simultaneous requests (default 5)
@@ -61,7 +62,7 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/su
       (set! htdocs-dir "./web-server/root/htdocs")
       (set! images-dir "./web-server/root/img")
 ;      (set! cgi-bin-dir "./web-server/root/cgi-bin")
-      (set! port "8088")
+      (set! port "8008")
       (set! log-file-name "./web-server/httpd.log")
       (set! root "./web-server/root")
       (set! surflet-dir "./web-server/root/surflets")