37 lines
1.1 KiB
Scheme
37 lines
1.1 KiB
Scheme
;;; 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")
|
|
|
|
;; start the HelpDesk server, and store a shutdown
|
|
(define shutdown
|
|
(serve/web-config@ config))
|
|
|
|
(printf "Did you remember to change `current-helpdesk-platform' in \"platform.ss\"?\n\n")
|
|
(printf "Start here: http://~a:~a/servlets/home.ss\n\n"
|
|
internal-host internal-port)
|
|
|
|
(format "Press enter to shutdown.\n")
|
|
(read-line)
|
|
;(shutdown)
|