/[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.6 by fireegl, Fri Nov 14 15:58:46 2003 UTC revision 1.7 by fireegl, Wed Nov 26 00:54:02 2003 UTC
# Line 136  proc ::tcldrop::conn::Read {idx} { Line 136  proc ::tcldrop::conn::Read {idx} {
136                          $idxinfo(control) $idx $line                          $idxinfo(control) $idx $line
137                  }                  }
138          } else {          } else {
139                    putloglev d * "net: eof!(read) idx $idx"
140                  # Send {} to the control proc and kill the sock/idx.                  # Send {} to the control proc and kill the sock/idx.
141                  # Note, A check on valididx (from the control proc) is one way to tell wether or not an EOF has actually been received.                  # Note, A check on valididx (from the control proc) is one way to tell wether or not an EOF has actually been received.
142                  $idxinfo(control) $idx {}                  $idxinfo(control) $idx {}
# Line 147  proc ::tcldrop::conn::Write {idx} { Line 148  proc ::tcldrop::conn::Write {idx} {
148          foreach {a d} [::tcldrop::idx::Info $idx] { array set idxinfo $d }          foreach {a d} [::tcldrop::idx::Info $idx] { array set idxinfo $d }
149          catch { killutimer $idxinfo(connecttimer) }          catch { killutimer $idxinfo(connecttimer) }
150          catch { fileevent $idxinfo(sock) writable {} }          catch { fileevent $idxinfo(sock) writable {} }
151          if {[info exists idxinfo(writable)]} {          if {[info exists idxinfo(writable)]} { $idxinfo(writable) $idx }
                 $idxinfo(writable) $idx  
         }  
152  }  }
153    
154  proc ::tcldrop::conn::ConnectTimeout {idx} { killidx $idx }  proc ::tcldrop::conn::ConnectTimeout {idx} {
155            putloglev d * "net: timeout!(connect) idx $idx"
156            killidx $idx
157    }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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