Tcl Library Source Code

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.