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

finally got rid of those annoying context printouts, which actually came from the web server

Browse Source 
svn: r16263
This commit is contained in:
Eli Barzilay 2009-10-07 05:30:05 +00:00
parent eb6c26e71d
commit e164607633
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/handin-server/web-status-server.ss
View File

@ -251,9 +251,11 @@
(title ,msg))
(body ,msg "; " (a ([href "/"]) "restarting") " in 3 seconds.")))
(define default-context-length (error-print-context-length))
(define ((run-servlet port))
(serve/servlet
(lambda (request)
(error-print-context-length default-context-length)
(parameterize ([current-session (web-counter)])
(login-page (aget (request-bindings request) 'handin) #f)))
#:port port #:listen-ip #f #:ssl? #t #:command-line? #t
@ -274,10 +276,12 @@
(cond [(get-conf 'https-port-number)
=> (lambda (p)
(define t
(thread (lambda ()
(dynamic-wind
(lambda () (log-line "*** starting web server"))
(run-servlet p)
(lambda () (log-line "*** web server died!"))))))
(parameterize ([error-print-context-length 0])
(thread
(lambda ()
(dynamic-wind
(lambda () (log-line "*** starting web server"))
(run-servlet p)
(lambda () (log-line "*** web server died!")))))))
(lambda () (break-thread t)))]
[else void]))