38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#
proc respond {chan} {
if {[catch {read $chan} data]} {
#dputs "EOF $chan ([shortstr $data)"
catch {close $chan}
return
}
#if {$data != ""} { dputs "got $chan ([shortstr $data])" }
if {[eof $chan]} {
# client gone or finished
dputs "EOF $chan"
close $chan ;# release the port
return
}
puts -nonewline $chan $data
|
|
|
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#
proc respond {chan} {
if {[catch {read $chan} data]} {
#dputs "EOF $chan ([shortstr $data)"
catch {close $chan}
return
}
#if {$data ne ""} { dputs "got $chan ([shortstr $data])" }
if {[eof $chan]} {
# client gone or finished
dputs "EOF $chan"
close $chan ;# release the port
return
}
puts -nonewline $chan $data
|