better messages, clarify comment
svn: r17431
This commit is contained in:
parent
e821a0c461
commit
1d7f3ff2f4
|
@ -636,8 +636,9 @@
|
|||
[error-print-context-length 0]
|
||||
[current-directory server-dir])
|
||||
(define port (get-conf 'port-number))
|
||||
(log-line "server started on port ~a ------------------------------" port)
|
||||
(hook 'server-start `([port ,port]))
|
||||
(define (start-notify)
|
||||
(log-line "*** handin server started on port ~a" port)
|
||||
(hook 'server-start `([port ,port])))
|
||||
(run-server
|
||||
port
|
||||
(lambda (r w)
|
||||
|
@ -697,5 +698,6 @@
|
|||
(let ([l (ssl-listen port-k cnt #t)])
|
||||
(ssl-load-certificate-chain! l "server-cert.pem")
|
||||
(ssl-load-private-key! l "private-key.pem")
|
||||
(start-notify)
|
||||
l))
|
||||
ssl-close ssl-accept ssl-accept/enable-break))
|
||||
|
|
|
@ -53,8 +53,8 @@
|
|||
(send-error "Your session has expired" init-path)
|
||||
(* 12 1024 1024))))
|
||||
;; This can be used to serve html content too; doesn't make sense now,
|
||||
;; since the servlet will be used for all requests. (See "servlet-env.ss"
|
||||
;; for the needed `require's)
|
||||
;; since the servlet will be used for all requests, and it never calls
|
||||
;; (next-dispatcher). (See "servlet-env.ss" for the needed `require's.)
|
||||
;; (files:make
|
||||
;; #:url->path (fsmap:make-url->path (build-path server-dir "htdocs")))
|
||||
;; (lift:make (send-error "File not found" (lambda () "/")))
|
||||
|
|
|
@ -256,7 +256,7 @@
|
|||
(define (run)
|
||||
(cond [(get-conf 'https-port-number)
|
||||
=> (lambda (p)
|
||||
(log-line "*** starting web server")
|
||||
(log-line "*** starting embedded web server on port ~a" p)
|
||||
(parameterize ([error-print-context-length 0])
|
||||
(run-servlet dispatcher p server-dir
|
||||
#:namespace '(handin-server/private/md5
|
||||
|
|
Loading…
Reference in New Issue
Block a user