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

Secure websockets and the wss: protocol scheme.

Browse Source 
Also changed the code to send the request, headers and Key3 all at once since some servers expect it this way (node.js had problems with this when on SSL).
This commit is contained in:
Jakub Piotr Cłapa 2010-12-06 19:09:14 +01:00
parent 49b9f42ae7
commit 45441054bc
1 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
collects/net/websocket/client.rkt
View File

@ -4,11 +4,18 @@
web-server/http/request
web-server/http/request-structs
net/websocket/conn
net/websocket/handshake)
net/websocket/handshake
openssl)
(provide (except-out (all-from-out net/websocket/conn) ws-conn))
(define (ws-secure-url? u)
(and (url? u)
(equal? (url-scheme u) "wss")))
(define (ws-url? u)
(and (url? u) (equal? (url-scheme u) "ws")))
(and (url? u)
(or (equal? (url-scheme u) "ws")
(ws-secure-url? u))))
(provide/contract
[ws-url? (-> any/c boolean?)]
@ -41,20 +48,23 @@
pre-path)
pre-path)))))
; Connect
(define-values (ip op) (tcp-connect host port))
(define connect (if (ws-secure-url? url) ssl-connect tcp-connect))
(define-values (ip op) (ssl-connect host port))
; Handshake (client)
(fprintf op "GET ~a HTTP/1.1\r\n" the-path)
(define-values (key1 key2 key3 client-ans) (generate-key))
(print-headers
op
(list* (make-header #"Host" (string->bytes/utf-8 host))
(make-header #"Connection" #"Upgrade")
(make-header #"Upgrade" #"WebSocket")
(make-header #"Sec-WebSocket-Key1" (string->bytes/utf-8 key1))
(make-header #"Sec-WebSocket-Key2" (string->bytes/utf-8 key2))
headers))
(write-bytes key3 op)
(write-bytes (call-with-output-bytes
(λ (op)
(fprintf op "GET ~a HTTP/1.1\r\n" the-path)
(print-headers
op
(list* (make-header #"Host" (string->bytes/utf-8 host))
(make-header #"Connection" #"Upgrade")
(make-header #"Upgrade" #"WebSocket")
(make-header #"Sec-WebSocket-Key1" (string->bytes/utf-8 key1))
(make-header #"Sec-WebSocket-Key2" (string->bytes/utf-8 key2))
headers))
(write-bytes key3 op)))
op)
(flush-output op)
; Handshake (server)
(define sresponse (read-bytes-line ip 'any))