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

Correct server shutdown code

Browse Source 
svn: r11264
This commit is contained in:
Jay McCarthy 2008-08-14 22:34:19 +00:00
parent 2de03c406f
commit f533538e28
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/servlet-env.ss
View File

@ -119,7 +119,13 @@
new-servlet)))
(when launch-browser?
((send-url) standalone-url #t))
(printf "Your web application is running at ~a.~n" standalone-url)
(printf "Click 'Stop' at any time to terminate the web server.~n")
(semaphore-wait sema)
(printf "Your Web application is running at ~a.~n" standalone-url)
(printf "Click 'Stop' at any time to terminate the Web Server.~n")
(with-handlers
([exn:break?
(lambda (exn)
(printf "~nWeb Server stopped.~n")
(shutdown-server))])
(semaphore-wait/enable-break sema))
; We shouldn't get here, because nothing posts to the semaphore. But just in case...
(shutdown-server)))