Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- % 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement