;;; launch.ss

;; PURPOSE
;;   This file launches a web-server serving an online
;;   version of the HelpDesk pages.
;;   This is intended for testing the online version,
;;   not as a way of deplying it.

;; NOTES
;;   The web-server uses the port given by internal-port 
;;   in "collects/help/private/internal-hp.ss".

;;   Change the parameter current-helpdesk-platform
;;   in "collects/help/servlets/private/platform.ss"
;;   to 'external-browser when testing the online version.

;;  Startpage:
;;     http://localhost:8000/servlets/home.ss
;;     (where 8000 is the port given by internal-port)

(require (lib "web-server.ss" "web-server")
         (lib "web-config-unit.ss" "web-server")
         "private/config.ss"
         "private/internal-hp.ss"
         "private/platform.ss")

(current-helpdesk-platform 'external-browser)

;; start the HelpDesk server, and store a shutdown
(define shutdown
  (serve/web-config@ config))

(printf "\nStart here: http://~a:~a/servlets/home.ss\n\n"
        internal-host internal-port)

(printf "Press enter to shutdown.\n")
(read-line)
;(shutdown)