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