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

tried to give a hint when people get confused the way I just did

Browse Source 
svn: r17416
This commit is contained in:
Robby Findler 2009-12-28 18:39:28 +00:00
parent a297f940d4
commit 0dbbb5d73d
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -667,12 +667,20 @@
;; see note on close-output-port below
(close-output-port w)))])
(let ([protocol (read r-safe)])
(if (eq? protocol 'ver1)
(write+flush w 'ver1)
(error 'handin "unknown protocol: ~e~a" protocol
(if (eq? protocol 'GET)
" (this port is used for handin submissions only)"
""))))
(cond
[(eq? protocol 'ver1)
(write+flush w 'ver1)]
[(eq? protocol 'GET)
(error 'handin "request via the GET protocol: maybe you are using the server-port instead of the https-server-port to connect to the https server? ~a"
(let ([port (get-conf 'https-port-number)])
(if port
(let-values ([(us them) (ssl-addresses r)])
(format "Try this url: https://~a:~a/"
us
port))
(format "There is no https-port-number set in config.ss; try setting that first."))))]
[else
(error 'handin "unknown protocol: ~s" protocol)]))
(handle-connection r r-safe w)
(log-line "normal exit")
(kill-watcher)