same error with socket -server (no tcpserver)
Posted to
tcl
by aspect at Fri Apr 19 22:38:56 GMT 2024
view raw
#!/bin/sh
# \
exec
tclsh "
$0
"
${1+"$@"}
socket
-server serve 4321
proc
serve {sock host port} {
set
fd [
open
/tmp/random.txt rb]
chan copy
$fd
$sock
close
$fd
}
vwait
forever
Recent Posts
tcl by Bradipo
1 days ago
tcl by Bradipo
1 days ago
tcl by apn
2 days ago
tcl by Bradipo
3 days ago
tcl by apn
21 days ago
tcl by apn
21 days ago
tcl by bohagan
22 days ago
tcl by archie12341234
27 days ago
tcl by kevin_walzer
28 days ago
tcl by cgm
51 days ago
Submit
New paste
Documentation
From Jabber