134 |
if {![catch { read -nonewline $idxinfo(sock) } lines]} { |
if {![catch { read -nonewline $idxinfo(sock) } lines]} { |
135 |
foreach line [split $lines \n] { |
foreach line [split $lines \n] { |
136 |
$idxinfo(control) $idx $line |
$idxinfo(control) $idx $line |
137 |
|
# The update is here so that one connection can't be flooded and drown |
138 |
|
# out the other connections and therefore making them less responsive. |
139 |
|
# At least that's what I hope it's good for. =) |
140 |
|
update |
141 |
} |
} |
142 |
} else { |
} else { |
143 |
putloglev d * "net: eof!(read) idx $idx" |
putloglev d * "net: eof!(read) idx $idx" |