Tcl Library Source Code

A recipe for a client blocking the server by refusing to read:

---------------->8----------------
package require websocket;
namespace eval ::s {};
proc ::s::accept {sock args} {
    puts "server: new connection $args";
    ::websocket::takeover $sock [list ::s::handler] 1 {};
    ::websocket::send $sock text [string repeat "Welcome" 1000000];
}
proc ::s::handler {sock type args} {
    puts "$sock: $type $args";
}
proc ::s::canary {interval} {
    puts "canary: Still alive...";
    ::after $interval [list ::s::canary $interval];
}

::s::canary 1000;
::socket -server [list ::s::accept] 54321;
----------------8<----------------

In the second shell run the following command:

---------------->8----------------
nc localhost 54321 | { sleep 5s; wc; }
----------------8<----------------