Tcl Library Source Code

View Ticket
Login
Ticket UUID: 0dd2a66f089e47c93b6f089e16e1fe6db41faf32
Title: websocket server example and a bug found
Type: Bug Version: tcl 8.6
Submitter: anonymous Created on: 2015-09-17 17:01:24
Subsystem: websocket Assigned To: emmanuel
Priority: 5 Medium Severity: Important
Status: Closed Last Modified: 2022-10-10 16:34:06
Resolution: Fixed Closed By: kjnash
    Closed on: 2022-10-10 16:34:06
Description:
I think that the websocket library requires an example of a websocket server.

I attach to this message an example. It could be interesting for other users.

I also found a bug. At the end of the  ::websocket::validate procedure it should be included this code:
   if {![dict exists $res protocols]} {
        dict set res protocols [list]
    }

In my attachment, the websocket.tcl file has this change. Without this change the server example doesn't work.
User Comments: kjnash added on 2022-10-10 16:34:06:
Fix added in commit [a500ff9409], and example servers added - thanks!

anonymous added on 2015-10-20 17:20:06:
I add another interesting example of websocket server using an object oriented approach.

Attachments: