/[tcldrop]/tcldrop/modules/conn.tcl
ViewVC logotype

Diff of /tcldrop/modules/conn.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by fireegl, Mon Dec 1 01:59:51 2003 UTC revision 1.9 by fireegl, Tue Dec 2 09:01:46 2003 UTC
# Line 134  proc ::tcldrop::conn::Read {idx} { Line 134  proc ::tcldrop::conn::Read {idx} {
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"

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26