Tcl Source Code

Artifact [86b20799e9]
Login

Artifact 86b20799e97995f4e8ba078c649754240b6c107f:

Attachment "socketbug.txt" to ticket [3394732fff] added by dkf 2011-08-20 15:07:14.
% proc tst {args} {puts "started $args"}

% socket -server tst -myaddr 0.0.0.0 80
sock8456cd8

% update; # after "telnet localhost 80"
started sock84d04c8 127.0.0.1 36265

% chan configure sock8456cd8; #query the socket settings
-blocking 1 -buffering full -buffersize 4096 -encoding utf-8 -eofchar {} -translation auto -sockname {0.0.0.0 0.0.0.0 80}

% chan configure sock8456cd8 -blocking 1 -buffering full -buffersize 4096 -encoding utf-8 -eofchar {} -translation auto; #configure the socket with exact same settings as it was configured

% update; # after "telnet localhost 80"
% #no output