+ Install example scripts

+ Use library search path to find SUnet in example scripts
+ Add option to install without SSAX

Makefile

@@ -9,7 +9,7 @@ distdir = /tmp
 DISTFILES = COPYING README RELEASE						\
 	    pkg-def.scm install-lib-module.scm install-lib.scm install-pkg	\
 	    Makefile scheme/packages.scm					\
-	    start-web-server \
+	    start-web-server start-extended-web-server start-surflet-server	\
 	    scheme/httpd/*.scm scheme/httpd/surflets/*.scm			\
 	    scheme/ftpd/*.scm scheme/lib/*.scm					\
 	    doc/pdf/sunet.pdf doc/html						\

pkg-def.scm

@@ -1,17 +1,29 @@
-(define-package "sunet" (2 1) ()
+(define-package "sunet" (2 1) 
+  ((options (with-surflets "Install with SUrflets (requires SSAX)" "<yes/no>" #t #t #t
+                           ,parse-boolean ,show-boolean)))
+  (let ((surflets? (get-option-value 'with-surflets)))
     (install-directory-contents "scheme" 'scheme)
     (install-directory "web-server" 'misc-shared)
+    (install-file "start-web-server" 'misc-shared "web-server")
+    (install-file "start-extended-web-server" 'misc-shared "web-server")
+    (if surflets?
+        (install-file "start-surflet-server" 'misc-shared "web-server"))
     (install-directory-contents "doc" 'doc)
 
     (let ((doc-dir (get-directory 'doc #t))
           (misc-shared-dir (get-directory 'misc-shared #t)))
       (create-symlink (string-append doc-dir "/html")
-                    (string-append misc-shared-dir "/web-server/root/htdocs/sunet-manual")))
+                      (string-append misc-shared-dir 
+                                     "/web-server/root/htdocs/sunet-manual")))
+    
 
     (let ((scheme-dir (get-directory 'scheme #t)))
       (write-to-load-script
        `((user)
          (config)
          (load ,(string-append scheme-dir "/packages.scm"))
-       (user))))
+         ,@(if surflets?
+               `((load ,(string-append scheme-dir "/httpd/surflets/packages.scm")))
+               '())
+         (user)))))
 )

start-extended-web-server

@@ -1,6 +1,6 @@
 #!/bin/sh
 echo "Loading..."
-exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -dm -o http-test -e main -s "$0" "$@"
 !#
 
 (define-structure http-test

start-surflet-server

@@ -1,12 +1,7 @@
 #!/bin/sh
 echo "Loading..."
-# $sunetscheme is either $SUNET/scheme or $PWD/scheme
-# Kind of a hack, I know.  We're still waiting for this library
-#installing system.
-sunetscheme=${SUNET:-$PWD}/scheme
-ssaxhome=${SSAX:-../SSAX} # path to SSAX
 
-exec scsh -lm $sunetscheme/packages.scm -lm $ssaxhome/lib/packages.scm -lm $sunetscheme/httpd/surflets/packages.scm -dm -o surflet-server -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -lel ssax/load.scm -dm -o surflet-server -e main -s "$0" "$@"
 !#
 
 (define-structure surflet-server

start-web-server

@@ -1,6 +1,6 @@
 #!/bin/sh
 echo "Loading..."
-exec scsh +lpsd -ll packages.scm -dm -o http-test -e main -s "$0" "$@"
+exec scsh -lel sunet-2.1/load.scm -dm -o http-test -e main -s "$0" "$@"
 !#
 
 (define-structure http-test