how to write a simple server with tcllib's websocket

[kevin...@googlemail.com]

I need to write a very simple websocket server but cannot figure out how to
do this with ::websocket::server, websocket::live, a.s.o,
and didn't find any (server) example.
In fact, I don't know what kind of sock params I have to give to the procs...

Any help is welcome.

[kevin...@googlemail.com]

I figured out how to do it, it might be useful to somebody.
Here is the (pseudo)code.

set srvSock [socket -server handleConnect $PORT]
# 1. declare the (tcp) server-socket as a websocket server
::websocket::server $srvSock

# 2. register callback
::websocket::live $srvSock /somepath wsLiveCB

# the usual tcl-tcp stuf (I don't (want to) use an http server package)
proc handleConnect {cs addr p} {
.............
fileevent $cs readable [list handleRead $cs]
.............
}

proc handleRead {cs} {
.............
# once having groked the HTTP GET headers
# 3. let's check valid
if {[::websocket::test $srvSock $cs /somepath $hdrs]} {
# 4. upgrade the socket
::websocket::upgrade $cs

# from now the wsLiveCB will be called (not anymore handleRead).

proc wsLiveCB {cs op par args} {
.......
switch $op {
request { ..... }
close { ..... }
disconnect { ..... }
text {
.....
}
}
......

[MelHeravi]

Can you please send me the complete example code?
My guessing is not working :(

thank you

[Rich]

MelHeravi <MelH...@gmail.com> wrote:
> Can you please send me the complete example code?

No

[MelHeravi]

I just need the bare bone stuff like $hdrs ?? I have no idea where that comes from in your code

if {[::websocket::test $srvSock $cs /somepath $hdrs]}

Appreciate your time


--

[Rich]

It is not "our" code.

In this instance, grep is your friend. Use grep.

[Emmanuel Frecon]

I suggest that you take a look at the code at:

https://github.com/efrecon/til/blob/master/minihttpd/httpd.tcl

This should provide you with a medium-sized example.