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

use log-line for connection errors, announce shutting down and kill web-server when it happens

Browse Source 
svn: r17433
This commit is contained in:
Eli Barzilay 2009-12-30 11:01:36 +00:00
parent 1f4184206a
commit 66aa708427
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/handin-server/main.ss
View File

@ -693,11 +693,15 @@
(close-output-port w)))))))
#f ; `with-watcher' handles our timeouts
(lambda (exn)
(printf "~a\n" (if (exn? exn) (exn-message exn) exn)))
(log-line "ERROR: ~a" (if (exn? exn) (exn-message exn) exn)))
(lambda (port-k cnt reuse?)
(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))
(lambda (l)
(log-line "shutting down")
(stop-status)
(ssl-close l))
ssl-accept ssl-accept/enable-break))