Tcl Library Source Code

Artifact [0cd18e8fd5]
Login

Artifact 0cd18e8fd5fb90c68b1a963abe7390a6e05abf14:

Ticket change [0cd18e8fd5] - Ticket [631a44ed66fbb333|631a44ed66] <i>WebSocket clients can block server</i> status still Open with 3 other changes by anonymous 2015-04-17 06:48:13.
D 2015-04-17T06:48:13.972
J icomment A\srecipe\sfor\sa\sclient\sblocking\sthe\sserver\sby\srefusing\sto\sread:\r\n\r\n---------------->8----------------\r\npackage\srequire\swebsocket;\r\nnamespace\seval\s::s\s{};\r\nproc\s::s::accept\s{sock\sargs}\s{\r\n\s\s\s\sputs\s"server:\snew\sconnection\s$args";\r\n\s\s\s\s::websocket::takeover\s$sock\s[list\s::s::handler]\s1\s{};\r\n\s\s\s\s::websocket::send\s$sock\stext\s[string\srepeat\s"Welcome"\s1000000];\r\n}\r\nproc\s::s::handler\s{sock\stype\sargs}\s{\r\n\s\s\s\sputs\s"$sock:\s$type\s$args";\r\n}\r\nproc\s::s::canary\s{interval}\s{\r\n\s\s\s\sputs\s"canary:\sStill\salive...";\r\n\s\s\s\s::after\s$interval\s[list\s::s::canary\s$interval];\r\n}\r\n\r\n::s::canary\s1000;\r\n::socket\s-server\s[list\s::s::accept]\s54321;\r\n----------------8<----------------\r\n\r\nIn\sthe\ssecond\sshell\srun\sthe\sfollowing\scommand:\r\n\r\n---------------->8----------------\r\nnc\slocalhost\s54321\s|\s{\ssleep\s5s;\swc;\s}\r\n----------------8<----------------
J login anonymous
J mimetype text/plain
K 631a44ed66fbb33373f1d5342a0ae5d1ba6dd38b
U anonymous
Z 87cc98cf2a22fc0487cfa5df22d69d9a