tjhintz/websockets
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing upgrade header check.

Browse Source
This commit is contained in:
Thomas Hintz
2015-04-18 10:44:44 -07:00
parent e812e3cbbe
commit 946552f79c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
websockets.scm
View File

@@ -570,7 +570,7 @@
"ping thread"))) "ping thread")))
; make sure the request meets the spec for websockets ; make sure the request meets the spec for websockets
(cond ((not (and (eq? (header-value 'connection headers #f) 'upgrade) (cond ((not (and (member 'upgrade (header-values 'connection headers))
(string-ci= (car (header-value 'upgrade headers '(""))) "websocket"))) (string-ci= (car (header-value 'upgrade headers '(""))) "websocket")))
(signal (make-websocket-exception (signal (make-websocket-exception
(make-property-condition 'missing-upgrade-header)))) (make-property-condition 'missing-upgrade-header))))