suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor stuff

Browse Source 
svn: r7167
This commit is contained in:
Eli Barzilay 2007-08-26 01:17:38 +00:00
parent fb9525287a
commit dd13471f86
2 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/help/launch.ss
View File

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

14
collects/help/servlets/private/platform.ss
View File

@ -1,11 +1,11 @@
(module platform mzscheme
(provide current-helpdesk-platform)
; internal browser or external browser?
; (used to produce simpler html for the internal browser)
;; internal browser or external browser?
;; (used to produce simpler html for the internal browser)
(define current-helpdesk-platform
(make-parameter
(make-parameter
'internal-browser-simple ; main page only
; 'internal-browser ; menu + main page
; 'external-browser
)))
;; 'internal-browser ; menu + main page
;; 'external-browser
)))