From 3086800c91cc893d89b5571eaccb0c869f1c8db4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 1 Oct 2009 05:30:27 +0000 Subject: [PATCH] * Try to avoid showing the context when ssl-accept fails -- this happens often when students do mistakes, and the context output is useless in those cases. * Set the current directory to the server directory, so the certificate files can be loaded svn: r16195 --- collects/handin-server/main.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.ss index 2dc0541e18..1d0f370d0a 100644 --- a/collects/handin-server/main.ss +++ b/collects/handin-server/main.ss @@ -627,7 +627,10 @@ (define session-count 0) -(parameterize ([error-display-handler (lambda (msg exn) (log-line msg))]) +(parameterize ([error-display-handler (lambda (msg exn) (log-line msg))] + [current-directory server-dir]) + (define (without-context f) + (lambda xs (parameterize ([error-print-context-length 0]) (apply f xs)))) (run-server (get-conf 'port-number) (lambda (r w) @@ -679,5 +682,5 @@ (ssl-load-private-key! l "private-key.pem") l)) ssl-close - ssl-accept - ssl-accept/enable-break)) + (without-context ssl-accept) + (without-context ssl-accept/enable-break)))